Объект ExchangeUser (Outlook)
Содержит подробные сведения о AddressEntry , представляющего пользователя почтового ящика Microsoft Exchange.
Замечания
ExchangeUser является производным от объекта AddressEntry и возвращается вместо AddressEntry , когда вызывающий объект выполняет интерфейс запроса к объекту AddressEntry .
Этот объект предоставляет первоклассный доступ к свойствам, применимым к пользователям Exchange, таким как FirstName, JobTitle, LastName и OfficeLocation. Вы также можете получить доступ к другим свойствам, характерным для пользователя Exchange, которые не предоставляются в объектной модели с помощью объекта PropertyAccessor . Обратите внимание, что некоторые явные встроенные свойства являются свойствами чтения и записи. Для установки этих свойств код должен выполняться под соответствующей учетной записью администратора Exchange. без достаточных разрешений вызов метода ExchangeUser.Update приведет к ошибке "отказано в разрешении".
Пример
В следующем примере кода показано, как получить номер бизнес-телефона, расположение офиса и должность для всех записей в глобальном списке адресов 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
Методы
Свойства
См. также
Справочник по объектной модели Outlookдля членов объекта ExchangeUser
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.