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 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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