AutoIt

Retrieve UIDL's from POP3 Server

Retrieve a list of UIDLs from a POP3 server. UIDLs are unique identifiers, 1 to 70 characters long, composed of characters ranging from 0x21 to 0x7E. These identifiers uniquely distinguish messages within a mailbox and remain consistent across sessions. 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

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