Tcl
Tcl
Remove All Attachments from an Email
See more Email Object Examples
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 Tcl Downloads
load ./chilkat.dll
# Demonstrates the DropAttachments method, which removes all ordinary attachments from
# the email. Related items and attached messages are not affected.
set email [new_CkEmail]
CkEmail_put_Subject $email "Drop attachments example"
CkEmail_AddStringAttachment $email "a.txt" "first attachment"
CkEmail_AddStringAttachment $email "b.txt" "second attachment"
puts "NumAttachments before = [CkEmail_get_NumAttachments $email]"
# Remove all attachments.
CkEmail_DropAttachments $email
puts "NumAttachments after = [CkEmail_get_NumAttachments $email]"
delete_CkEmail $email