(AutoIt) POP3 Fetch Mime Source of Email by UIDL

Demonstrates how to fetch the MIME source of a single email by UIDL.

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.

$oMailman = ObjCreate("Chilkat.MailMan")

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

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

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

Local $oSa = $oMailman.GetUidls()
If ($oMailman.LastMethodSuccess = False) Then
    ConsoleWrite($oMailman.LastErrorText & @CRLF)
    Exit
EndIf

Local $iNumUidls = $oSa.Count
$oBdMime = ObjCreate("Chilkat.BinData")

; Download the 1st email and save to a file.
If ($iNumUidls > 0) Then
Local $sUidl = $oSa.GetString(0)
    ConsoleWrite($sUidl & @CRLF)

    ; Download the MIME source of the email into bdMime.
    ; The bdMime contains the email exactly as it is on the mail server.
Local $bSuccess = $oMailman.FetchMimeBd($sUidl,$oBdMime)
    If ($bSuccess = False) Then
        ConsoleWrite($oMailman.LastErrorText & @CRLF)
        Exit
    EndIf

    $bSuccess = $oBdMime.WriteFile("qa_output/firstEmail.eml")
EndIf