Zuordnen eines Anzeigenamens zu einer Email Adresse

Dieses Thema zeigt ein Codebeispiel in Visual Basic for Applications (VBA), das einen Anzeigenamen annimmt und versucht, ihn einer E-Mail-Adresse zuzuordnen, die dem Messagingsystem in der aktuellen Sitzung bekannt ist.

Für jede Outlook-Sitzung definiert der Transportanbieter einen Satz von Adressbuchcontainern, in die das Messagingsystem Nachrichten übermitteln kann. Jeder Adressbuchcontainer entspricht einer Adressliste in Outlook. Wenn ein Anzeigename in der Gruppe von Adressbuchcontainern definiert ist, kann der Anzeigename in der aktuellen Sitzung aufgelöst werden, und es gibt einen Eintrag in einer Adressliste, der diesem Anzeigenamen zugeordnet ist. Beachten Sie, dass Einträge in einer Adressliste verschiedene Typen aufweisen können, einschließlich eines Exchange-Benutzers und einer Exchange-Verteilerliste.

In diesem Codebeispiel verwendet die Funktion ResolveDisplayNameToSMTP den Anzeigenamen "Dan Wilson" als Beispiel. Zunächst wird versucht, zu überprüfen, ob der Anzeigename in einer Adressliste definiert ist, indem ein Recipient-Objekt basierend auf diesem Anzeigenamen erstellt und dann Recipient.Resolve aufgerufen wird. Wenn der Name aufgelöst wird, ResolveDisplayNameToSMTP verwendet das AddressEntry-Objekt , das dem Recipient-Objekt zugeordnet ist, um den Typ und, falls möglich, die E-Mail-Adresse weiter abzurufen:

• Wenn der Typ des AddressEntry -Objekts ein Exchange-Benutzer ist, ruft ResolveDisplayNameToSMTPAddressEntry.GetExchangeUser auf, um das entsprechende ExchangeUser -Objekt abzurufen. ExchangeUser.PrimarySmtpAddress stellt die E-Mail-Adresse bereit, die dem Anzeigenamen zugeordnet ist.

• Wenn das AddressEntry -Objekt eine Exchange-Verteilerliste ist, ruft ResolveDisplayNameToSMTPAddressEntry.GetExchangeDistributionList auf, um ein ExchangeDistributionList -Objekt abzurufen. ExchangeDistributionList.PrimarySmtpAddress stellt die E-Mail-Adresse bereit, die dem Anzeigenamen zugeordnet ist.

Sub ResolveDisplayNameToSMTP() 
 Dim oRecip As Outlook.Recipient 
 Dim oEU As Outlook.ExchangeUser 
 Dim oEDL As Outlook.ExchangeDistributionList 
 
 Set oRecip = Application.Session.CreateRecipient("Dan Wilson") 
 oRecip.Resolve 
 If oRecip.Resolved Then 
 Select Case oRecip.AddressEntry.AddressEntryUserType 
 Case OlAddressEntryUserType.olExchangeUserAddressEntry 
 Set oEU = oRecip.AddressEntry.GetExchangeUser 
 If Not (oEU Is Nothing) Then 
 Debug.Print oEU.PrimarySmtpAddress 
 End If 
 Case OlAddressEntryUserType.olExchangeDistributionListAddressEntry 
 Set oEDL = oRecip.AddressEntry.GetExchangeDistributionList 
 If Not (oEDL Is Nothing) Then 
 Debug.Print oEDL.PrimarySmtpAddress 
 End If 
 End Select 
 End If 
End Sub

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.