Méthode AddressEntry.GetExchangeUser (Outlook)

Renvoie un objet ExchangeUser qui représente l’objet AddressEntry si l’objet AddressEntry appartient à un objet AddressList Exchange tel que la liste d’adresses globale (GAL) et correspond à un utilisateur Exchange.

Syntaxe

expression. GetExchangeUser

Expression Variable qui représente un objet AddressEntry .

Valeur renvoyée

Un objet ExchangeUser qui représente l’objet AddressEntry. Renvoie null (Nothing en Visual Basic) si l’objet AddressEntry ne correspond pas à un utilisateur Exchange.

Remarques

Pour pouvoir utiliser cette méthode, vous devez être connecté au serveur Exchange.

Si une chaîne transmise à l’aide de cette méthode a un jeu de caractères similaire à une entrée d’adresse existante, la valeur de retour peut inclure une entrée qui est mise en correspondance en fonction de la première lettre de la chaîne passée.

Par exemple, vous transmettez la chaîne « Jack » pour un utilisateur Exchange qui a une entrée d’adresse « Jai » dans son carnet d’adresses Outlook, mais pas « Jack ». Même si l’entrée « Jack » n’est pas disponible dans le carnet d’adresses Outlook, l’adresse e-mail retournée est « Jai » plutôt que « Null ».

Exemple

L’exemple de code suivant montre comment obtenir le numéro de téléphone professionnel, l’adresse professionnelle et la fonction de tous les utilisateurs Exchange dans la Liste d’adresses globale d’Exchange. Il utilise d’abord AddressList.AddressListType pour rechercher la liste d’adresses globale. Pour chaque AddressEntry de ce AddressList, il utilise AddressEntryUserType pour vérifier si AddressEntry représente un utilisateur Exchange. Une fois qu’il a trouvé un utilisateur Exchange, il utilise GetExchangeUser pour obtenir et imprimer les différents éléments de données de l’utilisateur.

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

Voir aussi

AddressEntry, objet

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.