Const PR_SENDER_EMAIL_ADDRESS = &HC1F001EConst PR_TRANSPORT_MESSAGE_HEADERS = _
  &H7D001EDim 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!