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

Upload / append an email to an IMAP mailbox.

Chilkat Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

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