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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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.

my $email = Chilkat2::Email->new;

my $success = $email->LoadEml('qa_data/eml/dsn_bounce.eml');
if (!$success) {
    print $email->LastErrorText, "\n";
    exit;
}

my $n = $email->NumReports;
print 'NumReports = ', $n, "\n";

for my $i (0 .. $n - 1) {
    print '---- Report ', $i, " ----\n";
    print $email->GetReport($i), "\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.