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，因为它们都是 type = 0！

因为我使用的是 Outlook 2003，所以我无法访问 Store 对象。有谁知道如何区分这两种类型？