PureBasic

Remove a Single Attachment from an Email

Demonstrates the Chilkat Email.DropSingleAttachment method, which removes the attachment at the specified zero-based index. Valid indexes run from 0 through NumAttachments - 1. This example adds two attachments, removes the first, and prints the count before and after.

Background: Attachments are addressed by a zero-based index, so the first is 0, the second 1, and so on. DropSingleAttachment removes just one — use it to prune a specific file (say, an oversized or unwanted attachment) while keeping the rest. Note that after a removal the remaining attachments shift down, so if you are deleting several by index, iterate from the highest index downward to avoid skipping any.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    ;  Demonstrates the DropSingleAttachment method, which removes the attachment at the
    ;  specified zero-based index.

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

    CkEmail::setCkSubject(email, "Drop a single attachment")

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

    ;  Remove the attachment at index 0 (the first attachment).
    CkEmail::ckDropSingleAttachment(email,0)

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


    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure