(Perl) Upload (Append) Email to an IMAP Mailbox

Upload / append an email to an IMAP mailbox.

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

use chilkat();

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

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

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

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

$email = chilkat::CkEmail->new();

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

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

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

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