title image


Smiley Tipp: Per CDO den Message Header auslesen
Etwa so:



Public Function ListMailFolderCDO(Optional ByVal Fold As Long = CdoDefaultFolderInbox)

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(Fold)

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 and cleanup

oSession.Logoff

Set oMsgColl = Nothing

Set oFolder = Nothing

Set oSession = Nothing

Set oMessage = Nothing

End Function







Verweis auf die CDO.DLL setzen! (Leider ist CDO eine ziemliche Baustelle - je nach Version sieht das Objektmodell unterschiedlich aus).


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: