SelectNamesDialog.InitialAddressList プロパティ (Outlook)
[名前の選択] ダイアログ ボックスに表示する最初のアドレス一覧を決定する AddressList オブジェクトを取得または設定します。 値の取得と設定が可能です。
構文
式。 InitialAddressList
式SelectNamesDialog オブジェクトを表す変数。
注釈
」ドロップ ダウン リストから、[ 名前の選択] ダイアログ ボックスで アドレス帳に、 AddressList をオンにする同等のプログラムは、 InitialAddressList プロパティを設定します。
既定の状態、 InitialAddressList は AddressList.IsInitialAddressList が True に設定するプロパティを持つ addresslist オブジェクトを見つける 。 IsInitialAddressList は、 ツール、し、[ アドレス帳] ダイアログ ボックスで オプションをクリックして [ アドレス] ダイアログ ボックスで 最初に表示するアドレス一覧を設定するのには対応しています。
例
InitialAddressList および SelectNamesDialog.ShowOnlyInitialAddressList を使用して、 [名前の選択] ダイアログ ボックスが常に初期のアドレス一覧のユーザーの設定に関係なく、既定の連絡先フォルダーにアドレス一覧だけを表示する方法を次のコード例に示します。
Sub ShowOnlyContacts()
Dim oMsg As MailItem
Set oMsg = Application.CreateItem(olMailItem)
Dim oDialog As SelectNamesDialog
Set oDialog = Application.Session.GetSelectNamesDialog
Dim oContacts As Folder
Set oContacts = _
Application.Session.GetDefaultFolder(olFolderContacts)
Dim oAL As AddressList
For Each oAL In Application.Session.AddressLists
If oAL.GetContactsFolder = oContacts Then
Exit For
End If
Next
With oDialog
.InitialAddressList = oAL
.ShowOnlyInitialAddressList = True
.Recipients = oMsg.Recipients
If .Display Then
'Recipients Resolved
End If
End With
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。