AutoIt

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. AutoIt

Local $bSuccess = False

$oImap = ObjCreate("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 = True
$oImap.Port = 993
$bSuccess = $oImap.Connect("imap-mail.outlook.com")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Login
$bSuccess = $oImap.Login("myAccount@outlook.com","OUTLOOK_PASSWORD")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Begin keeping a log of the session here.
$oImap.KeepSessionLog = True

; Select an IMAP mailbox
$bSuccess = $oImap.SelectMailbox("Inbox")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
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.
Local $selectResponse = $oImap.LastResponse
ConsoleWrite($selectResponse & @CRLF)

; 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.  
Local $iSequenceNum = 1
While $iSequenceNum <= $oImap.NumMessages
Local $sFlags = $oImap.FetchFlags($iSequenceNum,False)
    ConsoleWrite($iSequenceNum & ": " & $sFlags & @CRLF)
    $iSequenceNum = $iSequenceNum + 1
Wend

; 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.)

ConsoleWrite("---- Session Log ----" & @CRLF)
ConsoleWrite($oImap.SessionLog & @CRLF)

; 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 = False
$oImap.Ssl = True
$oImap.Port = 993
$bSuccess = $oImap.Connect("imap.gmail.com")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Login
$bSuccess = $oImap.Login("myAccount@gmail.com","GMAIL-IMAP-PASSWORD")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

$oImap.KeepSessionLog = True

$bSuccess = $oImap.SelectMailbox("Inbox")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

$selectResponse = $oImap.LastResponse
ConsoleWrite($selectResponse & @CRLF)

; 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)

$iSequenceNum = $oImap.NumMessages
Local $iMinSeqNum = 1
If ($iSequenceNum > 10) Then
    $iMinSeqNum = $iSequenceNum - 10
EndIf

While $iSequenceNum >= $iMinSeqNum
Local $sFlags = $oImap.FetchFlags($iSequenceNum,False)
    ConsoleWrite($iSequenceNum & ": " & $sFlags & @CRLF)
    $iSequenceNum = $iSequenceNum - 1
Wend

; 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()