Perl

Fetch an IMAP Message's MIME into a BinData

Demonstrates the Chilkat Imap.FetchSingleBd method, which downloads one message's MIME bytes into a BinData object. If the second argument (bUid) is true, the first argument is a UID; otherwise it is a sequence number. This example downloads message 1's MIME into a BinData and prints the byte count.

Background: This is the binary counterpart to FetchSingleAsMime (which returns a string). A BinData holds raw bytes, so it preserves the message exactly — the right choice when you plan to write the MIME straight to a file, hash it, or hand it to an API expecting a byte buffer, with no charset conversion that could alter binary content.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Imap.FetchSingleBd method, which downloads one message's MIME bytes into a
#  BinData object.  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's MIME bytes into a BinData.  bUid = 0.
$bdMime = chilkat::CkBinData->new();
$success = $imap->FetchSingleBd(1,0,$bdMime);
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

print "MIME size (bytes) = " . $bdMime->get_NumBytes() . "\r\n";

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