B4X Requires Chilkat v11.0.0+
Create DSN (Delivery Status Notification) Email

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

B4X
Dim success As Boolean = False

Dim email As ChilkatEmail
email.Initialize

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

Log(email.GetMime)
Log("")
Log("-------------------------------------------------------------")
Log("")

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

Dim xml As ChilkatXml
xml.Initialize
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)")
Dim dtNow As ChilkatDateTime
dtNow.Initialize
dtNow.SetFromCurrentSystemTime
xml.NewChild2("Last-Attempt-Date", dtNow.GetAsRfc822(True))

Dim headerOnly As Boolean = True
Dim sbText As ChilkatStringBuilder
sbText.Initialize
sbText.Append("This is an automatically generated Delivery Status Notification." & Chr(13) & Chr(10) & Chr(13) & Chr(10))
sbText.Append("Delivery to the following recipient failed permanently:" & Chr(13) & Chr(10) & Chr(13) & Chr(10))
sbText.Append("    recipient@example.com" & Chr(13) & Chr(10) & Chr(13) & Chr(10))
sbText.Append("Technical details of permanent failure:" & Chr(13) & Chr(10))
sbText.Append("DNS Error: Domain name not found" & Chr(13) & Chr(10))

Dim explain As String = sbText.GetAsString

Dim dsnEmail As ChilkatEmail
dsnEmail.Initialize
success = email.ToDsn(explain, xml.GetXml, headerOnly, dsnEmail)
If success = False Then
    Log(email.LastErrorText)
    Return
End If


Log(dsnEmail.GetMime)

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