Метод NameSpace.GetSelectNamesDialog (Outlook)

Получает объект SelectNamesDialog для текущего сеанса.

Синтаксис

выражение. GetSelectNamesDialog

Выражение Переменная, представляющая объект NameSpace.

Возвращаемое значение

Объект SelectNamesDialog для текущего сеанса. Объект SelectNamesDialog поддерживает отображение диалогового окна Выбор имен , в котором пользователь может выбрать записи из одного или нескольких списков адресов в текущем сеансе.

Пример

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

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

См. также

Объект NameSpace

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

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