Perl

Get a Header Attribute of an Attached Message

Demonstrates the Chilkat Email.GetAttachedMessageAttr method, which returns a header-field attribute value for the Nth attached (embedded) email. The first argument is the zero-based attached-message index, the second is the header field name, and the third is the attribute name. This example attaches an email and reads the filename attribute of its Content-Disposition header.

Background: MIME header fields can carry named attributes (parameters) after the main value — for example Content-Disposition: attachment; filename="report.eml", where filename is an attribute. Rather than parsing the raw header yourself, this method extracts a single named attribute from a chosen header of a specific embedded message, which is convenient when a message forwards other emails as nested message/rfc822 parts.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the GetAttachedMessageAttr method, which returns a header-field attribute
#  value for the Nth attached (embedded) email.  The first argument is the zero-based
#  attached-message index, the second is the header field name, and the third is the attribute name.

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

#  Attach it to an outer email as a message/rfc822 part.
$email = chilkat::CkEmail->new();
$email->put_Subject("Has an attached message");
$success = $email->AttachEmail($innerEmail);
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

#  Get the "filename" attribute of the "Content-Disposition" header of the first
#  attached message (index 0).
$fname = $email->getAttachedMessageAttr(0,"Content-Disposition","filename");
print "Attached message filename attribute: " . $fname . "\r\n";