Perl

Transition from Imap.FetchBundle to Imap.FetchMsgSet

Provides instructions for replacing deprecated FetchBundle method calls with FetchMsgSet. Perl

use chilkat();

$success = 0;

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

# ...
# ...

$mset = chilkat::CkMessageSet->new();
$success = $imap->QueryMbx('FROM joe@example.com',1,$mset);
# ...
# ...

# ------------------------------------------------------------------------
# The FetchBundle method is deprecated:

# bundleObj is a EmailBundle
$bundleObj = $imap->FetchBundle($mset);
if ($imap->get_LastMethodSuccess() == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# ...
# ...

# ------------------------------------------------------------------------
# Do the equivalent using FetchMsgSet.
# Your application creates a new, empty EmailBundle object which is passed 
# in the last argument and filled upon success.

$headersOnly = 0;

$bundleOut = chilkat::CkEmailBundle->new();
$success = $imap->FetchMsgSet($headersOnly,$mset,$bundleOut);
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}