Tcl
Tcl
Remove a Single Attachment from an Email
See more Email Object Examples
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 Tcl Downloads
load ./chilkat.dll
# Demonstrates the DropSingleAttachment method, which removes the attachment at the
# specified zero-based index.
set email [new_CkEmail]
CkEmail_put_Subject $email "Drop a single attachment"
CkEmail_AddStringAttachment $email "a.txt" "first attachment"
CkEmail_AddStringAttachment $email "b.txt" "second attachment"
puts "NumAttachments before = [CkEmail_get_NumAttachments $email]"
# Remove the attachment at index 0 (the first attachment).
CkEmail_DropSingleAttachment $email 0
puts "NumAttachments after = [CkEmail_get_NumAttachments $email]"
delete_CkEmail $email