AddressEntry.GetExchangeUser-Methode (Outlook)
Gibt ein ExchangeUser-Objekt zurück, das addressEntry darstellt, wenn addressEntry zu einem Exchange AddressList-Objekt wie der globalen Adressliste (GAL) gehört und einem Exchange-Benutzer entspricht.
Syntax
Ausdruck. GetExchangeUser
Ausdruck: Eine Variable, die ein AddressEntry-Objekt darstellt.
Rückgabewert
Ein ExchangeUser-Objekt, das den AddressEntry darstellt. Gibt NULL (Nothing in Visual Basic) zurück, wenn das AddressEntry-Objekt nicht mit einem Exchange-Benutzer übereinstimmt.
Hinweise
Zum Verwenden dieser Methode muss eine Verbindung zum Exchange-Server bestehen.
Wenn eine mit dieser Methode übergebene Zeichenfolge einen Zeichensatz aufweist, der einem vorhandenen Adresseintrag ähnlich ist, enthält der Rückgabewert möglicherweise einen Eintrag, der basierend auf dem ersten Buchstaben der übergebenen Zeichenfolge gefunden wurde.
Sie übergeben beispielsweise die Zeichenfolge "Jack" für einen Exchange-Benutzer, der einen Adresseintrag "Jai" in seinem Outlook-Adressbuch, aber nicht "Jack" hat. Obwohl der Eintrag "Jack" im Outlook-Adressbuch nicht verfügbar ist, lautet die zurückgegebene E-Mail-Adresse "Jai" und nicht "Null".
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. Für jede AddressEntry für diese AddressList wird AddressEntryUserType verwendet, um zu überprüfen, ob AddressEntry einen Exchange-Benutzer darstellt. Nachdem ein Exchange-Benutzer gefunden wurde, wird GetExchangeUser zum Abrufen und Ausgeben der verschiedenen Daten für den Benutzer verwendet.
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
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.