PowerBuilder

Create a Delivery Status Notification (DSN)

Demonstrates the Chilkat Email.ToDsn method, which creates a new Delivery Status Notification (DSN) email in the format specified by RFC 3464, based on this email. The generated DSN is returned in the last argument, and the source email is not modified. The first argument is the human-readable explanation, the second is the delivery-status fields, and the third indicates whether to include headers only. This example builds a DSN for a received message.

Background: A DSN is the formal "bounce" a mail system returns when a message cannot be delivered. It is a multipart/report containing a human-readable explanation plus a machine-readable message/delivery-status part (with fields like Action and Status). ToDsn generates that structured report for you — useful when building a mail server or gateway that must issue standards-compliant bounces. After generating it, populate the sender/recipient fields and send.

Chilkat PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Email
oleobject loo_Dsn

li_Success = 0

//  Demonstrates the ToDsn method, which creates a new Delivery Status Notification (DSN)
//  email (RFC 3464) based on this email.  The generated DSN is returned in the last argument.
//  The source email is not modified.

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

li_Success = loo_Email.LoadEml("qa_data/eml/received.eml")
if li_Success = 0 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    return
end if

//  Create a DSN for the received message.  The 1st argument is the human-readable
//  explanation, the 2nd is the delivery-status fields, and the 3rd (headerOnly) is false.
loo_Dsn = create oleobject
li_rc = loo_Dsn.ConnectToNewObject("Chilkat.Email")

li_Success = loo_Email.ToDsn("The message could not be delivered to the recipient.","Action: failed; Status: 5.1.1",0,loo_Dsn)
if li_Success = 0 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    destroy loo_Dsn
    return
end if

//  Populate additional sender/recipient fields on the DSN before sending, then send it.
Write-Debug loo_Dsn.GetMime()

//  Note: The path "qa_data/..." is a relative local filesystem path,
//  relative to the current working directory of the running application.


destroy loo_Email
destroy loo_Dsn