Outlook Mailitem SenderEmailAddress

03/12/2008 - 14:22 von Hubert Holler | Report spam
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
 

Lesen sie die antworten

#1 Udo Riesmeier
11/12/2008 - 11:06 | Warnen spam
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" schrieb im Newsbeitrag
news:4c2c4$4936880d$d52f32a0$
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



Ähnliche fragen