2013-08-23 63 views
1

我遍历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 

现在,我有一个邮箱有多个联系人类型的文件夹。

是否有另一种方法知道文件夹类型?

回答

0

有其实,检查

folder.DefaultItemType 

这将返回的项目类型,如olMailItem,并根据您可以在“假设”的文件夹类型。