VBScript

Attach Email as message/rfc822 sub-part to an Email

See more Email Object Examples

Demonstrates how to add attach a message/rfc822 email to another email. 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)

success = 0

' In this example, we'll attach an email loaded from a .eml file to a new email.

set fac = CreateObject("Chilkat.FileAccess")
emlBytes = fac.ReadEntireFile("qa_data/eml/simple.eml")

set email = CreateObject("Chilkat.Email")
email.Subject = "This is a test email with an attached email."
email.Body = "Test with attached email."
success = email.AddTo("Joe","joe@example.com")
email.From = "mary@example.com"

success = email.AttachMessage(emlBytes)

outFile.WriteLine(email.GetMime())

' ----------------------------------------------------------------------
' Alternatively, we could do this:
set emailToBeAttached = CreateObject("Chilkat.Email")
success = emailToBeAttached.LoadEml("qa_data/eml/simple.eml")

set email2 = CreateObject("Chilkat.Email")
email2.Subject = "This is a test email with an attached email."
email2.Body = "Test with attached email."
success = email2.AddTo("Joe","joe@example.com")
email2.From = "mary@example.com"

emlBytes2 = emailToBeAttached.GetMimeBinary()
success = email2.AttachMessage(emlBytes2)

outFile.WriteLine("----")

outFile.WriteLine(email2.GetMime())

outFile.Close