正在检查文件夹类型

我循环浏览Outlook存储的每个文件夹,通过检索所有默认文件夹并比较它们的EntryID来检查文件夹类型。

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

现在,我有一个邮箱,其中有多个类型为contacts的文件夹。

有其他方法可以知道文件夹类型吗?