Perl

Mark IMAP Email as Read/Unread (Seen/Unseen)

Demonstrates how to mark emails as read or unread. Perl

use chilkat();

$success = 0;

# This example assumes 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("myLogin","myPassword");
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;
}

# Set PeekMode so that downloaded messages are not
# automatically marked as seen.
$imap->put_PeekMode(1);

# The NumMessages property contains the number of messages 
# in the currently selected mailbox.
$numMsgs = $imap->get_NumMessages();
if ($numMsgs == 0) {
    exit;
}

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

for ($i = 1; $i <= $numMsgs; $i++) {
    # Download each email by sequence number (not UID)
    $success = $imap->FetchEmail(0,$i,0,$email);
    if ($success == 0) {
        print $imap->lastErrorText() . "\r\n";
        exit;
    }

    # If desired, mark the email as SEEN.  There are two
    # ways to do it:

    # 1) Set the flag directly by using the sequence number
    # Indicate that we are passing a sequence number and
    # not a UID:
    $bIsUid = 0;
    # Set the SEEN flag = 1 to mark the email as SEEN,
    # or set it to 0 to mark it as not-seen.
    $success = $imap->SetFlag($i,$bIsUid,"SEEN",1);
    if ($success == 0) {
        print $imap->lastErrorText() . "\r\n";
        exit;
    }

    # 2) Alternatively, we can use the email object.
    # When an email is downloaded from the IMAP server
    # Chilkat will add a "ckx-imap-uid" header to the email.
    # This makes it possible to know the UID associated with
    # the email.  (This is not the sequence number, which may change
    # from session to session, but the UID which does not change.
    # The SetMailFlag method is identical to SetFlag, except
    # it gets the UID from the ckx-imap-uid header.
    # For example:
    $success = $imap->SetMailFlag($email,"SEEN",1);
    if ($success == 0) {
        print $imap->lastErrorText() . "\r\n";
        exit;
    }

}

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