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

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Local $bSuccess
Local $oEmlBytes

$oFac = ObjCreate("Chilkat_9_5_0.FileAccess")
$oEmlBytes = $oFac.ReadEntireFile("qa_data/eml/simple.eml")

$oEmail = ObjCreate("Chilkat_9_5_0.Email")
$oEmail.Subject = "This is a test email with an attached email."
$oEmail.Body = "Test with attached email."
$oEmail.AddTo("Joe","joe@example.com")
$oEmail.From = "mary@example.com"

$bSuccess = $oEmail.AttachMessage($oEmlBytes)

ConsoleWrite($oEmail.GetMime() & @CRLF)

; ----------------------------------------------------------------------
; Alternatively, we could do this:
$oEmailToBeAttached = ObjCreate("Chilkat_9_5_0.Email")
$bSuccess = $oEmailToBeAttached.LoadEml("qa_data/eml/simple.eml")

$oEmail2 = ObjCreate("Chilkat_9_5_0.Email")
$oEmail2.Subject = "This is a test email with an attached email."
$oEmail2.Body = "Test with attached email."
$oEmail2.AddTo("Joe","joe@example.com")
$oEmail2.From = "mary@example.com"

Local $oEmlBytes2
$oEmlBytes2 = $oEmailToBeAttached.GetMimeBinary()
$bSuccess = $oEmail2.AttachMessage($oEmlBytes2)

ConsoleWrite("----" & @CRLF)

ConsoleWrite($oEmail2.GetMime() & @CRLF)