Perl Requires Chilkat v11.0.0+

IMAP Download All Email One at a Time

Demonstrates how to download every email in an IMAP mailbox one at a time as a MIME string or as an email object. (The MIME contains the full contents of the email including all attachments.) Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $imap = Chilkat2::Imap->new;

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

# Connect to an IMAP server.
# Use TLS
$imap->Ssl(1);
$imap->Port(993);
my $success = $imap->Connect('imap.example.com');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Login
$success = $imap->Login('myLogin', 'myPassword');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Select an IMAP mailbox
$success = $imap->SelectMailbox('Inbox');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Once the mailbox is selected, the NumMessages property
# will contain the number of messages in the mailbox.
# You may loop from 1 to NumMessages to
# fetch each message by sequence number.

my $bUid = 0;
my $mimeStr = '';
my $n = $imap->NumMessages;
for my $i (1 .. $n) {
    # Download the email by sequence number.
    $mimeStr = $imap->FetchSingleAsMime($i, $bUid);

    # ... your application may process each MIME string...
}

# An alternative is to download each email in the form of an
# email object, like this:
my $email = Chilkat2::Email->new;
for my $i (1 .. $n) {
    # Download the email by sequence number.
    $success = $imap->FetchEmail(0, $i, $bUid, $email);

    # ... your application may process the email object...
}

# Disconnect from the IMAP server.
$success = $imap->Disconnect();