Tcl
Tcl
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 Tcl Downloads
load ./chilkat.dll
set 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.
set email [new_CkEmail]
set success [CkEmail_LoadEml $email "qa_data/eml/dsn_bounce.eml"]
if {$success == 0} then {
puts [CkEmail_lastErrorText $email]
delete_CkEmail $email
exit
}
set n [CkEmail_get_NumReports $email]
puts "NumReports = $n"
for {set i 0} {$i <= [expr $n - 1]} {incr i} {
puts "---- Report $i ----"
puts [CkEmail_getReport $email $i]
}
# 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.
delete_CkEmail $email