Perl

Fetch a Single Message's MIME into a StringBuilder

Demonstrates the Chilkat Imap.FetchSingleAsMimeSb method, which downloads one message's MIME into a StringBuilder. The first argument is the message id, the second (bUid) selects UID vs sequence number, and the third is the StringBuilder, which is cleared first. This example downloads a message by UID and prints the MIME length.

Background: Chilkat interprets the received MIME as UTF-8. Messages using Base64 or quoted-printable transfer encoding are safe because their encoded bytes are ASCII. Raw 8bit or binary content, or unencoded text in a charset such as ISO-8859-1 or Shift_JIS, can be misinterpreted — in those cases use FetchSingleBd to get the exact bytes.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the Imap.FetchSingleAsMimeSb method, which downloads one message's MIME into a
# StringBuilder.  The 1st argument is the message id, the 2nd (bUid) selects UID vs sequence
# number, and the 3rd is the StringBuilder (cleared first).

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

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

# Search for the message ids to download, returning UIDs.
my $wantUids = 1;
my $msgSet = Chilkat2::MessageSet->new;
$success = $imap->QueryMbx('ALL', $wantUids, $msgSet);
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

if ($msgSet->Count > 0) {
    my $uid = $msgSet->GetId(0);

    # Download the message's MIME into a StringBuilder.  The id is a UID.
    my $useUid = 1;
    my $sbMime = Chilkat2::StringBuilder->new;
    $success = $imap->FetchSingleAsMimeSb($uid, $useUid, $sbMime);
    if (!$success) {
        print $imap->LastErrorText, "\n";
        exit;
    }

    print 'MIME length: ', $sbMime->Length, " chars\n";
}

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