Stripping Email Headers?

[jrapp]

Hey everyone,
I'm working on an email tracking system for a customer service company. I've established how to send and recieve messages, but my question is, does anybody have any suggestions as how to strip out the headers from the message so that I can forward it to another mailbox? Thanks!

Jeff Rapp

 

[johnwm]

If you're using a MapiMessage control to fetch the email then setting the MsgIndex to loop through form 0 to MsgCount - 1 will reference each email in your Inbox in turn. From there you can access the body with MsgNoteText. The MapiMessage control I'm using is called mapMess.

mapMess.Fetch
'MsgBox "Total Message: " + Str(mapMess.MsgCount)
Dim myMessage As Long
For myMessage = 0 To mapMess.MsgCount - 1
mapMess.MsgIndex = myMessage
Debug.Print mapMess.MsgNoteText
Next


________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'