(Perl) Upload .eml File to an IMAP Mailbox

Demonstrates how to upload the MIME source of an email to a mailbox on an IMAP server.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

# This example assumes Chilkat Imap to have been previously unlocked.
# See Unlock Imap for sample code.

# Connect to an IMAP server.
# Use TLS
$imap->put_Ssl(1);
$imap->put_Port(993);
$success = $imap->Connect("MY-IMAP-DOMAIN");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

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

$sbMime = chilkat::CkStringBuilder->new();
$sbMime->LoadFile("qa_data/eml/emoji_pizza.eml","utf-8");

# Upload to the mailbox.
$success = $imap->AppendMime("[Gmail]/testFolder",$sbMime->getAsString());
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

$imap->Disconnect();

print "OK." . "\r\n";