AddressEntry.AddressEntryUserType-Eigenschaft (Outlook)
Gibt eine Konstante aus der OlAddressEntryUserType -Auflistung zurück, die den Benutzertyp des AddressEntry -Objekts darstellt. Schreibgeschützt.
Syntax
Ausdruck. AddressEntryUserType
Ausdruck: Eine Variable, die ein AddressEntry-Objekt darstellt.
Hinweise
AddressEntryUserType bietet ein Maß an Granularität für Benutzertypen, die als der AddressEntry.DisplayType feinere ist. Die DisplayType-Eigenschaft unterscheidet keine Benutzer mit unterschiedlichen Typen von AddressEntry, z. B. addressEntry mit einer SMTP-E-Mail-Adresse (Simple Mail Transfer Protocol), einer LDAP-Adresse (Lightweight Directory Access Protocol), einer Exchange-Benutzeradresse oder einer AddressEntry-Adresse im Outlook-Kontaktadressbuch. Alle diese Einträge haben OlUser als ihre AddressEntry.DisplayType.
Beispiel
Das folgende Codebeispiel zeigt, wie zum erhalten der Geschäftsrufnummer, Bürostandort und Position für alle Exchange-Benutzereinträge in der globalen Adressliste von Exchange. Es wird zunächst AddressList.AddressListType die globale Adressenliste gesucht. Da der globalen Adressliste für jede AddressEntry-Objekt auf, die mehrere Typen von Einträgen wie Exchange-Benutzer, öffentlichen Exchange-Ordner und Exchange-Verteilerliste enthalten kann verwendet AddressList-Objekt, das Codebeispiel AddressEntryUserType überprüfen, ob das AddressEntry-Objekt ein Exchange-Benutzers darstellt. Nachdem sie einen Exchange-Benutzer findet, ruft ab und druckt die verschiedenen Teile der Daten für den Benutzer.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.