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)

<?php

$imapSrc = new COM("Chilkat.Imap");

//  Anything unlocks the component and begins a fully-functional 30-day trial.
$success = $imapSrc->UnlockComponent('Anything for 30-day trial');
if ($success != true) {
    print $imapSrc->lastErrorText() . "\n";
    exit;
}

//  Connect to our source IMAP server.
$success = $imapSrc->Connect('mail.chilkatsoft.com');
if ($success != true) {
    print $imapSrc->lastErrorText() . "\n";
    exit;
}

//  Login to the source IMAP server
$success = $imapSrc->Login('admin@chilkatsoft.com','*myPassword5*');
if ($success != true) {
    print $imapSrc->lastErrorText() . "\n";
    exit;
}

$imapDest = new COM("Chilkat.Imap");

//  Connect to our destination IMAP server.
$success = $imapDest->Connect('mail.example-code.com');
if ($success != true) {
    print $imapDest->lastErrorText() . "\n";
    exit;
}

//  Login to the destination IMAP server
$success = $imapDest->Login('myLogin','*myPassword2*');
if ($success != true) {
    print $imapDest->lastErrorText() . "\n";
    exit;
}

//  Select an IMAP mailbox on the source IMAP server
$success = $imapSrc->SelectMailbox('Inbox');
if ($success != true) {
    print $imapSrc->lastErrorText() . "\n";
    exit;
}

//  After selecting a mailbox, the NumMessages property will
//  be updated to reflect the total number of emails in the mailbox:
print $imapSrc->NumMessages . "\n";

//  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);
if (is_null($sa)) {
    print $imapSrc->lastErrorText() . "\n";
    exit;
}

for ($i = 0; $i <= $sa->Count - 1; $i++) {
    $success = $imapDest->AppendMime('Inbox',$sa->getString($i));
    if ($success != true) {
        print $imapDest->lastErrorText() . "\n";
        exit;
    }

}

//  Disconnect from the IMAP servers.
$imapSrc->Disconnect();
$imapDest->Disconnect();
?>