(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

llSuccess = .F.

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

loImap = createobject("CkImap")

// Connect to the iCloud IMAP Mail Server
loImap.Ssl = .T.
loImap.Port = 993
llSuccess = loImap.Connect("imap.mail.me.com")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// The username is usually the name part of your iCloud email address 
// (for example, emilyparker, not emilyparker@icloud.com).
llSuccess = loImap.Login("ICLOUD_USERNAME","ICLOUD_PASSWORD")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// Select an IMAP folder/mailbox
llSuccess = loImap.SelectMailbox("Inbox")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
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("CkEmail")

n = loImap.NumMessages
llBUid = .F.
for i = 1 to n

    // Download the email by sequence number.
    llSuccess = loImap.FetchEmail(.F.,i,llBUid,loEmail)
    if (llSuccess = .F.) then
        ? loImap.LastErrorText
        release loImap
        release loEmail
        return
    endif

    ? str(i) + ": " + loEmail.From
    ? "    " + loEmail.Subject
    ? "-"
next

// Disconnect from the IMAP server.
llSuccess = 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