Perl

Transition from Imap.FetchSequenceAsMime to Imap.FetchSingleBd

Provides instructions for replacing deprecated FetchSequenceAsMime method calls with FetchSingleBd. Perl

use chilkat();

$success = 0;

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

# ...
# ...

$startSeqNum = 1;
$count = 5;

# ------------------------------------------------------------------------
# The FetchSequenceAsMime method is deprecated:

# sa is a StringArray
$sa = $imap->FetchSequenceAsMime($startSeqNum,$count);
if ($imap->get_LastMethodSuccess() == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# ...
# ...

# ------------------------------------------------------------------------
# Do the equivalent using FetchSingleBd.

$imap->put_AutoDownloadAttachments(1);

$success = 0;
$bdMime = chilkat::CkBinData->new();
$bUid = 0;
$i = 0;
while ($i < $count) {
    $success = $imap->FetchSingleBd($startSeqNum + $i,$bUid,$bdMime);
    # ...
    # ...

    $i = $i + 1;
}