How to Copy IMAP Mail to another IMAP Server

Demonstrates how to copy the entire contents of an IMAP mailbox to another IMAP server.

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATIMAPLib_TLB,
    CHILKATUTILLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
imapSrc: TChilkatImap;
success: Integer;
imapDest: TChilkatImap;
startSeqNum: Integer;
msgCount: Integer;
sa: CHILKATUTILLib_TLB.ICkStringArray;
i: Integer;

begin
imapSrc := TChilkatImap.Create(Self);

//  Anything unlocks the component and begins a fully-functional 30-day trial.
success := imapSrc.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(imapSrc.LastErrorText);
    Exit;
  end;

//  Connect to our source IMAP server.
success := imapSrc.Connect('mail.chilkatsoft.com');
if (success <> 1) then
  begin
    ShowMessage(imapSrc.LastErrorText);
    Exit;
  end;

//  Login to the source IMAP server
success := imapSrc.Login('admin@chilkatsoft.com','*myPassword5*');
if (success <> 1) then
  begin
    ShowMessage(imapSrc.LastErrorText);
    Exit;
  end;

imapDest := TChilkatImap.Create(Self);

//  Connect to our destination IMAP server.
success := imapDest.Connect('mail.example-code.com');
if (success <> 1) then
  begin
    ShowMessage(imapDest.LastErrorText);
    Exit;
  end;

//  Login to the destination IMAP server
success := imapDest.Login('myLogin','*myPassword2*');
if (success <> 1) then
  begin
    ShowMessage(imapDest.LastErrorText);
    Exit;
  end;

//  Select an IMAP mailbox on the source IMAP server
success := imapSrc.SelectMailbox('Inbox');
if (success <> 1) then
  begin
    ShowMessage(imapSrc.LastErrorText);
    Exit;
  end;

//  After selecting a mailbox, the NumMessages property will
//  be updated to reflect the total number of emails in the mailbox:
Memo1.Lines.Add(IntToStr(imapSrc.NumMessages));

//  The emails in the mailbox will always have sequence numbers
//  ranging from 1 to NumMessages.

//  This example will copy the first 10 messages.
//  We'll leave it up to you to write code to copy
//  the entire sequence range in reasonable size chunks.
startSeqNum := 1;
msgCount := 10;

sa := imapSrc.FetchSequenceAsMime(startSeqNum,msgCount) as CHILKATUTILLib_TLB.ICkStringArray;
if (sa = nil ) then
  begin
    ShowMessage(imapSrc.LastErrorText);
    Exit;
  end;

for i := 0 to sa.Count - 1 do
  begin
    success := imapDest.AppendMime('Inbox',sa.GetString(i));
    if (success <> 1) then
      begin
        ShowMessage(imapDest.LastErrorText);
        Exit;
      end;
  end;

//  Disconnect from the IMAP servers.
imapSrc.Disconnect();
imapDest.Disconnect();
end;