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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。