Get Raw Messages Source of an Email (i.e. MIME Source)

The raw message source of an email is obtained by calling the email object's GetMime method.

Download Chilkat Email ActiveX

Download Chilkat IMAP ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set email = CreateObject("Chilkat.Email2")

'  For demonstration purposes, create an email
'  so that GetMime may be called to get the raw MIME source.
'  Email objects received from POP3 or IMAP servers behave the same.
email.Subject = "This is a test"
email.Body = "This is a test"
email.From = "support@chilkatsoft.com"
email.AddTo "Matt","matt@chilkatsoft.com"

contentType = email.AddFileAttachment("il1120.pdf")
If (contentType = vbNullString ) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

'  Call GetMime to get the raw message source.

mimeSource = email.GetMime()

outFile.WriteLine(mimeSource)
outFile.Close