Xbase++

Get an Attached Message as an Email Object

Demonstrates the Chilkat Email.GetAttachedEmail method, which copies the Nth embedded message/rfc822 MIME part into another Email object. The index is zero-based (valid values run from 0 through NumAttachedMessages - 1). This example attaches an email and then extracts it back into its own object.

Background: When a message forwards another email as an attachment, that nested message is a complete email in its own right. GetAttachedEmail turns it back into a fully navigable Email object so you can read its subject, sender, body, and even its own attachments — essential for processing forwarded mail, or for tools that unpack reported spam/phishing to examine the original.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oInnerEmail
LOCAL oEmail
LOCAL oAttached

nSuccess := 0

//  Demonstrates the GetAttachedEmail method, which copies the Nth embedded message/rfc822
//  MIME part into another Email object.  The index is zero-based.

//  Build an inner email and attach it to an outer email.
oInnerEmail := CreateObject("Chilkat.Email")
oInnerEmail:Subject := "Embedded message"
oInnerEmail:From := "alice@example.com"
oInnerEmail:Body := "This is the embedded message."

oEmail := CreateObject("Chilkat.Email")
oEmail:Subject := "Has an attached message"
nSuccess := oEmail:AttachEmail(oInnerEmail)
IF (nSuccess == 0)
    ? oEmail:LastErrorText
    oInnerEmail:destroy()
    oEmail:destroy()
    RETURN
ENDIF

//  Copy the first embedded message (index 0) into its own Email object.
oAttached := CreateObject("Chilkat.Email")
nSuccess := oEmail:GetAttachedEmail(0, oAttached)
IF (nSuccess == 0)
    ? oEmail:LastErrorText
    oInnerEmail:destroy()
    oEmail:destroy()
    oAttached:destroy()
    RETURN
ENDIF

? "Attached email subject: " + oAttached:Subject
? "Attached email from: " + oAttached:From

oInnerEmail:destroy()
oEmail:destroy()
oAttached:destroy()