Delphi DLL

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 Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
email: HCkEmail;
n: Integer;
i: Integer;

begin
success := False;

//  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.

email := CkEmail_Create();

//  Load a multipart/report email (such as a bounce / DSN message).
success := CkEmail_LoadEml(email,'qa_data/eml/dsn_bounce.eml');
if (success = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

n := CkEmail_getNumReports(email);
Memo1.Lines.Add('NumReports = ' + IntToStr(n));

for i := 0 to n - 1 do
  begin
    Memo1.Lines.Add('---- Report ' + IntToStr(i) + ' ----');
    Memo1.Lines.Add(CkEmail__getReport(email,i));
  end;

CkEmail_Dispose(email);