Pascal (Lazarus/Delphi)

Read Gmail POP3 Mailbox

Reads the header for each email in a GMail POP3 mailbox and displays the FROM and SUBJECT header fields. In your GMail "Forwarding and POP" settings, be sure to select "When messages are accessed with POP keep Gmail's copy in the Inbox". Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.MailMan,
  Chilkat.EmailBundle,
  Chilkat.Email;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  mailman: TMailMan;
  bundle: TEmailBundle;
  keepOnServer: Boolean;
  headersOnly: Boolean;
  numBodyLines: Integer;
  i: Integer;
  email: TEmail;

begin
  success := False;

  //  This example requires the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  //  The mailman object is used for receiving (POP3) 
  //  and sending (SMTP) email.
  mailman := TMailMan.Create;

  //  Set the GMail account POP3 properties.
  mailman.MailHost := 'pop.gmail.com';
  mailman.PopUsername := 'myLogin';
  mailman.PopPassword := 'myPassword';
  mailman.PopSsl := True;
  mailman.MailPort := 995;

  //  Read mail headers and one line of the body.
  //  To get the full emails, set headersOnly = False
  bundle := TEmailBundle.Create;
  keepOnServer := True;
  headersOnly := True;
  numBodyLines := 1;
  success := mailman.FetchAll(keepOnServer,headersOnly,numBodyLines,bundle);
  if (success = False) then
    begin
      WriteLn(mailman.LastErrorText);
      Exit;
    end;

  i := 0;
  email := TEmail.Create;
  while i < bundle.MessageCount do
    begin
      bundle.EmailAt(i,email);

      //  Display the From email address and the subject.
      WriteLn('From: ' + email.From);
      WriteLn('Subject: ' + email.Subject);

      i := i + 1;
    end;



  mailman.Free;
  bundle.Free;
  email.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.