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