Свойство SelectNamesDialog.InitialAddressList (Outlook)
Возвращает или задает объект AddressList , который определяет начальный список адресов, отображаемый в диалоговом окне Выбор имен . Для чтения и записи.
Синтаксис
выражение. InitialAddressList
Выражение Переменная, представляющая объект SelectNamesDialog .
Замечания
Задание свойства InitialAddressList программно эквивалентно выбору AddressList из раскрывающегося списка адресной книги в диалоговом окне Выбор имен .
В состоянии по умолчанию InitialAddressList — это AddressList , свойство AddressList.IsInitialAddressList имеет значение True. 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 и обратная связь.