Поделиться через

Отображение диалогового окна для выбора записей из папки "Контакты"

  • Статья

В этом разделе описывается использование объекта SelectNamesDialog для отображения записей из папки Контакты в диалоговом окне, похожем на диалоговое окно Выбор имен в пользовательском интерфейсе Outlook.

  1. Найдите список адресов, соответствующий папке Контакты. Объект SelectNamesDialog отображает целые элементы в диалоговом окне на основе AddressList. Чтобы отобразить записи в папке Контакты, найдите AddressList , соответствующий папке Контакты. Выполните итерацию по всем спискам адресов, определенным для текущего сеанса, и для каждого списка адресов используйте AddressList.GetContactsFolder , чтобы сопоставить соответствующую папку с папкой Contacts.

  2. Инициализируйте диалоговое окно со списком адресов папки Контакты.

  3. Используйте selectNamesDialog.Display для отображения диалогового окна. Если selectNamesDialog.Display возвращает значение True, выбранные записи будут доступны в SelectNamesDialog.Recipients.

Sub ShowContactsInDialog() 
 Dim oDialog As SelectNamesDialog 
 Dim oAL As AddressList 
 Dim oContacts As Folder 
 
 Set oDialog = Application.Session.GetSelectNamesDialog 
 Set oContacts = _ 
 Application.Session.GetDefaultFolder(olFolderContacts) 
 
 'Look for the address list that corresponds with the Contacts folder 
 For Each oAL In Application.Session.AddressLists 
 If oAL.GetContactsFolder = oContacts Then 
 Exit For 
 End If 
 Next 
 With oDialog 
 'Initialize the dialog box with the address list representing the Contacts folder 
 .InitialAddressList = oAL 
 .ShowOnlyInitialAddressList = True 
 If .Display Then 
 'Recipients Resolved 
 'Access Recipients using oDialog.Recipients 
 End If 
 End With 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.