VBScript

Count the Report Parts in a multipart/report Email

Demonstrates the read-only Chilkat Email.NumReports property, which is the number of report parts in a multipart/report email. A part is counted as a report when its Content-Type is message/* (except message/rfc822) or text/rfc822-headers. Use GetReport to retrieve the body of each report part; indexes are zero-based. This example loads a report email and prints each report part.

Background: When a message can't be delivered, the mail system usually sends back a bounce known as a Delivery Status Notification (DSN). DSNs use the multipart/report structure, which bundles several parts: a human-readable explanation, a machine-readable message/delivery-status part describing exactly what happened (recipient, status code, failing server), and often the original message's headers. Reading these report parts lets a program automatically detect and process bounces.

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 read-only Email.NumReports property, which is the number of report
'  parts in a multipart/report email (for example, a Delivery Status Notification).
'  Use GetReport to retrieve the body of each report part.  Indexes are zero-based.

set email = CreateObject("Chilkat.Email")

'  Load a multipart/report email (such as a bounce / DSN message).
success = email.LoadEml("qa_data/eml/dsn_bounce.eml")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

n = email.NumReports
outFile.WriteLine("NumReports = " & n)

For i = 0 To n - 1
    outFile.WriteLine("---- Report " & i & " ----")
    outFile.WriteLine(email.GetReport(i))
Next

outFile.Close