Fetch a Range of POP3 Messages

See more POP3 Examples

Demonstrates the Chilkat MailMan.FetchRange method, which retrieves a range of messages from the POP3 mailbox and appends them to an EmailBundle. The arguments are keepOnServer, headersOnly, numBodyLines, a zero-based inclusive startIndex and endIndex, and the EmailBundle. This example fetches the first five messages.

use strict;
use warnings;
use Chilkat2;

# Demonstrates the MailMan.FetchRange method, which retrieves a range of messages from the
# POP3 mailbox and appends them to an EmailBundle.  The arguments are keepOnServer,
# headersOnly, numBodyLines, startIndex, endIndex, and the EmailBundle.  The indexes are
# zero-based and inclusive.

my $mailman = Chilkat2::MailMan->new;

# Configure the POP3 server connection.
$mailman->MailHost('pop.example.com');
$mailman->MailPort(995);
$mailman->PopSsl(1);
$mailman->PopUsername('user@example.com');
$mailman->PopPassword('myPassword');

# Fetch the first 5 messages (indexes 0 through 4), full bodies, leaving them on the server.
# keepOnServer=1, headersOnly=0 (fetch the entire message).
# Note: numBodyLines only applies when headersOnly is 1 (it sets how many lines of the
# body to include along with the headers).  When headersOnly is 0, the entire message
# is fetched and numBodyLines is ignored.
my $bundle = Chilkat2::EmailBundle->new;

my $success = $mailman->FetchRange(1, 0, 0, 0, 4, $bundle);
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

my $n = $bundle->MessageCount;
print 'Fetched ', $n, " messages.\n";

my $email = Chilkat2::Email->new;
for my $i (0 .. $n - 1) {
    $success = $bundle->EmailAt($i, $email);
    print $email->Subject, "\n";
}

# Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
# connects and authenticates -- using the property settings above -- whenever a server
# operation requires it.  Calling the explicit connect/authenticate methods can still be
# helpful to determine whether a failure occurs while connecting or while authenticating.