Xbase++

Remove a Single Attached Message from an Email

Demonstrates the Chilkat Email.RemoveAttachedMessage method, which removes the Nth message/rfc822 sub-part (an attached email) from the message. Indexing begins at 0. This example attaches an email, removes it, and prints the attached-message count before and after.

Background: Attached messages (forwarded emails carried as message/rfc822 parts) are counted and indexed separately from ordinary file attachments and related items. RemoveAttachedMessage targets just one nested email by index — useful, for example, when trimming a bundled digest or stripping a forwarded original before re-sending.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oInnerEmail
LOCAL oEmail

nSuccess := 0

//  Demonstrates the RemoveAttachedMessage method, which removes the Nth message/rfc822
//  sub-part (attached email) of the email.  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"

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

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

//  Remove the first attached message (index 0).
oEmail:RemoveAttachedMessage(0)

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

oInnerEmail:destroy()
oEmail:destroy()