Perl

Transition from MailMan.TransferMultipleMime to MailMan.FetchMimeBd

Provides instructions for replacing deprecated TransferMultipleMime method calls with FetchMimeBd. Perl

use chilkat();

$success = 0;

$mailman = chilkat::CkMailMan->new();

# ...
# ...

$saUidls = chilkat::CkStringArray->new();
$saUidls->Append("aaa");
$saUidls->Append("bbb");
$saUidls->Append("ccc");

$stUidls = chilkat::CkStringTable->new();
$stUidls->Append("aaa");
$stUidls->Append("bbb");
$stUidls->Append("ccc");

# ------------------------------------------------------------------------
# The TransferMultipleMime method is deprecated:

# sa is a StringArray
$sa = $mailman->TransferMultipleMime($saUidls);
if ($mailman->get_LastMethodSuccess() == 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

# ...
# ...

# ------------------------------------------------------------------------
# Do the equivalent using FetchMimeBd.

$mailman->put_ImmediateDelete(0);

$success = 0;
$bdMime = chilkat::CkBinData->new();
$numUidls = $stUidls->get_Count();
$i = 0;
while ($i < $numUidls) {
    $success = $mailman->FetchMimeBd($stUidls->stringAt($i),$bdMime);
    # ...

    # Mark the email for deletion.
    $success = $mailman->DeleteByUidl($stUidls->stringAt($i));
    # ...

    $i = $i + 1;
}

# emails marked for deletion will be deleted at this time
$success = $mailman->Pop3EndSession();