(Perl) Fetch Single Email by UID or Sequence Number

Assuming the UID is known, download a single email by UID from an IMAP mail server.

Chilkat Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

use chilkat();

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

$imap = chilkat::CkImap->new();

# Connect to an IMAP server.
# Use TLS
$imap->put_Ssl(1);
$imap->put_Port(993);
$success = $imap->Connect("imap.someMailServer.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Login
$success = $imap->Login("***","***");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

$uid = 2014;
$isUid = 1;

# email is a Email
$email = $imap->FetchSingle($uid,$isUid);
if ($imap->get_LastMethodSuccess() == 1) {

    # Display the From and Subject
    print $email->fromAddress() . "\r\n";
    print $email->subject() . "\r\n";

    # Display the Body property, which is the default body.
    # If an email has an HTML body, the Body property contains
    # the HTML source.  Otherwise it contains the plain-text
    # body.
    print "---- EMAIL BODY ----" . "\r\n";
    print $email->body() . "\r\n";
    print "--------------------" . "\r\n";

    # Display the recipients:

    for ($j = 0; $j <= $email->get_NumTo() - 1; $j++) {
        print $email->getToName($j) . ", " . $email->getToAddr($j) . "\r\n";
    }

    for ($j = 0; $j <= $email->get_NumCC() - 1; $j++) {
        print $email->getCcName($j) . ", " . $email->getCcAddr($j) . "\r\n";
    }

    # Show the total size of the email, including body and attachments:
    print $email->get_Size() . "\r\n";

    # When a full email is downloaded, we would use the
    # email.NumAttachments property in conjunction with the
    # email.GetMailAttach* methods.
    # However, when an email object contains only the header,
    # we need to access the attachment info differently:
    $numAttach = $imap->GetMailNumAttach($email);
    print $numAttach . "\r\n";

    for ($j = 0; $j <= $numAttach - 1; $j++) {
        print $imap->getMailAttachFilename($email,$j) . "\r\n";
        $attachSize = $imap->GetMailAttachSize($email,$j);
        print "    size = " . $attachSize . " bytes" . "\r\n";
    }

    print "--" . "\r\n";

}

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