SelectNamesDialog オブジェクト (Outlook)

ユーザーが 1 つまたは複数のアドレス一覧からエントリを選択するための [ 名前の選択] ダイアログ ボックスを表示し、 SelectNamesDialog.Recipients プロパティで指定されたコレクション オブジェクトの選択されたエントリを返します。

注釈

SelectNamesDialog オブジェクトのインスタンスを生成するには、 NameSpace.GetSelectNamesDialog を呼び出すことです。

SelectNamesDialog.Display によって表示されるダイアログ ボックスは、Outlook のユーザー インターフェイスの [ 名前の選択] ダイアログ ボックスに似ています。 組み込みの [名前の選択] ダイアログ ボックスのサイズと位置の設定に従います。 ただし、既定の状態で上 に[cc]、 メッセージの受信者が表示されない、 [Bcc ] ボックス。 SelectNamesDialog オブジェクトを使用して [名前の選択] ダイアログ ボックスを表示する方法の詳細については、「アドレス帳からの名前の表示」を参照してください。

例

SelectNamesDialog オブジェクトを使用して Outlook のユーザー インターフェイスの [ 名前の選択] ダイアログ ボックスのようなダイアログ ボックスに連絡先フォルダーからエントリを表示する方法を次のコード例に示します。

Sub ShowContactsInDialog() 
 
 Dim oDialog As SelectNamesDialog 
 
 Dim oAL As AddressList 
 
 Dim oContacts As Folder 
 
 
 
 Set oDialog = Application.Session.GetSelectNamesDialog 
 
 Set oContacts = _ 
 
 Application.Session.GetDefaultFolder(olFolderContacts) 
 
 
 
 'Look for the address list that corresponds with the Contacts folder 
 
 For Each oAL In Application.Session.AddressLists 
 
 If oAL.GetContactsFolder = oContacts Then 
 
 Exit For 
 
 End If 
 
 Next 
 
 With oDialog 
 
 'Initialize the dialog box with the address list representing the Contacts folder 
 
 .InitialAddressList = oAL 
 
 .ShowOnlyInitialAddressList = True 
 
 If .Display Then 
 
 'Recipients Resolved 
 
 'Access Recipients using oDialog.Recipients 
 
 End If 
 
 End With 
 
End Sub

メソッド

プロパティ

関連項目

Outlook オブジェクト モデル リファレンス

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

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