AddressEntry.AddressEntryUserType Property (Outlook)

Office 2013 and later

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Returns a constant from the OlAddressEntryUserType enumeration representing the user type of the AddressEntry. Read-only.

expression .AddressEntryUserType

expression A variable that represents an AddressEntry object.

AddressEntryUserType provides a level of granularity for user types that is finer than that of AddressEntry.DisplayType. The DisplayType property does not distinguish users with different types of AddressEntry, such as an AddressEntry that has a Simple Mail Transfer Protocol (SMTP) e-mail address, a Lightweight Directory Access Protocol (LDAP) address, an Exchange user address, or an AddressEntry in the Outlook Contacts Address Book. All these entires have olUser as their AddressEntry.DisplayType.

The following code sample shows how to obtain the business phone number, office location, and job title for all Exchange user entries in the Exchange Global Address List. It first uses AddressList.AddressListType to find the Global Address List. Since the Global Address List can contain multiple types of entries such as Exchange user, Exchange distribution list, and Exchange public folder, for each AddressEntry on that AddressList, the code sample uses AddressEntryUserType to verify if the AddressEntry represents an Exchange user. After it finds an Exchange user, it obtains and prints the various pieces of data for the user.

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 
 End If 
 End If 
End Sub 

© 2015 Microsoft