Perl

Count the Report Parts in a multipart/report Email

Demonstrates the read-only Chilkat Email.NumReports property, which is the number of report parts in a multipart/report email. A part is counted as a report when its Content-Type is message/* (except message/rfc822) or text/rfc822-headers. Use GetReport to retrieve the body of each report part; indexes are zero-based. This example loads a report email and prints each report part.

Background: When a message can't be delivered, the mail system usually sends back a bounce known as a Delivery Status Notification (DSN). DSNs use the multipart/report structure, which bundles several parts: a human-readable explanation, a machine-readable message/delivery-status part describing exactly what happened (recipient, status code, failing server), and often the original message's headers. Reading these report parts lets a program automatically detect and process bounces.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the read-only Email.NumReports property, which is the number of report
# parts in a multipart/report email (for example, a Delivery Status Notification).
# Use GetReport to retrieve the body of each report part.  Indexes are zero-based.

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

# Load a multipart/report email (such as a bounce / DSN message).
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";
}