Copy an Email from One Mailbox to Another

Copies an email from one IMAP folder to another. After running this example, copies of the email will be present in both source and destination folders.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

#  This example copies an email from one mailbox to another.
$imap = new chilkat::CkImap();

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

#  Turn on session logging:
$imap->put_KeepSessionLog(1);

#  Connect to an IMAP server.
$success = $imap->Connect("mail.chilkatsoft.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Login
$success = $imap->Login("***","***");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox.testing.a");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

$fetchUids = 1;

#  Get the message IDs for all emails having "Re:" in the subject.
# messageSet is a CkMessageSet
$messageSet = $imap->Search("SUBJECT Re:",$fetchUids);
if ($messageSet eq null ) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Copy the messages from "Inbox.testing.a" to "Inbox.testing.b" in one call to CopyMultiple:
$success = $imap->CopyMultiple($messageSet,"Inbox.testing.b");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Alternatively, loop over each message in the set and
#  copy each separately:

$n = $messageSet->get_Count();
if ($n > 0) {
    for ($i = 0; $i <= $n - 1; $i++) {
        $msgId = $messageSet->GetId($i);
        $isUid = $messageSet->get_HasUids();
        $success = $imap->Copy($msgId,$isUid,"Inbox.testing.c");
        if ($success != 1) {
            print $imap->lastErrorText() . "\n";
            exit;
        }

    }

}

#  Display the session log.
print $imap->sessionLog() . "\r\n";

#  Disconnect from the IMAP server.
$imap->Disconnect();