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

Demonstrates how to mark emails as read or unread.

Downloads for Windows/Linux and Install Instructions

require 'chilkat'

imap = Chilkat::CkImap.new()

#  Anything unlocks the component and begins a fully-functional 30-day trial.
success = imap.UnlockComponent("Anything for 30-day trial")
if (success != true)
    print imap.lastErrorText() + "\n";
    exit
end

#  Connect to an IMAP server.
success = imap.Connect("mail.chilkatsoft.com")
if (success != true)
    print imap.lastErrorText() + "\n";
    exit
end

#  Login
success = imap.Login("myLogin","myPassword")
if (success != true)
    print imap.lastErrorText() + "\n";
    exit
end

#  Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
if (success != true)
    print imap.lastErrorText() + "\n";
    exit
end

#  Set PeekMode so that downloaded messages are not
#  automatically marked as seen.
imap.put_PeekMode(true)

#  The NumMessages property contains the number of messages
#  in the currently selected mailbox.
numMsgs = imap.get_NumMessages()
if (numMsgs == 0)
    exit
end

for i in 1 .. numMsgs
    #  Download each email by sequence number (not UID)

    # email is a CkEmail
    email = imap.FetchSingle(i,false)
    if (email == nil )
        print imap.lastErrorText() + "\n";
        exit
    end

    #  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 = false
    #  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 != true)
        print imap.lastErrorText() + "\n";
        exit
    end

    #  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 != true)
        print imap.lastErrorText() + "\n";
        exit
    end

end

#  Disconnect from the IMAP server.
imap.Disconnect()