SelectNamesDialog.InitialAddressList 属性 (Outlook)
返回或设置一个 AddressList 对象,确定要在 "选择姓名" 对话框中显示的初始地址列表。 读/写。
语法
expression。 InitialAddressList
表达 一个代表 SelectNamesDialog 对象的变量。
备注
设置 InitialAddressList 属性等效编程到 通讯簿中 选择姓名对话框中从下拉列表中选择 设置 。
在默认状态下, InitialAddressList 将 AddressList.IsInitialAddressList 设置 为 其属性 设置 。 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。