(Perl) Read All Email from POP3 Inbox by Message Numbers

Demonstrates how to read all of the email from a POP3 inbox by fetching each email by it's message number.

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();

# Set the POP3 server's hostname
$mailman->put_MailHost("pop.someMailServer.com");

# Set the POP3 login/password.
$mailman->put_PopUsername("myLogin");
$mailman->put_PopPassword("myPassword");

# Get the number of messages in the mailbox.
$numMessages = $mailman->GetMailboxCount();

# Message numbers are specific to a POP3 session. 
# If a maildrop (i.e. inbox)  contains 10 messages, 
# the message numbers will be 1, 2, 3, ... 10. 
# If message number 1 is deleted and a new POP3 session 
# is established, there will be 9 messages numbered 1, 2, 3, ... 9. 

$i = 1;

while ($i <= $numMessages) {

    # email is a Email
    $email = $mailman->FetchByMsgnum($i);
    if ($mailman->get_LastMethodSuccess() != 1) {
        print $mailman->lastErrorText() . "\r\n";
        exit;
    }

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

    $i = $i + 1;

}