(PowerBuilder) Read iCloud Email Account using IMAP

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

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

integer li_rc
oleobject loo_Imap
integer li_Success
oleobject loo_Email
integer i
integer n
integer li_BUid

// This example assumes Chilkat Imap to have been previously unlocked.
// See Unlock Imap for sample code.

loo_Imap = create oleobject
// Use "Chilkat_9_5_0.Imap" for versions of Chilkat < 10.0.0
li_rc = loo_Imap.ConnectToNewObject("Chilkat.Imap")
if li_rc < 0 then
    destroy loo_Imap
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Connect to the iCloud IMAP Mail Server
loo_Imap.Ssl = 1
loo_Imap.Port = 993
li_Success = loo_Imap.Connect("imap.mail.me.com")
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

// The username is usually the name part of your iCloud email address 
// (for example, emilyparker, not emilyparker@icloud.com).
li_Success = loo_Imap.Login("ICLOUD_USERNAME","ICLOUD_PASSWORD")
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

// Select an IMAP folder/mailbox
li_Success = loo_Imap.SelectMailbox("Inbox")
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

// 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.

n = loo_Imap.NumMessages
li_BUid = 0
for i = 1 to n

    // Download the email by sequence number.
    loo_Email = loo_Imap.FetchSingle(i,li_BUid)
    if loo_Imap.LastMethodSuccess <> 1 then
        Write-Debug loo_Imap.LastErrorText
        destroy loo_Imap
        return
    end if

    Write-Debug string(i) + ": " + loo_Email.From
    Write-Debug "    " + loo_Email.Subject
    Write-Debug "-"

    destroy loo_Email
next

// Disconnect from the IMAP server.
li_Success = loo_Imap.Disconnect()

Write-Debug "Success."

// Sample output:

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


destroy loo_Imap