SelectNamesDialog.ShowOnlyInitialAddressList 属性 (Outlook)

  • 项目

返回或设置一个 boolean 类型的值 ，确定是否由 SelectNamesDialog.InitialAddressList设置 为仅 设置通讯簿选择姓名对话框中的下拉列表中可用。 读/写。

语法

expression。 ShowOnlyInitialAddressList

表达 一个代表 SelectNamesDialog 对象的变量。

备注

此属性的默认值为 False ，表示显示所有地址列表。 若要限制所指示的 InitialAddressList地址簿的下拉列表，请将 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

另请参阅

SelectNamesDialog 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。