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 支持和反馈，获取有关如何接收支持和提供反馈的指南。