Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loInnerEmail
LOCAL loEmail

lnSuccess = 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.

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

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

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

lnSuccess = loEmail.AttachEmail(loInnerEmail)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loInnerEmail
    RELEASE loEmail
    CANCEL
ENDIF

? "NumAttachedMessages = " + STR(loEmail.NumAttachedMessages)

RELEASE loInnerEmail
RELEASE loEmail