// The following example codes demonstrate downloading email from POP3 server in background
// 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; 

Var 
  Form1: TForm1; 

Implementation 

{$R *.dfm} 

Procedure TForm1.Button1Click(Sender: TObject); 
Var 
  oClient: TMailClient; 
  oServer: TMailServer; 
  oTools: TTools; 
  mailFolder: WideString; 
  leaveCopy: Boolean; 
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); 

    oServer := TMailServer.Create(Application); 
    oServer.Server := 'pop3.emailarchitect.net'; 
    oServer.User := 'test@emailarchitect.net'; 
    oServer.Password := 'testpassword'; 
    oServer.Protocol := MailServerPop3; 

    // If your server requires SSL connection
    // Please add the following codes
    // oServer.SSLConnection := true;
    // oServer.Port := 995;

    // Leave a copy of message
    leaveCopy := true; 

    oClient := TMailClient.Create(Application); 
    oClient.LicenseCode := 'TryIt'; 

    // Send request to EAGetMail Service, then EAGetMail Service retrieves email
    // in background and this method returns immediately.
    oClient.GetMailsByQueue(oServer.DefaultInterface, mailFolder, leaveCopy ); 

  Except 
    On ep:Exception Do 
      ShowMessage( 'Error: ' + ep.Message ); 
  End; 
End; 

End.