NameSpace.GetSharedDefaultFolder メソッド (Outlook)

指定したユーザー の指定 した既定のフォルダーを表す Folder オブジェクトを返します。

構文

expression. GetSharedDefaultFolder( _Recipient_ , _FolderType_ )

NameSpace オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Recipient 必須 Recipient フォルダーの所有者を指定します。 Recipient オブジェクトは、名前がサーバーに登録されている必要があります。
FolderType 必須 OlDefaultFolders フォルダーの種類を指定します。

戻り値

指定したユーザーの既定のフォルダーを表す Folder オブジェクト。

解説

このメソッドは、あるユーザーが、既定のフォルダー (共有されている 予定表 フォルダーなど) について、別のユーザーに対する代理アクセス権を持っている場合に使用されます。

FolderType には、 olDefaultFolders 定数 ( olFolderCalendarolFolderContactsolFolderDraftsolFolderInboxolFolderJournalolFolderNotesolFolderTasks) のいずれかを指定できます。 (定数 olFolderDeletedItems, olFolderOutbox、olFolderJunk、olFolderConflictsolFolderLocalFailuresolFolderServerFailuresolFolderSyncIssuesolPublicFoldersAllPublicFoldersolFolderRssSubscriptionsolFolderToDoolFolderManagedEmailolFolderSentMail は、この引数に指定できません。

このVisual Basic for Applications (VBA) の例では 、GetSharedDefaultFolder メソッドを使用して、Dan Wilson を表す Recipient オブジェクトを解決し、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

関連項目

NameSpace Object

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。