Partager via


Objet ExchangeUser (Outlook)

Fournit des informations détaillées sur un objet AddressEntry qui représente un utilisateur de boîte aux lettres Microsoft Exchange.

Remarques

ExchangeUser est dérivé de l'objet AddressEntry et est renvoyé à la place d'un objet AddressEntry lorsque l'appelant exécute une interface de requête sur l'objet AddressEntry.

Cet objet fournit un accès de première classe aux propriétés applicables aux utilisateurs Exchange, telles que FirstName, JobTitle, LastName et OfficeLocation. Vous pouvez également accéder à d’autres propriétés spécifiques à l’utilisateur Exchange qui ne sont pas exposées dans le modèle objet via l’objet PropertyAccessor . Notez que certaines propriétés intégrées explicites sont en lecture-écriture. La définition de ces propriétés nécessite que le code s’exécute sous un compte d’administrateur Exchange approprié . sans autorisations suffisantes, l’appel de la méthode ExchangeUser.Update entraîne une erreur « autorisation refusée ».

Exemple

L'exemple de code suivant montre comment obtenir le numéro de téléphone professionnel, la situation du bureau et la fonction pour toutes les entrées de la liste d'adresses globale d'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

Méthodes

Nom
Delete
Details
GetContact
GetDirectReports
GetExchangeDistributionList
GetExchangeUser
GetExchangeUserManager
GetFreeBusy
GetMemberOfList
GetPicture
Mettre à jour
GetUnifiedGroup
GetUnifiedGroupFromStore
IsUnifiedGroup

Propriétés

Nom
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

Voir aussi

Informations de référence sur le modèle objet Outlook membres de l’objet ExchangeUser

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.