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
Propriétés
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.
Commentaires
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultez https://aka.ms/ContentUserFeedback.
Envoyer et afficher des commentaires pour