連絡先フォルダーからエントリを選択するダイアログボックスを表示するDisplay a Dialog Box for Selecting Entries from the Contacts Folder

このトピックでは、 SelectNamesDialog オブジェクトを使用して、Outlook のユーザーインターフェイスの [名前の選択] ダイアログボックスに似たダイアログボックスに、連絡先フォルダーのエントリを表示する方法について説明します。This topic describes how to use the SelectNamesDialog object to display entries from the Contacts folder in a dialog box that resembles the Select Names dialog box in the Outlook user interface.

  1. 連絡先フォルダーに対応するアドレス一覧を探します。SelectNamesDialogオブジェクトは、 AddressList に基づいてダイアログボックスにエントリを表示します。Look for the address list that corresponds with the Contacts folder.The SelectNamesDialog object displays entires in a dialog box based on an AddressList. 連絡先フォルダーにエントリを表示するには、連絡先フォルダーに対応するAddressListを検索します。To display entries in the Contacts folder, look for the AddressList that corresponds with the Contacts folder. 現在のセッションに対して定義されたすべてのアドレス一覧を反復処理し、各アドレス一覧については、 GetContactsFolder を使用して、対応するフォルダーと連絡先フォルダーを一致させます。Iterate through all the address lists defined for the current session, and for each address list, use AddressList.GetContactsFolder to match the corresponding folder with the Contacts folder.

  2. 連絡先フォルダーのアドレス一覧でダイアログ ボックスを初期化します。Initialize the dialog box with the address list of the Contacts folder.

  3. SelectNamesDialog.Display を使用してダイアログ ボックスを表示します。Use SelectNamesDialog.Display to display the dialog box. SelectNamesDialog.Display が True の場合、 SelectNamesDialog.Recipients を使用して、選択したエントリにアクセスできます。If SelectNamesDialog.Display returns True, then selected entries will be available in SelectNamesDialog.Recipients.

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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.