Свойство AddressEntry.AddressEntryUserType (Outlook)

Статья
04/07/2023

Возвращает константу из перечисления OlAddressEntryUserType , представляющего тип пользователя AddressEntry. Только для чтения.

Синтаксис

выражение. AddressEntryUserType

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

Замечания

AddressEntryUserType обеспечивает уровень детализации для типов пользователей, который тоньше, чем у AddressEntry.DisplayType. Свойство DisplayType не различает пользователей с разными типами AddressEntry, таких как AddressEntry с адресом электронной почты SMTP, ldap-адресом, адресом пользователя Exchange или AddressEntry в адресной книге контактов Outlook. Все эти целые имеют olUser в качестве AddressEntry.DisplayType.

Пример

В следующем примере кода показано, как получить номер бизнес-телефона, расположение офиса и должность для всех записей пользователей Exchange в глобальном списке адресов Exchange. Сначала он использует AddressList.AddressListType для поиска глобального списка адресов. Так как глобальный список адресов может содержать несколько типов записей, таких как пользователь Exchange, список рассылки Exchange и общедоступная папка Exchange, для каждого addressEntry в этом списке AddressList в примере кода используется AddressEntryUserType , чтобы проверить, представляет ли AddressEntry пользователя Exchange. После того как он находит пользователя Exchange, он получает и выводит различные фрагменты данных для пользователя.

Sub DemoAE() 
 
 Dim colAL As Outlook.AddressLists 
 
 Dim oAL As Outlook.AddressList 
 
 Dim colAE As Outlook.AddressEntries 
 
 Dim oAE As Outlook.AddressEntry 
 
 Dim oExUser As Outlook.ExchangeUser 
 
 Set colAL = Application.Session.AddressLists 
 
 For Each oAL In colAL 
 
 'Address list is an Exchange Global Address List 
 
 If oAL.AddressListType = olExchangeGlobalAddressList Then 
 
 Set colAE = oAL.AddressEntries 
 
 For Each oAE In colAE 
 
 If oAE.AddressEntryUserType = _ 
 
 olExchangeUserAddressEntry Then 
 
 Set oExUser = oAE.GetExchangeUser 
 
 Debug.Print(oExUser.JobTitle) 
 
 Debug.Print(oExUser.OfficeLocation) 
 
 Debug.Print(oExUser.BusinessTelephoneNumber) 
 
 End If 
 
 Next 
 
 End If 
 
 Next 
 
End Sub

См. также

Объект AddressEntry

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

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

Поделиться через