Pascal (Lazarus/Delphi)

Async Upload (Append) Email to an IMAP Mailbox

Use the AppendMailAsync method call to append an email to an IMAP mailbox. 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.Task,
  Chilkat.Imap,
  Chilkat.Email;

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

procedure RunDemo;
var
  success: Boolean;
  imap: TImap;
  email: TEmail;
  task: TTask;

begin
  success := False;

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

  imap := TImap.Create;

  //  Connect to an IMAP server.
  //  Use TLS
  imap.Ssl := True;
  imap.Port := 993;
  success := imap.Connect('MY-IMAP-DOMAIN');
  if (success <> True) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  //  Login
  success := imap.Login('MY-IMAP-LOGIN','MY-IMAP-PASSWORD');
  if (success <> True) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  //  Create a simple email with 2 recipients.
  email := TEmail.Create;
  email.From := 'support@chilkatsoft.com';
  email.AddTo('Chilkat Sales','sales@chilkatsoft.com');
  email.AddTo('Chilkat GMail','chilkat.support@gmail.com');
  email.Body := 'This is a test email.';
  email.Subject := 'This is a test email.';

  //  Imagine we've sent this email via SMTP, and now we want to 
  //  save the email to our "Sent" mailbox.  On GMail, the mailbox name
  //  for sent email is "[Gmail]/Sent Mail".

  //  Call the async version of the AppendMail method to return a task object.
  task := imap.AppendMailAsync('[Gmail]/Sent Mail',email);
  if (imap.LastMethodSuccess <> True) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  //  Schedule the task for running on the thread pool.  This changes the task's state
  //  from Inert to Live.  The task is now running...
  success := task.Run();
  if (success <> True) then
    begin
      WriteLn(task.LastErrorText);
      task.Free;
      Exit;
    end;

  //  -------------------------------------------------------------------------------
  //  The following is a general note that applies to all programming languages:
  //  -------------------------------------------------------------------------------
  //  Your application can keep a reference to the task object and periodically check back later to see if it's finished.
  //  If your programming language is one that supports callbacks, then the TaskCompleted callback can
  //  be setup to be called when the task completes.  (See the "Async" category on example-code.com for more information.)
  //  
  //  NOTE: This is very important:  A TaskCompleted callback runs in the background thread.  
  //  (All callbacks from an async task, such as AbortCheck, PercentDone, ProgressInfo, etc. are in the background thread.) 
  //  An application that uses TaskCompleted must be very careful.  
  //  For example, user interface elements (such as labels, text boxes, etc.) may not be directly
  //  accessible from a background thread, and could crash the application if directly accessed.  Also, attempting to debug
  //  code running in a background thread from an IDE, especially an older IDE (such as VB6) is likely to crash the IDE.


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