Freigeben über


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

AddressEntry-Objekt

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.