types - Outlook フォルダー - 既定のアイテムの種類

Question

VBScript (Outlook 2003) ですべてのフォルダーを読み取りたい場合は、次のコードを使用します。

For i = 1 To oMAPI.Folders.Count
    If oMAPI.Folders(i).DefaultItemType <> 6 Then
    ' <> 6 = Not public
        MsgBox oMAPI.Folders(i).Name
    End If
Next

それは魅力のように機能しますが、追加のメールボックス(または一般的なメールボックス) とpstsを区別しません。なぜなら、それらはすべてタイプ = 0 だからです!

Outlook 2003 を使用しているため、Store オブジェクトにアクセスできません。これら2つのタイプを区別する方法を知っている人はいますか？