Fetch Single Email by UID or Sequence Number

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

Download Chilkat Perl Module

use chilkat;

$imap = new chilkat::CkImap();

#  Anything unlocks the component and begins a fully-functional 30-day trial.
$success = $imap->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Connect to an IMAP server.
$success = $imap->Connect("mail.chilkatsoft.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

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

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

$uid = 2014;
$isUid = 1;

$email = $imap->FetchSingle($uid,$isUid);
if (!($email eq null )) {

    #  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.
$imap->Disconnect();