(Perl) POP3 Fetch Mime Source of Email by UIDL

Demonstrates how to fetch the MIME source of a single email by UIDL.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

$mailman->put_MailHost("pop.example.com");

$mailman->put_PopUsername("myLogin");
$mailman->put_PopPassword("myPassword");

$mailman->put_MailPort(995);
$mailman->put_PopSsl(1);

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

$numUidls = $sa->get_Count();
$bdMime = chilkat::CkBinData->new();

# Download the 1st email and save to a file.
if ($numUidls > 0) {
    $uidl = $sa->getString(0);
    print $uidl . "\r\n";

    # Download the MIME source of the email into bdMime.
    # The bdMime contains the email exactly as it is on the mail server.
    $success = $mailman->FetchMimeBd($uidl,$bdMime);
    if ($success == 0) {
        print $mailman->lastErrorText() . "\r\n";
        exit;
    }

    $success = $bdMime->WriteFile("qa_output/firstEmail.eml");
}