(Delphi ActiveX) Async Upload (Append) Email to an IMAP Mailbox

Use the AppendMailAsync method call to append an email to an IMAP mailbox.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
imap: TChilkatImap;
success: Integer;
email: TChilkatEmail;
task: IChilkatTask;

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

imap := TChilkatImap.Create(Self);

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

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

// Create a simple email with 2 recipients.
email := TChilkatEmail.Create(Self);
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.ControlInterface);
if (imap.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(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 <> 1) then
  begin
    Memo1.Lines.Add(task.LastErrorText);

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