Delphi - Parse Failure Delivery Report (NDS)

// The following example codes demonstrate parsing failure delivery report
// To get full sample projects, please download and install EAGetMail on your machine.
// To run it correctly, please change email server, user, password, folder, file name value to yours

Unit Unit1;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, EAGetMailObjLib_TLB;

Type
  TForm1 = Class(TForm)
    Button1: TButton;
    Procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  End;

Const
  MailServerPop3 = 0;
  MailServerImap4 = 1;
  FailureReport = 0;
  DeliveryReceipt = 1;
  ReadReceipt = 2;

Var
  Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.ParseReport(fileName: WideString);
Var
  oMail: TMail;
  oReport: IMailReport;
  oHeaders: IHeaderCollection;
  i, count: Integer;
Begin
  oMail := TMail.Create(Application);
  oMail.LicenseCode := 'TryIt';

  oMail.LoadFile( fileName, false );

  If Not oMail.IsReport Then
  Begin
    ShowMessage( 'This is not a report!' );
    exit;
  End;

  oReport := oMail.GetReport();
  If oReport.ReportType = DeliveryReceipt Then
    ShowMessage( 'This is a deliver receipt!' )
  Else If oReport.ReportType = ReadReceipt Then
    ShowMessage( 'This is a read receipt!')
  Else
    ShowMessage( 'This is a failure report!');

  // Get original message information
  ShowMessage(oReport.OriginalSender);
  ShowMessage(oReport.OriginalRecipient);
  ShowMessage(oReport.OriginalMessageID);

  If oReport.ReportType = FailureReport Then
  Begin
    ShowMessage( oReport.ErrCode );
    ShowMessage( oReport.ErrDescription );
    ShowMessage( oReport.OriginalSubject);
    ShowMessage( oReport.ReportMTA );
    oHeaders := oReport.OriginalHeaders;
    // Parse original email headers.
    count := oHeaders.Count;
    For i := 0 To count-1 Do
    Begin
      ShowMessage( oHeaders.Item(i).HeaderKey + ':' +
        oHeaders.Item(i).HeaderValue);
    End;
  End;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  Try
      ParseReport('c:\my folder\test.eml');
  Except
    On ep:Exception Do
      ShowMessage( 'Error: ' + ep.Message );
  End;

End;

End.