Perl

Get a Report Part from a multipart/report Email

Demonstrates the Chilkat Email.GetReport method, which returns the body content of the Nth report within a multipart/report email. The NumReports property gives the count, and indexes are zero-based. This example loads a report email and prints each report part.

Background: A multipart/report message — used for bounces (DSNs) and read receipts (MDNs) — bundles machine-readable report parts alongside the human-readable explanation. GetReport returns the raw content of one such part so a program can parse it, for example to extract the failing recipient and status code from a bounce. Use GetDeliveryStatusInfo for direct field-level access to the delivery-status part.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the GetReport method, which returns the body content of the Nth report
#  within a multipart/report email.  The NumReports property gives the number of reports;
#  indexes are zero-based.

$email = chilkat::CkEmail->new();

$success = $email->LoadEml("qa_data/eml/dsn_bounce.eml");
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

$n = $email->get_NumReports();
print "NumReports = " . $n . "\r\n";

for ($i = 0; $i <= $n - 1; $i++) {
    print "---- Report " . $i . " ----" . "\r\n";
    print $email->getReport($i) . "\r\n";
}

#  A report returned by GetReport is the body of a report part -- for a bounce (DSN),
#  that is the machine-readable message/delivery-status part.  It looks similar to:
#  
#    Reporting-MTA: dns; mail.example.com
#    Received-From-MTA: dns; sender.example.com
#    Arrival-Date: Fri, 10 Jul 2026 20:15:30 +0000
#  
#    Final-Recipient: rfc822; nonexistent@example.com
#    Action: failed
#    Status: 5.1.1
#    Diagnostic-Code: smtp; 550 5.1.1 <nonexistent@example.com> User unknown

#  Note: The path "qa_data/..." is a relative local filesystem path,
#  relative to the current working directory of the running application.