Sample code for 30+ languages & platforms
Xbase++

Examine Junk/NonJunk Flags on Outlook.com and GMail

See more IMAP Examples

Examines the Junk and NonJunk FLAGS for IMAP on Outlook.com and GMail.com.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oImap
LOCAL cSelectResponse
LOCAL nSequenceNum
LOCAL cFlags
LOCAL nMinSeqNum
LOCAL cFlags

nSuccess := 0

oImap := CreateObject("Chilkat.Imap")

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

//  Connect to the outlook.com IMAP server.
//  We'll do the same for GMail below..
//  Use TLS
oImap:Ssl := 1
oImap:Port := 993
nSuccess := oImap:Connect("imap-mail.outlook.com")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

//  Login
nSuccess := oImap:Login("myAccount@outlook.com", "OUTLOOK_PASSWORD")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

//  Begin keeping a log of the session here.
oImap:KeepSessionLog := 1

//  Select an IMAP mailbox
nSuccess := oImap:SelectMailbox("Inbox")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

//  The LastResponse property contains the full response of the last command.
//  The response to the SELECT mailbox command shows the FLAGS that can be set
//  for emails in the mailbox.
cSelectResponse := oImap:LastResponse
? cSelectResponse

//  The response to "SELECT Inbox" looks like this:
//  There are no FLAGS for Junk/NonJunk..

//  * 4 EXISTS
//  * 0 RECENT
//  * FLAGS (\Seen \Answered \Flagged \Deleted \Draft $MDNSent)
//  * OK [PERMANENTFLAGS (\Seen \Answered \Flagged \Deleted \Draft $MDNSent)] Permanent flags
//  * OK [UIDVALIDITY 14] UIDVALIDITY value
//  * OK [UIDNEXT 1719] The next unique identifier value
//  aaac OK [READ-WRITE] SELECT completed.

//  Fetch the flags for each message in the mailbox.
//  Prior to running this example, (using Mozilla Thunderbird) I marked one of the emails
//  in my outlook.com Inbox as Junk.  
nSequenceNum := 1
DO WHILE nSequenceNum <= oImap:NumMessages
    cFlags := oImap:FetchFlags(nSequenceNum, 0)
    ? Str(nSequenceNum) + ": " + cFlags
    nSequenceNum := nSequenceNum + 1
ENDDO

//  The output of the above loop is this:

//  	1: \Seen
//  	2: \Seen
//  	3: \Seen
//  	4: \Seen

//  As you can see, nothing is marked as Junk/Spam.  This concurs with the list of FLAGS
//  documented in the response to the SELECT command.  Apparently, there is no flag for junk/nonjunk
//  for outlook.com.  Mozilla Thunderbird must be storing additional information about particular
//  emails locally.  (In other words, perhaps the Junk/NonJunk flag is information stored locally 
//  by Thunderbird, and is not a flag set on the server.)

? "---- Session Log ----"
? oImap:SessionLog

//  The session log looks like this:

//  	----IMAP REQUEST----
//  	aaac SELECT "Inbox"
//  	----IMAP RESPONSE----
//  	* 4 EXISTS
//  	* 0 RECENT
//  	* FLAGS (\Seen \Answered \Flagged \Deleted \Draft $MDNSent)
//  	* OK [PERMANENTFLAGS (\Seen \Answered \Flagged \Deleted \Draft $MDNSent)] Permanent flags
//  	* OK [UIDVALIDITY 14] UIDVALIDITY value
//  	* OK [UIDNEXT 1719] The next unique identifier value
//  	aaac OK [READ-WRITE] SELECT completed.
//  	----IMAP REQUEST----
//  	aaad FETCH 1 (FLAGS)
//  	----IMAP RESPONSE----
//  	* 1 FETCH (FLAGS (\Seen))
//  	aaad OK FETCH completed.
//  	----IMAP REQUEST----
//  	aaae FETCH 2 (FLAGS)
//  	----IMAP RESPONSE----
//  	* 2 FETCH (FLAGS (\Seen))
//  	aaae OK FETCH completed.
//  	----IMAP REQUEST----
//  	aaaf FETCH 3 (FLAGS)
//  	----IMAP RESPONSE----
//  	* 3 FETCH (FLAGS (\Seen))
//  	aaaf OK FETCH completed.
//  	----IMAP REQUEST----
//  	aaag FETCH 4 (FLAGS)
//  	----IMAP RESPONSE----
//  	* 4 FETCH (FLAGS (\Seen))
//  	aaag OK FETCH completed.

oImap:Disconnect()

//  --------------------------------------------------------------------------------
//  Now let's check GMail..
//  Again, I've marked one email as Junk.

oImap:KeepSessionLog := 0
oImap:Ssl := 1
oImap:Port := 993
nSuccess := oImap:Connect("imap.gmail.com")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

//  Login
nSuccess := oImap:Login("myAccount@gmail.com", "GMAIL-IMAP-PASSWORD")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

oImap:KeepSessionLog := 1

nSuccess := oImap:SelectMailbox("Inbox")
IF (nSuccess != 1)
    ? oImap:LastErrorText
    oImap:destroy()
    RETURN
ENDIF

cSelectResponse := oImap:LastResponse
? cSelectResponse

//  The response to GMail "SELECT Inbox" looks like this:

//  * FLAGS (\Answered \Flagged \Draft \Deleted \Seen $Forwarded $NotPhishing $Phishing $label1 $label2 $label3 $label4 $label5 Junk NonJunk)
//  * OK [PERMANENTFLAGS (\Answered \Flagged \Draft \Deleted \Seen $Forwarded $NotPhishing $Phishing $label1 $label2 $label3 $label4 $label5 Junk NonJunk \*)] Flags permitted.
//  * OK [UIDVALIDITY 3] UIDs valid.
//  * 46 EXISTS
//  * 0 RECENT
//  * OK [UIDNEXT 4147] Predicted next UID.
//  * OK [HIGHESTMODSEQ 403404]
//  aaai OK [READ-WRITE] Inbox selected. (Success)

nSequenceNum := oImap:NumMessages
nMinSeqNum := 1
IF (nSequenceNum > 10)
    nMinSeqNum := nSequenceNum - 10
ENDIF

DO WHILE nSequenceNum >= nMinSeqNum
    cFlags := oImap:FetchFlags(nSequenceNum, 0)
    ? Str(nSequenceNum) + ": " + cFlags
    nSequenceNum := nSequenceNum - 1
ENDDO

//  The output (for GMail) of the above loop is this:

//  	46: Junk \Seen
//  	45: NonJunk \Answered \Seen
//  	44: NonJunk \Seen
//  	43: \Answered \Seen
//  	42: \Answered \Seen
//  	41: NonJunk \Seen
//  	40: NonJunk \Answered \Seen
//  	39: NonJunk \Seen
//  	38: NonJunk \Seen
//  	37: NonJunk \Seen
//  	36: NonJunk \Seen

//  As you can see, the email I marked as "Junk" using Mozilla Thunderbird has the Junk flag set.
//  This concurs with GMail's list of FLAGS.  Apparently, since the IMAP server has a "Junk" flag,
//  Thunderbird set it when I marked the email as Junk. 

oImap:Disconnect()

oImap:destroy()