Perl Requires Chilkat v11.0.0+

How to Copy IMAP Mail to another IMAP Server

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

use chilkat();

$success = 0;

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

$imapSrc = chilkat::CkImap->new();

#  Connect to our source IMAP server.
$success = $imapSrc->Connect("imap.example.com");
if ($success == 0) {
    print $imapSrc->lastErrorText() . "\r\n";
    exit;
}

#  Login to the source IMAP server
$success = $imapSrc->Login('admin@chilkatsoft.com',"myPassword");
if ($success == 0) {
    print $imapSrc->lastErrorText() . "\r\n";
    exit;
}

$imapDest = chilkat::CkImap->new();

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

#  Login to the destination IMAP server
$success = $imapDest->Login("myLogin","myPassword");
if ($success == 0) {
    print $imapDest->lastErrorText() . "\r\n";
    exit;
}

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

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

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

#  This example will copy the first 10 messages using sequence numbers
$sbMime = chilkat::CkStringBuilder->new();

for ($seqNum = 1; $seqNum <= 10; $seqNum++) {
    $sbMime->Clear();
    $success = $imapSrc->FetchSingleAsMimeSb($seqNum,0,$sbMime);
    if ($success == 0) {
        print $imapSrc->lastErrorText() . "\r\n";
        exit;
    }

    $success = $imapDest->AppendMimeWithFlagsSb("Inbox",$sbMime,0,0,0,0);
    if ($success == 0) {
        print $imapDest->lastErrorText() . "\r\n";
        exit;
    }

}

#  Disconnect from the IMAP servers.
$success = $imapSrc->Disconnect();
$success = $imapDest->Disconnect();