Weiß jemand wie ich mit VBA den Header einer Email in Outlook auslesen kann?
Const PR\_SENDER\_EMAIL\_ADDRESS = &HC1F001E
Const PR\_TRANSPORT\_MESSAGE\_HEADERS = &H7D001E
Dim oSession As MAPI.SESSION, oFolder As MAPI.Folder, \_
oMsgColl As MAPI.Messages, oMessage As MAPI.Message
' Logon to the MAPI session
Set oSession = New MAPI.SESSION
oSession.Logon
' Get the Inbox folder and its message collection.
Set oFolder = oSession.GetDefaultFolder(CdoDefaultFolderInbox)
Set oMsgColl = oFolder.Messages
For Each oMessage In oMsgColl
With oMessage
Debug.Print .Sender; ": "; .Subject
Debug.Print " "; .Fields(PR\_SENDER\_EMAIL\_ADDRESS); \_
", "; .Fields(PR\_TRANSPORT\_MESSAGE\_HEADERS)
End With
Next
' Logoff
oSession.Logoff
Verweis auf die CDO-Library (CDO.DLL oder wie auch immer) setzen!
Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - VB(A) Tipps & Tricks)