Outlook VBA教程:GetSharedDefaultFolder方法

返回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

VBA示例

本 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

上页:Outlook VBA教程:GetRecurrencePattern方法 下页:Outlook VBA教程:GoToDate方法

Outlook VBA教程:GetSharedDefaultFolder方法:相关链接

Outlook VBA教程:GoToDate方法 Outlook VBA教程:HideFormPage方法
Outlook VBA教程:IsPaneVisible方法 Outlook VBA教程:IsSearchSynchronous方法
Outlook VBA教程:IsWordMail方法 Outlook VBA教程:Item方法
Outlook VBA教程:Logoff方法 Outlook VBA教程:Logon方法
Outlook VBA教程:MarkComplete方法 Outlook VBA教程:Move方法
Outlook VBA教程:MoveTo方法 Outlook VBA教程:OnStatusChange方法
Outlook VBA教程:PickFolder方法 Outlook VBA教程:Post方法
Outlook VBA教程:PrintOut方法 Outlook VBA教程:PublishForm方法
Outlook VBA教程:Quit方法 Outlook VBA教程:Remove方法
Outlook VBA教程:RemoveMember方法 Outlook VBA教程:RemoveMembers方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号