Xbase++

Attach an Email to Another Email

Demonstrates the Chilkat Email.AttachEmail method, which attaches a copy of another email to this email object. The attached email is encapsulated in a message/rfc822 subpart. Because a copy is attached, later changes to the source email do not affect the embedded message. This example attaches one email to another.

Background: "Forward as attachment" produces exactly this structure: the original message is embedded whole as a message/rfc822 part rather than quoted into the body. This preserves the original's headers and formatting intact, which matters for forwarding to a mailbox that will re-parse it, or for reporting spam/phishing with the original evidence attached. Such parts are counted by NumAttachedMessages.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oInnerEmail
LOCAL oEmail

nSuccess := 0

//  Demonstrates the AttachEmail method, which attaches a copy of another email to this email
//  object.  The attached email is encapsulated in a message/rfc822 subpart.

oInnerEmail := CreateObject("Chilkat.Email")
oInnerEmail:Subject := "Original message"
oInnerEmail:From := "alice@example.com"
oInnerEmail:Body := "This is the original message being forwarded."

oEmail := CreateObject("Chilkat.Email")
oEmail:Subject := "FW: Original message"
oEmail:From := "bob@example.com"
oEmail:Body := "See the attached original email."

//  Attach a copy of the inner email as a message/rfc822 part.

nSuccess := oEmail:AttachEmail(oInnerEmail)
IF (nSuccess == 0)
    ? oEmail:LastErrorText
    oInnerEmail:destroy()
    oEmail:destroy()
    RETURN
ENDIF

? "NumAttachedMessages = " + Str(oEmail:NumAttachedMessages)

oInnerEmail:destroy()
oEmail:destroy()