Perl

Append a MIME Message to an IMAP Mailbox

Demonstrates the Chilkat Imap.AppendMime method, which uploads a complete RFC 822/MIME message to a mailbox. The first argument is the destination mailbox name and the second is the MIME text. This example obtains the MIME from an Email object and uploads it to Drafts.

Background: Use AppendMime when you already hold a message's raw source — a .eml file, a message you assembled, or one you received. Chilkat sends the text exactly as supplied, without normalizing line endings or re-encoding headers, so every header and MIME boundary is preserved verbatim. The supplied text must be plain text (no raw non-text binary bytes).

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the Imap.AppendMime method, which uploads a complete MIME message to a mailbox.
# The 1st argument is the destination mailbox name and the 2nd is the MIME text.

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

$imap->Ssl(1);
$imap->Port(993);

my $success = $imap->Connect('imap.example.com');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

$success = $imap->Login('user@example.com', 'myPassword');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Build the email to be uploaded.
my $email = Chilkat2::Email->new;
$email->Subject('Meeting agenda');
$email->From('Alice <alice@example.com>');
$success = $email->AddTo('Bob', 'bob@example.com');
$email->Body('Let\'s meet at 10am to review the agenda.');

# Obtain the MIME text to upload.  Here it is generated from the Email, but it could equally
# be read from a .eml file.
my $mimeText = $email->GetMime();
if (!$email->LastMethodSuccess) {
    print $email->LastErrorText, "\n";
    exit;
}

# Append (upload) the MIME to the "Drafts" mailbox.
$success = $imap->AppendMime('Drafts', $mimeText);
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

print 'Appended UID: ', $imap->AppendUid, "\n";

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