Perl

Remove a Single Attached Message from an Email

Demonstrates the Chilkat Email.RemoveAttachedMessage method, which removes the Nth message/rfc822 sub-part (an attached email) from the message. Indexing begins at 0. This example attaches an email, removes it, and prints the attached-message count before and after.

Background: Attached messages (forwarded emails carried as message/rfc822 parts) are counted and indexed separately from ordinary file attachments and related items. RemoveAttachedMessage targets just one nested email by index — useful, for example, when trimming a bundled digest or stripping a forwarded original before re-sending.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the RemoveAttachedMessage method, which removes the Nth message/rfc822
#  sub-part (attached email) of the email.  The index is zero-based.

#  Build an inner email and attach it to an outer email.
$innerEmail = chilkat::CkEmail->new();
$innerEmail->put_Subject("Embedded message");
$innerEmail->put_From('alice@example.com');

$email = chilkat::CkEmail->new();
$email->put_Subject("Has an attached message");
$success = $email->AttachEmail($innerEmail);
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

print "NumAttachedMessages before = " . $email->get_NumAttachedMessages() . "\r\n";

#  Remove the first attached message (index 0).
$email->RemoveAttachedMessage(0);

print "NumAttachedMessages after = " . $email->get_NumAttachedMessages() . "\r\n";