(Xojo Plugin) Attach Email as message/rfc822 sub-part to an Email

Demonstrates how to add attach a message/rfc822 email to another email.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim success As Boolean
Dim emlBytes As MemoryBlock

Dim fac As New Chilkat.FileAccess
emlBytes = fac.ReadEntireFile("qa_data/eml/simple.eml")

Dim email As New 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)

System.DebugLog(email.GetMime())

// ----------------------------------------------------------------------
// Alternatively, we could do this:
Dim emailToBeAttached As New Chilkat.Email
success = emailToBeAttached.LoadEml("qa_data/eml/simple.eml")

Dim email2 As New 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"

Dim emlBytes2 As MemoryBlock
emlBytes2 = emailToBeAttached.GetMimeBinary()
success = email2.AttachMessage(emlBytes2)

System.DebugLog("----")

System.DebugLog(email2.GetMime())