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 email As New ChilkatEmail2

'  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"

Dim success As Long

Dim contentType As String
contentType = email.AddFileAttachment("il1120.pdf")
If (contentType = vbNullString ) Then
    Text1.Text = Text1.Text & email.LastErrorText & vbCrLf
    Exit Sub
End If

'  Call GetMime to get the raw message source.
Dim mimeSource As String
mimeSource = email.GetMime()

Text1.Text = Text1.Text & mimeSource & vbCrLf