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

Local $bSuccess = False

$oEmail = ObjCreate("Chilkat.Email")

$oEmail.Subject = "Test"
$oEmail.From = "joe@example.com"
$oEmail.Body = "This is a test"
$oEmail.AddTo("","recipient@example.com")

ConsoleWrite($oEmail.GetMime() & @CRLF)
ConsoleWrite("" & @CRLF)
ConsoleWrite("-------------------------------------------------------------" & @CRLF)
ConsoleWrite("" & @CRLF)

;  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)

$oXml = ObjCreate("Chilkat.Xml")
$oXml.Tag = "DeliveryStatusFields"
$oXml.NewChild2 "Final-Recipient","rfc822; recipient@example.com"
$oXml.NewChild2 "Action","failed"
$oXml.NewChild2 "Status","5.1.2"
$oXml.NewChild2 "Diagnostic-Code","smtp; 550 5.1.2 Host unknown (Domain name not found)"
$oDtNow = ObjCreate("Chilkat.CkDateTime")
$oDtNow.SetFromCurrentSystemTime()
$oXml.NewChild2 "Last-Attempt-Date",$oDtNow.GetAsRfc822(True)

Local $bHeaderOnly = True
$oSbText = ObjCreate("Chilkat.StringBuilder")
$oSbText.Append("This is an automatically generated Delivery Status Notification." & @CRLF & @CRLF)
$oSbText.Append("Delivery to the following recipient failed permanently:" & @CRLF & @CRLF)
$oSbText.Append("    recipient@example.com" & @CRLF & @CRLF)
$oSbText.Append("Technical details of permanent failure:" & @CRLF)
$oSbText.Append("DNS Error: Domain name not found" & @CRLF)

Local $sExplain = $oSbText.GetAsString()

$oDsnEmail = ObjCreate("Chilkat.Email")
$bSuccess = $oEmail.ToDsn($sExplain,$oXml.GetXml(),$bHeaderOnly,$oDsnEmail)
If ($bSuccess = False) Then
    ConsoleWrite($oEmail.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite($oDsnEmail.GetMime() & @CRLF)

;  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--