VBScript
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 VBScript Downloads

VBScript
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set email = CreateObject("Chilkat.Email")

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

outFile.WriteLine(email.GetMime())
outFile.WriteLine("")
outFile.WriteLine("-------------------------------------------------------------")
outFile.WriteLine("")

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

set xml = CreateObject("Chilkat.Xml")
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)"
set dtNow = CreateObject("Chilkat.CkDateTime")
success = dtNow.SetFromCurrentSystemTime()
xml.NewChild2 "Last-Attempt-Date",dtNow.GetAsRfc822(1)

headerOnly = 1
set sbText = CreateObject("Chilkat.StringBuilder")
success = sbText.Append("This is an automatically generated Delivery Status Notification." & vbCrLf & vbCrLf)
success = sbText.Append("Delivery to the following recipient failed permanently:" & vbCrLf & vbCrLf)
success = sbText.Append("    recipient@example.com" & vbCrLf & vbCrLf)
success = sbText.Append("Technical details of permanent failure:" & vbCrLf)
success = sbText.Append("DNS Error: Domain name not found" & vbCrLf)

explain = sbText.GetAsString()

set dsnEmail = CreateObject("Chilkat.Email")
success = email.ToDsn(explain,xml.GetXml(),headerOnly,dsnEmail)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(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--

outFile.Close