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