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