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

Perl

use chilkat();

$success = 0;

#  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.

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

$imap->put_Ssl(1);
$imap->put_Port(993);

$success = $imap->Connect("imap.example.com");
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

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

#  Build the email to be uploaded.
$email = chilkat::CkEmail->new();
$email->put_Subject("Meeting agenda");
$email->put_From('Alice <alice@example.com>');
$success = $email->AddTo("Bob",'bob@example.com');
$email->put_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.
$mimeText = $email->getMime();
if ($email->get_LastMethodSuccess() == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

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

print "Appended UID: " . $imap->get_AppendUid() . "\r\n";

$success = $imap->Disconnect();
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}