Perl

Fetch an IMAP Message as MIME Text

Demonstrates the Chilkat Imap.FetchSingleAsMime method, which downloads one message and returns its MIME source as a string. If the second argument (bUid) is true, the first argument is a UID; otherwise it is a sequence number. This example fetches message 1's raw MIME.

Background: Sometimes you want the message exactly as it exists on the server — the raw MIME — rather than a parsed Email object. That is what you save to a .eml file, feed to another parser, or archive verbatim. This method returns the MIME as text; for messages that may contain binary data, the BinData variant FetchSingleBd preserves the exact bytes.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Imap.FetchSingleAsMime method, which downloads one message and returns
#  its MIME source as a string.  If the 2nd argument (bUid) is 1, the 1st argument is a
#  UID; otherwise it is a sequence number.

$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;
}

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

#  Download message sequence number 1 and return its raw MIME.  bUid = 0.
$mime = $imap->fetchSingleAsMime(1,0);
if ($imap->get_LastMethodSuccess() == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

print $mime . "\r\n";

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