Объект 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

Методы

Имя
Delete
Details
GetContact
GetDirectReports
GetExchangeDistributionList
GetExchangeUser
GetExchangeUserManager
GetFreeBusy
GetMemberOfList
GetPicture
Обновление
GetUnifiedGroup
GetUnifiedGroupFromStore
IsUnifiedGroup

Свойства

Имя
Address
AddressEntryUserType
Alias
Application
AssistantName
BusinessTelephoneNumber
City
Class
Comments
CompanyName
Department
DisplayType
FirstName
ID
JobTitle
LastName
MobileTelephoneNumber
Name
OfficeLocation
Parent
PostalCode
PrimarySmtpAddress
PropertyAccessor
Session
StateOrProvince
StreetAddress
Type
YomiCompanyName
YomiDepartment
YomiDisplayName
YomiFirstName
YomiLastName

См. также

Справочник по объектной модели Outlookдля членов объекта ExchangeUser

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

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