Parse Email in Delphi

In previous section, I introduced how to download email with background service. In this section, I will introduce how to parse email in Delphi.

Introduction

After you received the emails to the local folder, we can use the following code to parse the email now. The following code demonstrates how to parse from, to, cc, subject, body text, attachments of all emails file received by previous sample.

Note

Remarks: All of examples in this section are based on first section: A simple Delphi project. To compile and run the following example codes successfully, please click here to learn how to create the test project and add reference to your project.

[Delphi Example - Parse email]

The following example codes demonstrate how to use EAGetMail POP3 component to parse email sender, to, cc, subject, body text and attachments.

Note

To get the full sample projects, please refer to Samples section.

unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, EAGetMailObjLib_TLB; // Add EAGetMail unit

type
    TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
        procedure ParseEmail( fileName: WideString );
    private
        { Private declarations }
    public
        { Public declarations }
    end;

const
    MailServerPop3 = 0;
    MailServerImap4 = 1;

var
    Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.ParseEmail( fileName: WideString );
var
    oMail: TMail;
    i, UBound: integer;
    addrs, atts: OleVariant;
    addr: IMailAddress;
    att: IAttachment;
begin
    oMail := TMail.Create(Application);
    oMail.LicenseCode := 'TryIt';
    oMail.LoadFile(fileName, false);

    // Parse email sender
    ShowMessage( 'From: ' + oMail.From.Address );

    // Parse email to recipients
    addrs := oMail.ToAddr;
    UBound := VarArrayHighBound( addrs, 1 );
    for i := 0 to UBound do
    begin
        addr := IDispatch(VarArrayGet(addrs, i)) as IMailAddress;
        ShowMessage( 'To: ' + addr.Address );
    end;

    // Parse email cc recipients
    addrs := oMail.Cc;
    UBound := VarArrayHighBound( addrs, 1 );
    for i := 0 to UBound do
    begin
        addr := IDispatch(VarArrayGet(addrs, i)) as IMailAddress;
        ShowMessage( 'Cc: ' + addr.Address );
    end;

    // Parse email subject
    ShowMessage( 'Subject: ' + oMail.Subject );

    // Parse email text body
    ShowMessage( 'Text body: ' + oMail.TextBody );

    // Parse email HTML body
    ShowMessage( 'HTML body: ' + oMail.HtmlBody );

    // Parse attachment
    atts := oMail.Attachments;
    UBound := VarArrayHighBound( atts, 1 );
    for i := 0 to UBound do
    begin
        att := IDispatch(VarArrayGet(atts,i)) as IAttachment;
        ShowMessage( att.Name );
    end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
    oTools: TTools;
    files: OleVariant;
    fileName: WideString;
    i, UBound: integer;
    mailFolder: WideString;
begin
    try
        oTools := TTools.Create(Application);

        // Create a folder named "inbox" under
        // current directory to store the email files
        mailFolder := GetCurrentDir() + '\inbox';
        oTools.CreateFolder(mailFolder);

        // Get all *.eml files in specified folder and parse it one by one
        files := oTools.GetFiles(mailFolder + '\*.eml');
        UBound := VarArrayHighBound( files, 1 );
        for i := 0 to UBound do
        begin
            fileName := VarArrayGet(files, i);
            ParseEmail(fileName);
        end;

    except
        on ep:Exception do
        ShowMessage( 'Error: ' + ep.Message );
    end;

end;

end.

TextBody and HtmlBody

Not every email has both text/plain body text and html body text. However, Mail object provides both TextBody and HtmlBody properties smartly. If the email has only text/plain body, then Mail object converts the text/plain body to html body automatically; if the email has only html body, then Mail object converts the html body to text/plain body automatically.

Next Section

At next section I will introduce how to verify digital signature and decrypt email.

Appendix

Comments

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