Vbscript 正在检查文件夹类型

通过检索所有默认文件夹并比较它们的EntryID，我循环查看Outlook应用商店的每个文件夹，以检查文件夹类型

Public Function GetFolderTypeName(objFolder)
 Dim objType, objDefaultFolder

 'dctValidFolders is a dictionary of default folders type
 For Each objType in dctValidFolders
  Set objDefaultFolder = objMAPI.GetDefaultFolder(dctValidFolders.Item(objType))
  If objFolder.EntryID = objDefaultfolder.EntryID Then
    Set objDefaultfolder = Nothing
    GetFolderTypeName = objType
    Exit Function
  End If
 Next
End Function

现在，我有一个邮箱，其中包含多个联系人类型的文件夹

---

还有其他方法知道文件夹类型吗？

事实上，有，请检查

folder.DefaultItemType 

这将返回一个项目类型，如olMailItem，并且取决于您可以“假定”文件夹类型