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

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loFac = createobject("CkFileAccess")
loEmlBytes = loFac.ReadEntireFile("qa_data/eml/simple.eml")

loEmail = createobject("CkEmail")
loEmail.Subject = "This is a test email with an attached email."
loEmail.Body = "Test with attached email."
loEmail.AddTo("Joe","joe@example.com")
loEmail.From = "mary@example.com"

llSuccess = loEmail.AttachMessage(loEmlBytes)

? loEmail.GetMime()

// ----------------------------------------------------------------------
// Alternatively, we could do this:
loEmailToBeAttached = createobject("CkEmail")
llSuccess = loEmailToBeAttached.LoadEml("qa_data/eml/simple.eml")

loEmail2 = createobject("CkEmail")
loEmail2.Subject = "This is a test email with an attached email."
loEmail2.Body = "Test with attached email."
loEmail2.AddTo("Joe","joe@example.com")
loEmail2.From = "mary@example.com"

loEmlBytes2 = loEmailToBeAttached.GetMimeBinary()
llSuccess = loEmail2.AttachMessage(loEmlBytes2)

? "----"

? loEmail2.GetMime()


release loFac
release loEmail
release loEmailToBeAttached
release loEmail2