VBScript

Create a Message Disposition Notification (MDN)

Demonstrates the Chilkat Email.ToMdn method, which creates a new MDN (Message Disposition Notification) email in the format specified by RFC 3798, based on this email. The generated MDN is returned in the last argument, and the source email is not modified. The first argument is the human-readable message, the second is the disposition fields, and the third indicates whether to include headers only. This example builds an MDN for a received message.

Background: An MDN is the formal "read receipt" — the response returned (with the user's consent) when a message requesting a receipt is opened. Like a DSN it is a multipart/report, but it carries a message/disposition-notification part describing what happened to the message (for example, displayed). ToMdn generates that report, which pairs with the ReturnReceipt property that requests one.

Chilkat VBScript Downloads

Download Chilkat for VBScript

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

'  Demonstrates the ToMdn method, which creates a new MDN (Message Disposition Notification)
'  email (RFC 3798) based on this email.  The generated MDN is returned in the last argument.
'  The source email is not modified.

set email = CreateObject("Chilkat.Email")

success = email.LoadEml("qa_data/eml/received.eml")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

'  Create an MDN (read receipt) for the received message.  The 1st argument is the
'  human-readable message, the 2nd is the disposition fields, and the 3rd (headerOnly) is false.
set mdn = CreateObject("Chilkat.Email")
success = email.ToMdn("Your message has been displayed.","Disposition: manual-action/MDN-sent-manually; displayed",0,mdn)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

'  Populate additional sender/recipient fields on the MDN before sending, then send it.
outFile.WriteLine(mdn.GetMime())

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

outFile.Close