返回 MAPIFolder 对象,代表为指定用户指定的默认文件夹。该方法在代理方案中最有用,在这种情况下,用户对其他用户的一个或多个默认文件夹(如共享的“日历”文件夹)有代理访问权限。
expression.GetSharedDefaultFolder(Recipient, FolderType)
expression 必选。该表达式返回 NameSpace 对象。
Recipient 必选,Recipient 对象。文件夹所有者。必须解析该 Recipient 对象。
FolderType 必选,OlDefaultFolders 常量。文件夹的类型。
OlDefaultFolders 可以为以下 OlDefaultFolders 常量之一。 |
olFolderCalendar |
olFolderContacts |
olFolderDeletedItems |
olFolderDrafts |
olFolderInbox |
olFolderJournal |
olFolderNotes |
olFolderOutbox |
olFolderSentMail |
olFolderSharedRoot |
olFolderTasks |
olPublicFoldersAllPublicFolders |
本 Visual Basic for Applications 示例使用 GetSharedDefaultFolder 方法解析代表“Kim Buhler”的 Recipient 对象,然后返回其默认的共享“日历”文件夹。
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myRecipient = myNameSpace.CreateRecipient("Kim Buhler")
myRecipient.Resolve
If myRecipient.Resolved Then
Set KimCalendarFolder = _
myNameSpace.GetSharedDefaultFolder _
(myRecipient, olFolderCalendar)
End If
如果使用 VBScript,则不创建 Application 对象,而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。
Set myNameSpace = Application.GetNameSpace("MAPI")
Set myRecipient = myNameSpace.CreateRecipient("Kim Buhler")
myRecipient.Resolve
If myRecipient.Resolved Then
Set KimCalendarFolder = _
myNameSpace.GetSharedDefaultFolder _
(myRecipient, 9)
End If