Welcome Guest! To enable all features please Login or Register.

Notification

Icon
Error

Options
Go to last post Go to first unread
ivan  
#1 Posted : Monday, May 2, 2011 12:30:42 AM(UTC)
ivan

Rank: Administration

Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,013

Thanks: 9 times
Was thanked: 41 time(s) in 41 post(s)
Delphi Example
Read Receipt
Some e-mail applications, such as Microsoft Office Outlook, employ a read-receipt tracking mechanism. A sender selects the receipt request option prior to sending the message. Upon opening the email, each recipient has the option of notifying the sender that the message was opened and read.

However, there is no guarantee that you will get a read-receipt. Some possible reason are that very few e-mail applications or services support read receipts, or simply because users disable the functionality. Those do support read-receipt aren't necessarily compatible with or capable of recognizing requests from a different e-mail service or application

Delivery Receipt and Failure Report
It is also called a DSN (delivery service notification), which is a request to the recipient’s email server to send you a notification about the delivery of an email you've just sent. The notification takes the form of an email, and will tell you if your delivery succeeded (Delivery Receipt), failed, got delayed (Failure Report).

Parse Report
For many email campaign applications, the very important task is detecting if the email is received by recipient or not. Parsing the delivery report is the common way to get the email status. EAGetMail .NET class provides a built-in function (GetReport) to parse the report. The following sample demonstrates how to parse the delivery-report.

If ReporType is DeliveryReceipt or ReadReceipt, the report probably has only OriginalSender, OriginalRecipient and OriginalMessageID information in the report, it depends on the mail server that generated the report.

The following example codes demonstrate how to parse failure delivery report.
Code:

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


Click here to read original topic - full version ...

If you have any comments or questions about above example codes, please add your comments here.

Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Powered by YAF.NET | YAF.NET © 2003-2019, Yet Another Forum.NET
This page was generated in 0.046 seconds.

EXPLORE TUTORIALS

© All Rights Reserved, AdminSystem Software Limited.