VBScript

Get the Full MIME of an Email

Demonstrates the Chilkat Email.GetMime method, which returns the email as RFC822/MIME text containing the headers, body representations, related items, and attachments. The result is suitable for saving as a .eml file. This example builds a message and prints its MIME.

Background: MIME is the on-the-wire text format of an email — the exact bytes a mail server sends and receives. GetMime serializes the in-memory Email object into that format, assembling headers, encoding attachments as Base64, and adding the multipart boundaries that separate the parts. It is the natural way to persist a message (as .eml), inspect exactly what will be transmitted, or hand the message to another system.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

'  Demonstrates the GetMime method, which returns the email as RFC822/MIME text containing
'  the headers, body representations, related items, and attachments.

set email = CreateObject("Chilkat.Email")
email.Subject = "GetMime example"
email.From = "alice@example.com"
success = email.AddTo("Bob","bob@example.com")
email.Body = "Hello, this is the message body."

'  Get the complete RFC822/MIME text (suitable for saving as a .eml file).
outFile.WriteLine(email.GetMime())

outFile.Close