Propriété AddressEntry.AddressEntryUserType (Outlook)
Retourne une constante de l’énumération OlAddressEntryUserType représentant le type d’utilisateur de l’objet AddressEntry. En lecture seule.
Syntaxe
expression. AddressEntryUserType
Expression Variable qui représente un objet AddressEntry .
Remarques
AddressEntryUserType fournit un niveau de granularité pour les types d’utilisateurs plus fin que celui de AddressEntry.DisplayType. La propriété DisplayType ne distingue pas les utilisateurs avec différents types d’AddressEntry, tels qu’un AddressEntry qui a une adresse de messagerie SMTP (Simple Mail Transfer Protocol), une adresse LDAP (Lightweight Directory Access Protocol), une adresse d’utilisateur Exchange ou une adresse AddressEntry dans le carnet d’adresses des contacts Outlook. Tous ces ensembles ont olUser comme AddressEntry.DisplayType.
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. Celle-ci pouvant contenir plusieurs types d’entrée, notamment un utilisateur Exchange, une liste de distribution Exchange et un dossier public Exchange, pour chaque objet AddressEntry de AddressList, l’exemple de code fait appel à AddressEntryUserType pour vérifier si l’objet AddressEntry représente un utilisateur Exchange. Une fois qu’il a trouvé un utilisateur Exchange, il obtient et imprime 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 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
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.