Sample code for 30+ languages & platforms
PowerBuilder

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

Download Chilkat for PowerBuilder
PowerBuilder 
integer li_rc
integer li_Success
oleobject loo_Email
oleobject loo_Xml
string ls_XmlStr
integer li_BHeaderOnly
string ls_HumanReadableExplanation
oleobject loo_DsnEmail

li_Success = 0

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// A DSN email is a report about the attempt to delivery 
// an email.  It is usually a report that indicates failure or
// or a delay in delivery.  The DSN is typically sent back to
// the sender of an email.

// IMPORTANT:
// Note: Please be careful in sending automated DSN's.
// It is important to be aware of an issue called "backscatter".
// See the Wikipedia article here:  http://en.wikipedia.org/wiki/Backscatter_%28e-mail%29

// The ToDsn method will be called to create a new
// DSN email based upon the email object calling ToDsn.
// The email object instance used to call ToDsn would
// typically be an email received from a POP3 or IMAP server.
// In this case, to simplify the example, we'll load the email
// from a .eml file.

// This example will be creating a DSN for "someEmail.eml"
li_Success = loo_Email.LoadEml("someEmail.eml")
if li_Success = 0 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    return
end if

// The DSN created by ToDsn will contain a 
// "message/delivery-status" MIME sub-part that will
// be composed of a number of name-value pairs.
// See RFC 3464 ( http://tools.ietf.org/html/rfc3464 )
// The name-value content for this part is passed
// as XML to ToDsn. This part of the example
// prepares the XML:
loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

// For this example, we're just adding a few name-value pairs.
// These should not be considered to be correct, required or
// even sensible -- it's simply for the example.  
loo_Xml.Tag = "DeliveryStatusFields"
loo_Xml.NewChild2("Status","5.1.2 (bad destination system: no such domain)")
loo_Xml.NewChild2("Diagnostic-Code","smtp; Permanent failure: no such domain")
loo_Xml.NewChild2("X-BounceCategory","bad-domain")

ls_XmlStr = loo_Xml.GetXml()

// The last argument to be passed to ToDsn will be a boolean
// indicating whether to include the entire MIME of the calling
// email object in the DSN, or only the header.
// It may make sense to include the entire email for small emails,
// but for large emails (with large attachments) it's probably
// best to make the DSN header-only.
li_BHeaderOnly = 1

// The first argument to be passed to ToDsn will
// be a human-readable explanation that will be placed
// into the 1st MIME part of the DSN (see RFC 3464).
ls_HumanReadableExplanation = "Blah blah blah. The delivery of this email failed. Blah blah blah"

// OK, we're ready to create DSN....
loo_DsnEmail = create oleobject
li_rc = loo_DsnEmail.ConnectToNewObject("Chilkat.Email")

li_Success = loo_Email.ToDsn(ls_HumanReadableExplanation,ls_XmlStr,li_BHeaderOnly,loo_DsnEmail)
if li_Success = 0 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    destroy loo_Xml
    destroy loo_DsnEmail
    return
end if

// Show the MIME of the source (original) email:
Write-Debug loo_Email.GetMime()

Write-Debug "**************************************"

// Show the MIME of the DSN email:
Write-Debug loo_DsnEmail.GetMime()

// Sample output showing the MIME of the original email,
// and the DSN email created based upon it:

// X-Account-Key: account2
// X-UIDL: 0D154945439D42BD80F180F6D9DE4D82
// Received: with MailEnable Postoffice Connector;
// 	 Tue, 21 Jun 2011 09:21:23 -0400
// Received: from qmta14.emeryville.ca.mail.comcast.net ([76.96.227.212]) by chilkatsoft.com with MailEnable ESMTP;
// 	 Tue, 21 Jun 2011 09:21:22 -0400
// Received: from omta03.emeryville.ca.mail.comcast.net ([76.196.30.27]) by qmta14.emeryville.ca.mail.comcast.net with comcast id yd4k1g0050b6N64AEdLW9x;
// 	 Tue, 21 Jun 2011 13:20:30 +0000
// Received: from [127.0.0.1] ([67.175.202.103]) by omta03.emeryville.ca.mail.comcast.net with comcast id ydLV1g00n2EMkZ78PdLWxi;
// 	 Tue, 21 Jun 2011 13:20:31 +0000
// Message-ID: <4E009AA4.3090205@chilkatsoft.com>
// Date: Tue, 21 Jun 2011 08:20:36 -0500
// From: Chilkat Software <admin@chilkatsoft.com>
// User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.17) Gecko/20110414 Thunderbird/3.1.10
// MIME-Version: 1.0
// To: Chilkat Support <support@chilkatsoft.com>
// Subject: test 123
// Content-Type: text/plain; charset=ISO-8859-1; format=flowed
// Content-Transfer-Encoding: 7bit
// Return-Path: <>
// X-Antivirus: avast! (VPS 110621-0, 06/21/2011), Inbound message
// X-Antivirus-Status: Clean
// 
// This is a test 123
// 
// 
// 
// **************************************
// Content-Type: multipart/report; report-type=delivery-status;
// 	 boundary="------------070202040604030701060106"
// 
// --------------070202040604030701060106
// Content-Type: text/plain
// Content-Transfer-Encoding: 7bit
// 
// Blah blah blah. The delivery of this email failed. Blah blah blah
// --------------070202040604030701060106
// Content-Type: message/delivery-status
// 
// Status: 5.1.2 (bad destination system: no such domain)
// Diagnostic-Code: smtp; Permanent failure: no such domain
// X-BounceCategory: bad-domain
// 
// --------------070202040604030701060106
// Content-Type: text/rfc822-headers
// 
// X-Account-Key: account2
// X-UIDL: 0D154945439D42BD80F180F6D9DE4D82
// Received: with MailEnable Postoffice Connector;
// 	 Tue, 21 Jun 2011 09:21:23 -0400
// Received: from qmta14.emeryville.ca.mail.comcast.net ([76.96.227.212]) by chilkatsoft.com with MailEnable ESMTP;
// 	 Tue, 21 Jun 2011 09:21:22 -0400
// Received: from omta03.emeryville.ca.mail.comcast.net ([76.196.30.27]) by qmta14.emeryville.ca.mail.comcast.net with comcast id yd4k1g0050b6N64AEdLW9x;
// 	 Tue, 21 Jun 2011 13:20:30 +0000
// Received: from [127.0.0.1] ([67.175.202.103]) by omta03.emeryville.ca.mail.comcast.net with comcast id ydLV1g00n2EMkZ78PdLWxi;
// 	 Tue, 21 Jun 2011 13:20:31 +0000
// Message-ID: <4E009AA4.3090205@chilkatsoft.com>
// Date: Tue, 21 Jun 2011 08:20:36 -0500
// From: Chilkat Software <admin@chilkatsoft.com>
// User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.17) Gecko/20110414 Thunderbird/3.1.10
// MIME-Version: 1.0
// To: Chilkat Support <support@chilkatsoft.com>
// Subject: test 123
// Content-Type: text/plain; charset=ISO-8859-1; format=flowed
// Content-Transfer-Encoding: 7bit
// Return-Path: <>
// X-Antivirus: avast! (VPS 110621-0, 06/21/2011), Inbound message
// X-Antivirus-Status: Clean
// --------------070202040604030701060106--
// 
// 


destroy loo_Email
destroy loo_Xml
destroy loo_DsnEmail