Метод 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.