Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loXml
LOCAL loDtNow
LOCAL lnHeaderOnly
LOCAL loSbText
LOCAL lcExplain
LOCAL loDsnEmail

lnSuccess = 0

loEmail = CreateObject('Chilkat.Email')

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

? loEmail.GetMime()
? ""
? "-------------------------------------------------------------"
? ""

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

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

lnHeaderOnly = 1
loSbText = CreateObject('Chilkat.StringBuilder')
loSbText.Append("This is an automatically generated Delivery Status Notification." + CHR(13) + CHR(10) + CHR(13) + CHR(10))
loSbText.Append("Delivery to the following recipient failed permanently:" + CHR(13) + CHR(10) + CHR(13) + CHR(10))
loSbText.Append("    recipient@example.com" + CHR(13) + CHR(10) + CHR(13) + CHR(10))
loSbText.Append("Technical details of permanent failure:" + CHR(13) + CHR(10))
loSbText.Append("DNS Error: Domain name not found" + CHR(13) + CHR(10))

lcExplain = loSbText.GetAsString()

loDsnEmail = CreateObject('Chilkat.Email')
lnSuccess = loEmail.ToDsn(lcExplain,loXml.GetXml(),lnHeaderOnly,loDsnEmail)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loXml
    RELEASE loDtNow
    RELEASE loSbText
    RELEASE loDsnEmail
    CANCEL
ENDIF

? loDsnEmail.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--

RELEASE loEmail
RELEASE loXml
RELEASE loDtNow
RELEASE loSbText
RELEASE loDsnEmail