次の方法で共有

NameSpace.GetSharedDefaultFolder メソッド (Outlook)

  • [アーティクル]

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

構文

expression. GetSharedDefaultFolder( _Recipient_ , _FolderType_ )

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

パラメーター

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

戻り値

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

注釈

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

FolderType には、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 Object

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

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