Perl

Fetch an IMAP Attachment into a BinData

Demonstrates the Chilkat Imap.FetchAttachmentBd method, which stores one attachment's bytes in a BinData object. The first argument is the Email, the second is the zero-based attachment index, and the third is the BinData, which is cleared before the operation. This example fetches the first attachment and prints its byte count.

Background: A BinData holds raw bytes, so it works for any attachment type — image, PDF, zip, and so on. From there you can save it, hash it, or hand it to another API expecting a byte buffer, all without touching the filesystem. Use the string/StringBuilder variants only when the attachment is known to be text.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Imap.FetchAttachmentBd method, which downloads one attachment's bytes into
#  a BinData object.  The 1st argument is the Email, the 2nd is the zero-based attachment
#  index, and the 3rd is the BinData (which is cleared first).
#  
#  The message is fetched headers-only, then the attachment is downloaded on demand.

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

#  Fetch only the message headers.  Attachment bodies are NOT downloaded, but the ckx-imap-*
#  metadata describing the attachments is present, so the attachment info methods still work.
$headersOnly = 1;
$useUid = 0;
$seqNum = 1;
$email = chilkat::CkEmail->new();
$success = $imap->FetchEmail($headersOnly,$seqNum,$useUid,$email);
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

$numAttach = $imap->GetMailNumAttach($email);
if ($numAttach > 0) {
    #  Download just the first attachment's bytes from the server into a BinData.
    $bd = chilkat::CkBinData->new();
    $success = $imap->FetchAttachmentBd($email,0,$bd);
    if ($success == 0) {
        print $imap->lastErrorText() . "\r\n";
        exit;
    }

    print "Attachment size: " . $bd->get_NumBytes() . " bytes" . "\r\n";
}

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