Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Stellt detaillierte Informationen zu einem AddressEntry-Objekt bereit, das einen Microsoft Exchange-Postfachbenutzer darstellt.
Hinweise
ExchangeUser wird vom AddressEntry-Objekt abgeleitet und wird anstelle eines AddressEntry-Objekts zurückgegeben, wenn der Aufrufer eine Abfrageschnittstelle für das AddressEntry-Objekt ausführt.
Dieses Objekt bietet erstklassigen Zugriff auf Eigenschaften, die für Exchange-Benutzer wie FirstName, JobTitle, LastName und OfficeLocation gelten. Sie können auch auf andere Eigenschaften zugreifen, die für den Exchange-Benutzer spezifisch sind und nicht im Objektmodell über das PropertyAccessor-Objekt verfügbar gemacht werden. Beachten Sie, dass einige der expliziten integrierten Eigenschaften Lese-/Schreibeigenschaften sind. Durch Festlegen dieser Eigenschaften muss der Code unter einem geeigneten Exchange-Administratorkonto ausgeführt werden; ohne ausreichende Berechtigungen führt Aufrufen der ExchangeUser.Update -Methode einen Fehler "Berechtigung verweigert".
Beispiel
Im folgenden Codebeispiel wird die Vorgehensweise zum Erhalten der Geschäftsrufnummer, des Bürostandorts und der Position für alle Einträge in der globalen Exchange-Adressenliste gezeigt.
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
Methoden
Eigenschaften
Siehe auch
ExchangeUser-ObjektelementeOutlook-Objektmodellreferenz
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.