Perl Requires Chilkat v11.0.0+

Create DSN (Delivery Status Notification) Email

See more Email Object Examples

Demonstrates how to create a DSN (Delivery Status Notification) Email having the format as defined in RFC 3464. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

$email->Subject('Test');
$email->From('joe@example.com');
$email->Body('This is a test');
$email->AddTo('', 'recipient@example.com');

print $email->GetMime(), "\n";
print "\n";
print "-------------------------------------------------------------\n";
print "\n";

# This is the email we just created:

# MIME-Version: 1.0
# Date: Mon, 12 May 2025 11:13:15 -0500
# Message-ID: <917FA49F75544EF51948B0A52F403B925B51073F@SLICE>
# Content-Type: text/plain; charset=us-ascii; format=flowed
# Content-Transfer-Encoding: 7bit
# X-Priority: 3 (Normal)
# Subject: Test
# From: joe@example.com
# To: recipient@example.com
#
# This is a test

# -----------------------------------------------------------------
# Convert the above email into a DSN (Delivery Status Notification)

my $xml = Chilkat2::Xml->new;
$xml->Tag('DeliveryStatusFields');
$xml->NewChild2('Final-Recipient', 'rfc822; recipient@example.com');
$xml->NewChild2('Action', 'failed');
$xml->NewChild2('Status', '5.1.2');
$xml->NewChild2('Diagnostic-Code', 'smtp; 550 5.1.2 Host unknown (Domain name not found)');
my $dtNow = Chilkat2::DateTime->new;
$dtNow->SetFromCurrentSystemTime();
$xml->NewChild2('Last-Attempt-Date', $dtNow->GetAsRfc822(1));

my $headerOnly = 1;
my $sbText = Chilkat2::StringBuilder->new;
$sbText->Append("This is an automatically generated Delivery Status Notification.\r\n\r\n");
$sbText->Append("Delivery to the following recipient failed permanently:\r\n\r\n");
$sbText->Append("    recipient\@example.com\r\n\r\n");
$sbText->Append("Technical details of permanent failure:\r\n");
$sbText->Append("DNS Error: Domain name not found\r\n");

my $explain = $sbText->GetAsString();

my $dsnEmail = Chilkat2::Email->new;
my $success = $email->ToDsn($explain, $xml->GetXml(), $headerOnly, $dsnEmail);
if (!$success) {
    print $email->LastErrorText, "\n";
    exit;
}

print $dsnEmail->GetMime(), "\n";

# Here's the MIME of the DNS email we just created:
# -------------------------------------------------

# Content-Type: multipart/report; report-type="delivery-status"; boundary="------------060100020300020303000802"
#
# --------------060100020300020303000802
# Content-Type: text/plain; charset=windows-1252; format=flowed
# Content-Transfer-Encoding: 7bit
#
# This is an automatically generated Delivery Status Notification.
#
# Delivery to the following recipient failed permanently:
#
#     recipient@example.com
#
# Technical details of permanent failure:
# DNS Error: Domain name not found
#
# --------------060100020300020303000802
# Content-Type: message/delivery-status
#
# Final-Recipient: rfc822; recipient@example.com
# Action: failed
# Status: 5.1.2
# Diagnostic-Code: smtp; 550 5.1.2 Host unknown (Domain name not found)
# Last-Attempt-Date: Mon, 12 May 2025 11:30:39 -0500
#
# --------------060100020300020303000802
# Content-Type: text/rfc822-headers; charset=windows-1252
#
# MIME-Version: 1.0
# Date: Mon, 12 May 2025 11:30:39 -0500
# Message-ID: <B8E6875D582A78AE779FC0B46ACC8C858CEAF608@SLICE>
# Content-Type: text/plain; charset=us-ascii; format=flowed
# Content-Transfer-Encoding: 7bit
# X-Priority: 3 (Normal)
# Subject: Test
# From: joe@example.com
# To: recipient@example.com
# --------------060100020300020303000802--