VBA Ol2000: Alternative zu MailItem-Objekt, um Empfänger als E-Mail-Adresse zu bekommen

Hallo,

ich habe ein Antwortformular für OL2000 gebaut (mit Textfeld für AN, CC und BCC). Alles klappt
soweit wunderbar.

Frage:
Wenn ich auf eine Mail antworten möchte, dann steht z.B. in meinem Textfeld AN der Empfänger
in Namensform (z.B. Julia Müller). Ich möchte jedoch, dass der Empfänger als E-Mail-Adresse erscheint
(z.B. julia.mueller@mailserver.de)
Wie könnte ich in meinem Code sAWEmpfaenger so darstellen, dass die echte E-Mail-Adresse erscheint? Gibt
es Alternativen zum MailItem-Object?
Hier ein Ausschnitt des Codes, den ich momantan benutze.

\’On Error GoTo Fehlerbehandlung
Dim KontakteOL As Outlook.MAPIFolder, OrdnerOL As Outlook.MAPIFolder, Posteingang As MAPIFolder
Dim Email As MailItem, AnzahlMails As Integer, sAWEmpfaenger As String, sAWBetreff As String, sInfo As String
Dim Element As Object
Set AppOL = GetObject(, \”Outlook.Application\”)
Set NameSpaceOL = AppOL.GetNamespace(\”MAPI\”)
Set Posteingang = NameSpaceOL.GetDefaultFolder(olFolderInbox)
AnzahlMails = Posteingang.Items.Count
Set Email = Posteingang.Items(AnzahlMails)

For Each Element In ActiveExplorer.Selection
If TypeOf Element Is MailItem Then
Set Email = Element
Else
Exit For
End If
Next

\’Infos vom Kopf der E-Mail auslesen
Me.Caption = Email.Subject & \” Antwortformular: Firma GmbH, Ort\”
sAWBetreff = \”Re: \” & Email.Subject
txtBetreff = sAWBetreff
sAWEmpfaenger = Email.SenderName
txtAN = sAWEmpfaenger

Danke im Voraus für alle Tipps.

mfg
BenC