(AutoIt) Reading Unread POP3 Email

The POP3 protocol does not provide the ability to ask the server which emails are "unread". Furthermore, a pure POP3 server does not even keep this information. Some servers, such as Exchange Server, expose both POP3 and IMAP interfaces. In these cases, information about read/unread status exists on the server, but it is only available via the IMAP protocol. Email clients such as Outlook and Thunderbird keep read/unread information on the client computer. This example demonstrates how UIDLs can be saved to track and read "unread" email.

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

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

; The mailman object is used for receiving (POP3) 
; and sending (SMTP) email.
$oMailman = ObjCreate("Chilkat.MailMan")

; Set the POP3 server's hostname
$oMailman.MailHost = "pop.someMailServer.com"

; Set the POP3 login/password.
$oMailman.PopUsername = "***"
$oMailman.PopPassword = "***"

; You may keep a list of already-seen UIDLs in a text file:
; If this is the first time you're running this example,
; create an empty text file named "seenUidls.txt"
$oSaSeenUidls = ObjCreate("Chilkat.StringArray")
Local $bSuccess = $oSaSeenUidls.LoadFromFile("seenUidls.txt")
If ($bSuccess <> True) Then
    ConsoleWrite("failed to load seenUidls.txt" & @CRLF)
    Exit
EndIf

; Get the complete list of UIDLs on the mail server.
Local $oSaUidls = $oMailman.GetUidls()
If ($oMailman.LastMethodSuccess = False) Then
    ConsoleWrite($oMailman.LastErrorText & @CRLF)
    Exit
EndIf

; Create a new string array object (it's an object, not an actual array)
; and add the UIDLs from saUidls that aren't already seen.
$oSaUnseenUidls = ObjCreate("Chilkat.StringArray")

Local $i = 0
Local $iN = $oSaUidls.Count
While $i < $iN
    If ($oSaSeenUidls.Contains($oSaUidls.GetString($i)) <> True) Then
        $bSuccess = $oSaUnseenUidls.Append($oSaUidls.GetString($i))
    EndIf

    $i = $i + 1
Wend

If ($oSaUnseenUidls.Count = 0) Then
    ConsoleWrite("No unseen emails!" & @CRLF)

    Exit
EndIf

; Download in full the unseen emails:
Local $oBundle = $oMailman.FetchMultiple($oSaUnseenUidls)
If ($oMailman.LastMethodSuccess = False) Then
    ConsoleWrite($oMailman.LastErrorText & @CRLF)

    Exit
EndIf

Local $oEmail
$i = 0
While $i < $oBundle.MessageCount
    $oEmail = $oBundle.GetEmail($i)
    ConsoleWrite($oEmail.From & @CRLF)
    ConsoleWrite($oEmail.Subject & @CRLF)
    ConsoleWrite("----" & @CRLF)

    $i = $i + 1
Wend

; Save saUidls to "seenUidls.txt"
$bSuccess = $oSaUidls.SaveToFile("seenUidls.txt")