(Visual FoxPro) 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 lnSuccess
LOCAL loImap
LOCAL loEmail
LOCAL i
LOCAL n
LOCAL lnBUid

lnSuccess = 0

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

loImap = CreateObject('Chilkat.Imap')

* Connect to the iCloud IMAP Mail Server
loImap.Ssl = 1
loImap.Port = 993
lnSuccess = loImap.Connect("imap.mail.me.com")
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* The username is usually the name part of your iCloud email address 
* (for example, emilyparker, not emilyparker@icloud.com).
lnSuccess = loImap.Login("ICLOUD_USERNAME","ICLOUD_PASSWORD")
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Select an IMAP folder/mailbox
lnSuccess = loImap.SelectMailbox("Inbox")
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
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.

loEmail = CreateObject('Chilkat.Email')

n = loImap.NumMessages
lnBUid = 0
FOR i = 1 TO n

    * Download the email by sequence number.
    lnSuccess = loImap.FetchEmail(0,i,lnBUid,loEmail)
    IF (lnSuccess = 0) THEN
        ? loImap.LastErrorText
        RELEASE loImap
        RELEASE loEmail
        CANCEL
    ENDIF

    ? STR(i) + ": " + loEmail.From
    ? "    " + loEmail.Subject
    ? "-"
NEXT

* Disconnect from the IMAP server.
lnSuccess = loImap.Disconnect()

? "Success."

* Sample output:

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

RELEASE loImap
RELEASE loEmail