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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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.
my $innerEmail = Chilkat2::Email->new;
$innerEmail->Subject('Embedded message');
$innerEmail->From('alice@example.com');
$innerEmail->AddTo('Bob', 'bob@example.com');

# Attach it to an outer email as a message/rfc822 part.
my $email = Chilkat2::Email->new;
$email->Subject('Has an attached message');
my $success = $email->AttachEmail($innerEmail);
if (!$success) {
    print $email->LastErrorText, "\n";
    exit;
}

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