指定されたユーザーに対して指定された既定のフォルダーを表す 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 のサポートおよびフィードバックを参照してください。