(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, 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.

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