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. Perl

use chilkat();

$success = 0;

# 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.example.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;

$email = chilkat::CkEmail->new();
while ($i <= $numMessages) {
    # Fetch by the message number (not by the UIDL)
    $success = $mailman->FetchOne(0,0,$i,$email);
    if ($success == 0) {
        print $mailman->lastErrorText() . "\r\n";
        exit;
    }

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

    $i = $i + 1;
}