(Perl) POP3 Fetch a Single Email by UIDL

Demonstrates how to fetch 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;
}

# Download each email by UIDL.

$i = 0;
$numUidls = $sa->get_Count();
while ($i < $numUidls) {
    $uidl = $sa->getString($i);
    print $uidl . "\r\n";

    # email is a Email
    $email = $mailman->FetchEmail($uidl);
    if ($mailman->get_LastMethodSuccess() == 0) {
        print $mailman->lastErrorText() . "\r\n";
        exit;
    }

    print $email->subject() . "\r\n";
    print "" . "\r\n";

    $i = $i + 1;
}