AutoIt

Process Large POP3 Mailbox

Demonstrates how to read email from a mailbox that may contain a large number of emails. AutoIt

Local $bSuccess = False

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

$oMailman = ObjCreate("Chilkat.MailMan")

$oMailman.MailHost = "pop.example.com"

$oMailman.PopUsername = "myLogin"
$oMailman.PopPassword = "myPassword"

$oMailman.MailPort = 995
$oMailman.PopSsl = True

; Get the list of UIDLs for all emails in the mailbox.
$oStUidls = ObjCreate("Chilkat.StringTable")
$bSuccess = $oMailman.FetchUidls($oStUidls)
If ($bSuccess = False) Then
    ConsoleWrite($oMailman.LastErrorText & @CRLF)
    Exit
EndIf

; Download each email by UIDL.
$oEmail = ObjCreate("Chilkat.Email")

Local $iCount = $oStUidls.Count
Local $i = 0
While $i < $iCount
    ; Download the full email.
Local $sUidl = $oStUidls.StringAt($i)
    $bSuccess = $oMailman.FetchByUidl($sUidl,False,0,$oEmail)
    If ($bSuccess = False) Then
        ConsoleWrite($oMailman.LastErrorText & @CRLF)
        Exit
    EndIf

    ConsoleWrite($i & @CRLF)
    ConsoleWrite("UIDL: " & $sUidl & @CRLF)
    ConsoleWrite("From: " & $oEmail.From & @CRLF)
    ConsoleWrite("Subject: " & $oEmail.Subject & @CRLF)

    $i = $i + 1
Wend

$oMailman.Pop3EndSession()