Visual Basic 6.0
Visual Basic 6.0
Get a Report Part from a multipart/report Email
See more Email Object Examples
Demonstrates the Chilkat Email.GetReport method, which returns the body content of the Nth report within a multipart/report email. The NumReports property gives the count, and indexes are zero-based. This example loads a report email and prints each report part.
Background: A
multipart/report message — used for bounces (DSNs) and read receipts (MDNs) — bundles machine-readable report parts alongside the human-readable explanation. GetReport returns the raw content of one such part so a program can parse it, for example to extract the failing recipient and status code from a bounce. Use GetDeliveryStatusInfo for direct field-level access to the delivery-status part.Chilkat Visual Basic 6.0 Downloads
Dim success As Long
success = 0
' Demonstrates the GetReport method, which returns the body content of the Nth report
' within a multipart/report email. The NumReports property gives the number of reports;
' indexes are zero-based.
Dim email As New ChilkatEmail
success = email.LoadEml("qa_data/eml/dsn_bounce.eml")
If (success = 0) Then
Debug.Print email.LastErrorText
Exit Sub
End If
Dim n As Long
n = email.NumReports
Debug.Print "NumReports = " & n
Dim i As Long
For i = 0 To n - 1
Debug.Print "---- Report " & i & " ----"
Debug.Print email.GetReport(i)
Next
' A report returned by GetReport is the body of a report part -- for a bounce (DSN),
' that is the machine-readable message/delivery-status part. It looks similar to:
'
' Reporting-MTA: dns; mail.example.com
' Received-From-MTA: dns; sender.example.com
' Arrival-Date: Fri, 10 Jul 2026 20:15:30 +0000
'
' Final-Recipient: rfc822; nonexistent@example.com
' Action: failed
' Status: 5.1.1
' Diagnostic-Code: smtp; 550 5.1.1 <nonexistent@example.com> User unknown
' Note: The path "qa_data/..." is a relative local filesystem path,
' relative to the current working directory of the running application.