Delphi - Parse email¶

// include EAGetMailObjLib_TLB unit to your Delphi Project
unit Unit1;

interface

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

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 }
        procedure ParseEmail(fileName: WideString);
    public
        { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ParseEmail(fileName: WideString);
Var
    oMail: TMail;
    i: Integer;

    addrs: IAddressCollection;
    addr: IMailAddress;

    atts: IAttachmentCollection;
    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.ToList;
    for i := 0 To addrs.Count - 1 do
    begin
        addr := addrs.Item[i];
        ShowMessage('To: ' + addr.Address);
    End;

    // Parse email cc recipients
    addrs := oMail.CcList;
    for i := 0 To addrs.Count - 1 do
        begin
            addr := addrs.Item[i];
            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.AttachmentList;
    for i := 0 To atts.Count - 1 do
        begin
            att := atts.Item[i];
            ShowMessage(att.Name);
        end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    try
        ParseEmail('c:\test folder\test.eml');
    except
        on ep:Exception do
            ShowMessage('Error: ' + ep.Message);
    end;
end;

end.