Fetch One POP3 Message by UIDL

See more POP3 Examples

Demonstrates the Chilkat MailMan.FetchByUidl method, which retrieves one message by UIDL and stores it in an Email object. The arguments are the UIDL, headerOnly, numBodyLines, and the Email. The message remains on the POP3 server. This example fetches a specific message by its UIDL.

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.Email;

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

procedure RunDemo;
var
  success: Boolean;
  mailman: TMailMan;
  email: TEmail;

begin
  success := False;

  //  Demonstrates the MailMan.FetchByUidl method, which retrieves one message by UIDL and
  //  stores it in an Email object.  The arguments are the UIDL, headerOnly, numBodyLines, and
  //  the Email.  The message remains on the server.

  mailman := TMailMan.Create;

  //  Configure the POP3 server connection.
  mailman.MailHost := 'pop.example.com';
  mailman.MailPort := 995;
  mailman.PopSsl := True;
  mailman.PopUsername := 'user@example.com';
  mailman.PopPassword := 'myPassword';

  //  Fetch a specific message by UIDL in full.  headerOnly=False (fetch the entire message).
  //  Note: numBodyLines only applies when headersOnly is True (it sets how many lines of the
  //  body to include along with the headers).  When headersOnly is False, the entire message
  //  is fetched and numBodyLines is ignored.
  email := TEmail.Create;

  success := mailman.FetchByUidl('0000000123abcdef',False,0,email);
  if (success = False) then
    begin
      WriteLn(mailman.LastErrorText);
      Exit;
    end;

  WriteLn('Subject: ' + email.Subject);

  //  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
  //  connects and authenticates -- using the property settings above -- whenever a server
  //  operation requires it.  Calling the explicit connect/authenticate methods can still be
  //  helpful to determine whether a failure occurs while connecting or while authenticating.


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