Outlook) 的 NameSpace.GetSharedDefaultFolder 方法 (

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

語法

expression。 GetSharedDefaultFolder( _Recipient_ , _FolderType_ )

表達 代表 NameSpace 物件的 變數。

參數

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

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

另請參閱

NameSpace 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。