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

Demonstrates how to mark emails as read or unread.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loImap
LOCAL lnSuccess
LOCAL lnNumMsgs
LOCAL i
LOCAL loEmail
LOCAL lnBIsUid

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Imap')
loImap = CreateObject('Chilkat.Imap')

* Connect to an IMAP server.
* Use TLS
loImap.Ssl = 1
loImap.Port = 993
lnSuccess = loImap.Connect("imap.someMailServer.com")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Login
lnSuccess = loImap.Login("myLogin","myPassword")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Select an IMAP mailbox
lnSuccess = loImap.SelectMailbox("Inbox")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Set PeekMode so that downloaded messages are not
* automatically marked as seen.
loImap.PeekMode = 1

* The NumMessages property contains the number of messages 
* in the currently selected mailbox.
lnNumMsgs = loImap.NumMessages
IF (lnNumMsgs = 0) THEN
    RELEASE loImap
    CANCEL
ENDIF

FOR i = 1 TO lnNumMsgs
    * Download each email by sequence number (not UID)

    loEmail = loImap.FetchSingle(i,0)
    IF (loImap.LastMethodSuccess = 0) THEN
        ? loImap.LastErrorText
        RELEASE loImap
        CANCEL
    ENDIF

    * 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:
    lnBIsUid = 0
    * Set the SEEN flag = 1 to mark the email as SEEN,
    * or set it to 0 to mark it as not-seen.
    lnSuccess = loImap.SetFlag(i,lnBIsUid,"SEEN",1)
    IF (lnSuccess <> 1) THEN
        ? loImap.LastErrorText
        RELEASE loImap
        CANCEL
    ENDIF

    * 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:
    lnSuccess = loImap.SetMailFlag(loEmail,"SEEN",1)
    IF (lnSuccess <> 1) THEN
        ? loImap.LastErrorText
        RELEASE loImap
        CANCEL
    ENDIF

    RELEASE loEmail

NEXT

* Disconnect from the IMAP server.
lnSuccess = loImap.Disconnect()

RELEASE loImap