Perl Requires Chilkat v11.0.0+

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

Demonstrates how to mark emails as read or unread. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

my $imap = Chilkat2::Imap->new;

# Connect to an IMAP server.
# Use TLS
$imap->Ssl(1);
$imap->Port(993);
my $success = $imap->Connect('imap.example.com');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

# Login
$success = $imap->Login('myLogin', 'myPassword');
if (!$success) {
    print $imap->LastErrorText, "\n";
    exit;
}

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

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

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

my $email = Chilkat2::Email->new;
for my $i (1 .. $numMsgs) {
    # Download each email by sequence number (not UID)
    $success = $imap->FetchEmail(0, $i, 0, $email);
    if (!$success) {
        print $imap->LastErrorText, "\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:
    my $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) {
        print $imap->LastErrorText, "\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) {
        print $imap->LastErrorText, "\n";
        exit;
    }
}

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