Метод AddressEntry.GetExchangeUser (Outlook)

Статья
04/07/2023

Возвращает объект ExchangeUser , представляющий AddressEntry , если AddressEntry принадлежит объекту Exchange AddressList , например глобальному списку адресов (GAL), и соответствует пользователю Exchange.

Синтаксис

выражение. GetExchangeUser

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

Возвращаемое значение

Объект ExchangeUser , представляющий AddressEntry. Возвращает значение NULL (Nothing в Visual Basic), если объект AddressEntry не соответствует пользователю Exchange.

Замечания

Чтобы использовать этот метод, необходимо подключиться к серверу Exchange Server.

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

Например, вы передаете строку "Jack" для пользователя Exchange, у которого в адресной книге Outlook есть адресная запись "Jai", но не "Jack". Несмотря на то, что запись "Jack" недоступна в адресной книге Outlook, возвращаемый адрес электронной почты имеет значение "Jai", а не "Null".

Пример

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

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 _ 
               Or oAE.AddressEntryUserType = olExchangeRemoteUserAddressEntry 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 и обратная связь.

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