PureBasic

Remove All Attachments from an Email

Demonstrates the Chilkat Email.DropAttachments method, which removes all ordinary attachments from the in-memory message. Related items (inline images, style sheets) and attached message/rfc822 emails are not affected. This example adds two attachments, drops them, and prints the count before and after.

Background: Chilkat distinguishes three kinds of enclosed content: ordinary attachments (files meant to be saved), related items (resources that support the HTML display), and nested attached messages. DropAttachments targets only the first category — useful, for example, when forwarding or re-sending a message body without carrying its original file attachments along.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    ;  Demonstrates the DropAttachments method, which removes all ordinary attachments from
    ;  the email.  Related items and attached messages are not affected.

    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::setCkSubject(email, "Drop attachments example")

    CkEmail::ckAddStringAttachment(email,"a.txt","first attachment")
    CkEmail::ckAddStringAttachment(email,"b.txt","second attachment")
    Debug "NumAttachments before = " + Str(CkEmail::ckNumAttachments(email))

    ;  Remove all attachments.
    CkEmail::ckDropAttachments(email)

    Debug "NumAttachments after = " + Str(CkEmail::ckNumAttachments(email))


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure