Perl

Upload (Append) Email to an IMAP Mailbox

Upload / append an email to an IMAP mailbox. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $imap = Chilkat2::Imap->new;

# Connect to an IMAP server.
# Use TLS
$imap->Ssl(1);
$imap->Port(993);
my $success = $imap->Connect('imap.example.com');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

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

my $email = Chilkat2::Email->new;

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

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

print "Email uploaded to Inbox!\n";

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