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

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

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

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

li_Success = 0

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

loo_Imap = create oleobject
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 = 0 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 = 0 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 = 0 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.

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

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

    // Download the email by sequence number.
    li_Success = loo_Imap.FetchEmail(0,i,li_BUid,loo_Email)
    if li_Success = 0 then
        Write-Debug loo_Imap.LastErrorText
        destroy loo_Imap
        destroy loo_Email
        return
    end if

    Write-Debug string(i) + ": " + loo_Email.From
    Write-Debug "    " + loo_Email.Subject
    Write-Debug "-"
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
destroy loo_Email