MailItem.Sender property (Outlook)
Gibt ein AddressEntry-Objekt zurück oder legt dieses fest, das dem Benutzer des Kontos entspricht, von dem aus das MailItem-Objekt gesendet wurde. Lese-/Schreibzugriff.
Syntax
Ausdruck. Sender
Ausdruck Eine Variable, die ein MailItem-Objekt darstellt.
Bemerkungen
In einer Sitzung mit mehreren definierten Konten im Profil können Sie diese Eigenschaft so festlegen, dass sie das Konto angibt, von dem E-Mail-Elemente gesendet werden sollen. Legen Sie diese Eigenschaft auf das AddressEntry-Objekt des Benutzers fest, der durch die CurrentUser-Eigenschaft eines bestimmten Kontos dargestellt wird.
Wenn Sie die Eigenschaft Sender auf einen AddressEntry festlegen, der nicht über Berechtigungen zum Senden von Nachrichten für dieses Konto verfügt, löst Microsoft Outlook einen Fehler aus.
Beispiel
Michael Bauer hat das folgende Codebeispiel bereitgestellt. Michael ist ein Microsoft Most Valuable Professional mit Erfahrung in der Entwicklung von Outlook-Lösungen in Visual Basic und Visual Basic for Applications (VBA). Michael betreibt eine professionelle Website unter VBOffice.net.
Das folgende VBA-Codebeispiel zeigt, wie die Details des Absenders einer E-Mail angezeigt werden. Wenn der Absender einem Kontakt im Outlook-Kontaktadressbuch entspricht, zeigt das Codebeispiel Informationen zu diesem Kontakt in einem Inspektor an. Wenn der Absender kein Kontakt im Kontaktadressbuch ist, zeigt das Codebeispiel Details aus dem Adresseintrag des Benutzers (entnommen aus dem Adressbuchcontainer des Transportanbieters) in einem Dialogfeld an.
Um Informationen zu einem Absender anzuzeigen, sollte der Benutzer ein MailItem-Objekt im Explorer ausgewählt haben. Das Codebeispiel überprüft auch, ob das ausgewählte MailItem-Objekt gesendet wurde, da die Sender-Eigenschaft nur definiert wird, wenn das Mailtem gesendet wurde. Das Beispiel greift dann auf die Sender-Eigenschaft zu, um das AddressEntry-Objekt abzurufen, das dem Absender dieses E-Mail-Elements entspricht, und zeigt die Kontaktinformationen an, sofern vorhanden. Andernfalls werden im Beispiel die Adresseintragsdetails angezeigt.
Public Sub DisplaySenderDetails()
Dim Explorer As Outlook.Explorer
Dim CurrentItem As Object
Dim Sender As Outlook.AddressEntry
Dim Contact As Outlook.ContactItem
Set Explorer = Application.ActiveExplorer
' Check whether any item is selected in the current folder.
If Explorer.Selection.Count Then
' Get the first selected item.
Set CurrentItem = Explorer.Selection(1)
' Check for the type of the selected item as only the
' MailItem object has the Sender property.
If CurrentItem.Class = olMail Then
Set Sender = CurrentItem.Sender
' There is no sender if the item has not been sent yet.
If Sender Is Nothing Then
MsgBox "There's no sender for the current email", vbInformation
Exit Sub
End If
Set Contact = Sender.GetContact
If Not Contact Is Nothing Then
' The sender is stored in the contacts folder,
' so the contact item can be displayed.
Contact.Display
Else
' If the contact cannot be found, display the
' address entry in the properties dialog box.
Sender.Details 0
End If
End If
End If
End Sub
Siehe auch
Weitere Ressourcen
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.