Метод AddressList.GetContactsFolder (Outlook)
Получает объект Folder , представляющий папку Contacts для объекта AddressList .
Синтаксис
выражение. GetContactsFolder
Выражение Переменная, представляющая объект AddressList .
Возвращаемое значение
Объект Folder , представляющий папку Контактов Outlook для AddressList. Возвращает значение NULL (Nothing в Visual Basic), если папка контактов Outlook не найдена.
Замечания
Этот метод позволяет сопоставить AddressList для папки Контакты, которую вы хотите настроить в качестве начального списка адресов в диалоговом окне Выбор имен .
Пример
В следующем примере кода показано, как инициализировать диалоговое окно Выбор имен с помощью AddressList для папки Контактов по умолчанию. Сначала он получает объект Folder для папки контактов по умолчанию и ищет его AddressList путем сравнения идентификатора записи этого объекта Folder с идентификатором записи объекта Folder, связанного с каждым AddressList в текущем сеансе, пока не найдет совпадение. Затем он задает свойство InitialAddressList и отображает диалоговое окно Выбор имен .
Sub SetContactsFolderAsInitialAddressList()
Dim oMsg As MailItem
Set oMsg = Application.CreateItem(olMailItem)
Dim oDialog As SelectNamesDialog
Set oDialog = Application.Session.GetSelectNamesDialog
Dim oAL As AddressList
Dim oContacts As Folder
Set oContacts = _
Application.Session.GetDefaultFolder(olFolderContacts)
On Error GoTo HandleError
'Look for the AddressList for the default Contacts folder
For Each oAL In Application.Session.AddressLists
If oAL.AddressListType = olOutlookAddressList Then
If oAL.GetContactsFolder.EntryID = _
oContacts.EntryID Then
Exit For
End If
End If
Next
With oDialog
.Caption = "Select Customer Contact"
.ToLabel = "Customer C&ontact"
.NumberOfRecipientSelectors = olShowTo
.InitialAddressList = oAL
'Let the selected names be the recipients of the new message
.Recipients = oMsg.Recipients
If .Display Then
'Recipients Resolved
End If
End With
HandleError:
Exit Sub
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.