Perl

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 Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

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

$email = chilkat::CkEmail->new();
$email->put_Subject("Drop a single attachment");

$email->AddStringAttachment("a.txt","first attachment");
$email->AddStringAttachment("b.txt","second attachment");
print "NumAttachments before = " . $email->get_NumAttachments() . "\r\n";

#  Remove the attachment at index 0 (the first attachment).
$email->DropSingleAttachment(0);

print "NumAttachments after = " . $email->get_NumAttachments() . "\r\n";