NameSpace.GetSharedDefaultFolder 方法 (Outlook)

返回一个代表指定的用户指定的默认文件夹的 文件夹 对象。

语法

expression。 GetSharedDefaultFolder( _Recipient_ , _FolderType_ )

表达 一个代表 NameSpace 对象的变量。

参数

名称	必需/可选	数据类型	说明
收件人	必需	Recipient	该文件夹的所有者。 请注意，必须解析的 收件人 对象。
FolderType	必需	OlDefaultFolders	文件夹的类型。

返回值

代表指定的用户指定的默认文件夹的 Folder 对象。

备注

此方法用于代理方案，在这种情况下，一位用户对其他用户的一个或多个默认文件夹（如共享的“日历”文件夹）有代理访问权限。

FolderType 可以是以下 OlDefaultFolders 常量之一： olFolderCalendar、 olFolderContacts、 olFolderDrafts、 olFolderInbox、 olFolderJournal、 olFolderNotes 或 olFolderTasks。 (常量 olFolderDeletedItems 、 olFolderOutbox 、 olFolderJunk 、 olFolderConflicts 、 olFolderLocalFailures 、 olFolderServerFailures 、 olFolderSyncIssues 、 olPublicFoldersAllPublicFolders 、 olFolderRssSubscriptions 、 olFolderToDo 、 olFolderManagedEmail 和 olFolderSentMail 不能指定此参数。

示例

此 Visual Basic for Applications (VBA) 示例使用 GetSharedDefaultFolder 方法来解析表示 Dan Wilson，该 收件人 对象，并返回陶建明的共享的默认 日历文件夹。

Sub ResolveName() 
 
 Dim myNamespace As Outlook.NameSpace 
 
 Dim myRecipient As Outlook.Recipient 
 
 Dim CalendarFolder As Outlook.Folder 
 
 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 
 Set myRecipient = myNamespace.CreateRecipient("Dan Wilson") 
 
 myRecipient.Resolve 
 
 If myRecipient.Resolved Then 
 
 Call ShowCalendar(myNamespace, myRecipient) 
 
 End If 
 
End Sub 
 
 
 
Sub ShowCalendar(myNamespace, myRecipient) 
 
 Dim CalendarFolder As Outlook.Folder 
 
 
 
 Set CalendarFolder = _ 
 
 myNamespace.GetSharedDefaultFolder _ 
 
 (myRecipient, olFolderCalendar) 
 
 CalendarFolder.Display 
 
End Sub

另请参阅

命名空间对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。