Perl

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();