共用方式為

Outlook () NameSpace.GetSharedDefaultFolder 方法

回傳一個 Folder 物件，代表指定使用者的預設資料夾。

語法

expression。 GetSharedDefaultFolder( _Recipient_ , _FolderType_ )

詞 一個代表 NameSpace 物件的變數。

參數

名稱 必要/選用 資料類型 描述
收件者 必要 Recipient 資料夾的擁有人。 請注意，對於 Recipient 物件必須加以解析。
資料夾類型 必要 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 的 接收 物件，然後回傳 Dan 共享的預設 行事曆 資料夾。

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 支援與意見反應。

  • Last updated on