AddressList.GetContactsFolder 方法 (Outlook)
获取 Folder 对象，该对象代表 AddressList 对象的"联系人"文件夹。
语法
expression。 GetContactsFolder
表达 一个代表 AddressList 对象的变量。
返回值
表示 设置 Outlook 联系人文件夹的 文件夹 对象。 如果未找到 Outlook“联系人”文件夹，则返回 Null（在 Visual Basic 中为 Nothing）。
备注
此方法允许您匹配您想要设置为初始地址列表的 选择姓名对话框中的联系人文件夹的 设置 。
示例
下面的代码示例演示如何初始化 设置 为默认的联系人文件夹的 选择姓名对话框。 它首先获取默认联系人文件夹的 Folder 对象，并通过将此 Folder 对象的条目 ID 与当前会话中每个 AddressList 关联的 Folder 对象的条目 ID 进行比较来查找其 AddressList，直到找到匹配项。 然后设置 InitialAddressList 属性，并显示 选择姓名对话框。
Sub SetContactsFolderAsInitialAddressList()
Dim oMsg As MailItem
Set oMsg = Application.CreateItem(olMailItem)
Dim oDialog As SelectNamesDialog
Set oDialog = Application.Session.GetSelectNamesDialog
Dim oAL As AddressList
Dim oContacts As Folder
Set oContacts = _
Application.Session.GetDefaultFolder(olFolderContacts)
On Error GoTo HandleError
'Look for the AddressList for the default Contacts folder
For Each oAL In Application.Session.AddressLists
If oAL.AddressListType = olOutlookAddressList Then
If oAL.GetContactsFolder.EntryID = _
oContacts.EntryID Then
Exit For
End If
End If
Next
With oDialog
.Caption = "Select Customer Contact"
.ToLabel = "Customer C&ontact"
.NumberOfRecipientSelectors = olShowTo
.InitialAddressList = oAL
'Let the selected names be the recipients of the new message
.Recipients = oMsg.Recipients
If .Display Then
'Recipients Resolved
End If
End With
HandleError:
Exit Sub
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。