SelectNamesDialog.ShowOnlyInitialAddressList プロパティ (Outlook)
ブールSelectNamesDialog.InitialAddressList で表される AddressList が、唯一 addresslist オブジェクトを見つける [ 名前の選択] ダイアログ ボックスで アドレス帳のドロップ ダウン リストで利用可能であるかどうかを設定または返します。 値の取得と設定が可能です。
構文
式。 ShowOnlyInitialAddressList
式SelectNamesDialog オブジェクトを表す変数。
注釈
このプロパティの既定値が False 、すべてのアドレス一覧が表示されることを意味します。 InitialAddressList によって示される 1 つに アドレス帳のドロップ ダウン リストを制限、 ShowOnlyInitialAddressList を True に設定します。
InitialAddressList プロパティを設定せず、ShowOnlyInitialAddressList を True に設定した場合、AddressList.IsInitialAddressList が True と等しい AddressList は、アドレス帳のドロップダウン リストで使用できる唯一のアドレス一覧になります。
例
IsInitialAddressList および 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 のサポートおよびフィードバックを参照してください。