Perl Requires Chilkat v11.0.0+

Fetch Single Email by UID or Sequence Number

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

use chilkat();

$success = 0;

#  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.example.com");
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

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

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

$email = chilkat::CkEmail->new();

$uid = 2014;
$isUid = 1;

$success = $imap->FetchEmail(0,$uid,$isUid,$email);
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

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