Outlook Mailitem SenderEmailAddress

[Hubert Holler]

Ich verwende in vb6 ein Objekt Outlook.Mailitem, wo ich von einem E-Mail die
E-Mail Adresse hole.
Beispiel:

Dim oMail As Outlook.MailItem
oMail.SenderEmailAddress 'Liefert die E-Mail Adresse

Dies funktioniert auch ohne Probleme.
Wenn man aber Exchange E-Mail Adressen verwendet und dann den selben
Parameter (SenderEmailAdress) bei diesem Exchange Mail aufruft erhält man
z.B. folgenden Wert:
/O=UNYCOM/OU=FIRST ADMINISTRATIVE GROUP/CN=RECIPIENTS/CN=VORNAM NACHNAME

Wie bekomme ich da aber auch die E-Mail Adresse?
Hoffe da kann mir jemand weiterhelfen.
Vielen Dank für jede Antwort

[Udo Riesmeier]

Hi,

ich gehe davon aus, das der entsprechende Recipient.AddressEntry.Type ="EX"
ist?
dann ist es eine Excange - Adresse, die du unter Office 2007 relativ einfach
auslösen kannst:

Set oExchangeUser = Recipient.AddressEntry.GetExchangeDistributionList
sMailAddress=oExchangeUser.PrimarySmtpAddress

bei Office 2000 - 2003 geht es nur dann, wenn die CDO installiert ist:

Set CdoSession = CreateObject("MAPI.Session")
If Not CdoSession Is Nothing Then
CdoSession.Logon ShowDialog:=False, NewSession:=False
Set CdoAddressLists = CdoSession.AddressLists
For Each CdoAddressList In CdoAddressLists
Set CdoAddressEntries = CdoAddressList.AddressEntries
For Each CdoAddressEntry In CdoAddressEntries
If SameString(CdoAddressEntry.Name, sAddress) Then
Select Case CdoAddressEntry.fields(CdoPR_ADDRTYPE)
Case "EX"
For Each V In
CdoAddressEntry.fields(SMTP_ADDRESS).Value
If SameString(Left$(V, 4), "SMTP",
vbBinaryCompare) Then
sMailAddress= Mid$(V, 6)
Exit For
End If
Next
....
....
....
....

Gruß

Udo

"Hubert Holler" <haif...@gmx.net> schrieb im Newsbeitrag
news:4c2c4$4936880d$d52f32a0$29...@news.chello.at...