AutoIt

POP3 Fetch a Single Email by UIDL

Demonstrates how to fetch a single email by UIDL. 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

$oEmail = ObjCreate("Chilkat.Email")

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

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

    $i = $i + 1
Wend

$oMailman.Pop3EndSession()