Pascal (Lazarus/Delphi)

IMAP Copy Email from Selected Folder to Another Folder

Copies an email from the selected mailbox (folder) to another mailbox (folder). 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.Imap,
  Chilkat.MessageSet;

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

procedure RunDemo;
var
  success: Boolean;
  imap: TImap;
  fetchUids: Boolean;
  criteria: string;
  messageSet: TMessageSet;

begin
  success := False;

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

  //  This example copies an email from one mailbox to another.
  imap := TImap.Create;

  //  Turn on session logging for debugging.
  imap.KeepSessionLog := True;

  //  Connect using TLS.
  imap.Ssl := True;
  imap.Port := 993;
  success := imap.Connect('imap.example.com');
  if (success = False) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  //  Authenticate
  success := imap.Login('email_account_login','email_account_password');
  if (success = False) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  //  Select an IMAP mailbox
  success := imap.SelectMailbox('Inbox');
  if (success = False) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  //  Search for messages having "Test email" in the subject.
  fetchUids := True;
  criteria := 'SUBJECT "Test email"';
  messageSet := TMessageSet.Create;
  success := imap.QueryMbx(criteria,fetchUids,messageSet);
  if (success = False) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  //  Assuming we have 1 or more messages in the set, copy the 1st one to the folder "Inbox.testFolder"
  if (messageSet.Count > 0) then
    begin
      success := imap.Copy(messageSet.GetId(0),messageSet.HasUids,'Inbox/testFolder');
      if (success <> True) then
        begin
          WriteLn(imap.LastErrorText);
        end;
    end;

  WriteLn(imap.SessionLog);

  WriteLn('OK');

  //  Sample sessiong log:

  //  ----INFO----
  //  Connecting to IMAP server at outlook.office365.com:993
  //  ----IMAP RESPONSE----
  //  * OK The Microsoft Exchange IMAP4 service is ready. [QgBMADAAUABSADAAMQAwADIAQwBBADAAMAA3ADAALgBwAHIAbwBkAC4AZQB4AGMAaABhAG4AZwBlAGwAYQBiAHMALgBjAG8AbQA=]
  //  ----IMAP REQUEST----
  //  aaab LOGIN "chilkat@live.com"
  //  ----IMAP RESPONSE----
  //  aaab OK LOGIN completed.
  //  ----IMAP REQUEST----
  //  aaac SELECT "Inbox"
  //  ----IMAP RESPONSE----
  //  * 28 EXISTS
  //  * 0 RECENT
  //  * FLAGS (\Seen \Answered \Flagged \Deleted \Draft $MDNSent)
  //  * OK [PERMANENTFLAGS (\Seen \Answered \Flagged \Deleted \Draft $MDNSent)] Permanent flags
  //  * OK [UNSEEN 23] Is the first unseen message
  //  * OK [UIDVALIDITY 14] UIDVALIDITY value
  //  * OK [UIDNEXT 6416] The next unique identifier value
  //  aaac OK [READ-WRITE] SELECT completed.
  //  ----IMAP REQUEST----
  //  aaad UID SEARCH SUBJECT "Test email"
  //  ----IMAP RESPONSE----
  //  * SEARCH 6414
  //  aaad OK SEARCH completed.
  //  ----IMAP REQUEST----
  //  aaae UID COPY 6414 "Inbox/testFolder"
  //  ----IMAP RESPONSE----
  //  aaae OK [COPYUID 180 6414 1] COPY completed.
  //  
  //  OK


  imap.Free;
  messageSet.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.