(Perl) Create DSN (Delivery Status Notification) Email

See more Email Object Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

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

$email->put_Subject("Test");
$email->put_From('joe@example.com');
$email->put_Body("This is a test");
$email->AddTo("",'recipient@example.com');

print $email->getMime() . "\r\n";
print "" . "\r\n";
print "-------------------------------------------------------------" . "\r\n";
print "" . "\r\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)

$xml = chilkat::CkXml->new();
$xml->put_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)");
$dtNow = chilkat::CkDateTime->new();
$dtNow->SetFromCurrentSystemTime();
$xml->NewChild2("Last-Attempt-Date",$dtNow->getAsRfc822(1));

$headerOnly = 1;
$sbText = chilkat::CkStringBuilder->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");

$explain = $sbText->getAsString();

$dsnEmail = chilkat::CkEmail->new();
$success = $email->ToDsn($explain,$xml->getXml(),$headerOnly,$dsnEmail);
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

print $dsnEmail->getMime() . "\r\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--