(AutoIt) Read iCloud Email Account using IMAP

Demonstrates how to set the IMAP settings for an iCloud email account and downloads the email from Inbox.

Note: This example requires Chilkat v11.0.0 or greater.

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

Local $bSuccess = False

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

$oImap = ObjCreate("Chilkat.Imap")

; Connect to the iCloud IMAP Mail Server
$oImap.Ssl = True
$oImap.Port = 993
$bSuccess = $oImap.Connect("imap.mail.me.com")
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; The username is usually the name part of your iCloud email address 
; (for example, emilyparker, not emilyparker@icloud.com).
$bSuccess = $oImap.Login("ICLOUD_USERNAME","ICLOUD_PASSWORD")
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Select an IMAP folder/mailbox
$bSuccess = $oImap.SelectMailbox("Inbox")
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Once the folder/mailbox is selected, the NumMessages property
; will contain the number of emails in the mailbox.
; Loop from 1 to NumMessages to fetch each email by sequence number.

$oEmail = ObjCreate("Chilkat.Email")
Local $i
Local $iN = $oImap.NumMessages
Local $bUid = False
For $i = 1 To $iN

    ; Download the email by sequence number.
    $bSuccess = $oImap.FetchEmail(False,$i,$bUid,$oEmail)
    If ($bSuccess = False) Then
        ConsoleWrite($oImap.LastErrorText & @CRLF)
        Exit
    EndIf

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

; Disconnect from the IMAP server.
$bSuccess = $oImap.Disconnect()

ConsoleWrite("Success." & @CRLF)

; Sample output:

; 	1: iCloud <noreply@email.apple.com>
; 	    Welcome to iCloud Mail.
; 	-
; 	2: "Chilkat Software" <support@chilkatsoft.com>
; 	    This is a test
; 	-
; 	Success.