Upload (Append) Email to an IMAP Mailbox

Upload / append an email to an IMAP mailbox.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$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;
}

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

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

$email = new chilkat::CkEmail();

#  Load the email from a .eml file.
$success = $email->LoadEml("myEmail.eml");
if ($success != 1) {
    print $email->lastErrorText() . "\n";
    exit;
}

$success = $imap->AppendMail("Inbox",$email);
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

print "Email uploaded to Inbox!" . "\r\n";

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