Perl

Upload .eml File to an IMAP Mailbox

See more IMAP Examples

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

use strict;
use warnings;
use Chilkat2;

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

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

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

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

my $sbMime = Chilkat2::StringBuilder->new;
$sbMime->LoadFile('qa_data/eml/emoji_pizza.eml', 'utf-8');

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

$imap->Disconnect();

print "OK.\n";