(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkEmail.pb"
IncludeFile "CkImap.pb"

Procedure ChilkatExample()

    success.i = 0

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

    imap.i = CkImap::ckCreate()
    If imap.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Connect to the iCloud IMAP Mail Server
    CkImap::setCkSsl(imap, 1)
    CkImap::setCkPort(imap, 993)
    success = CkImap::ckConnect(imap,"imap.mail.me.com")
    If success = 0
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        ProcedureReturn
    EndIf

    ; The username is usually the name part of your iCloud email address 
    ; (for example, emilyparker, not emilyparker@icloud.com).
    success = CkImap::ckLogin(imap,"ICLOUD_USERNAME","ICLOUD_PASSWORD")
    If success = 0
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        ProcedureReturn
    EndIf

    ; Select an IMAP folder/mailbox
    success = CkImap::ckSelectMailbox(imap,"Inbox")
    If success = 0
        Debug CkImap::ckLastErrorText(imap)
        CkImap::ckDispose(imap)
        ProcedureReturn
    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.

    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    i.i
    n.i = CkImap::ckNumMessages(imap)
    bUid.i = 0
    For i = 1 To n

        ; Download the email by sequence number.
        success = CkImap::ckFetchEmail(imap,0,i,bUid,email)
        If success = 0
            Debug CkImap::ckLastErrorText(imap)
            CkImap::ckDispose(imap)
            CkEmail::ckDispose(email)
            ProcedureReturn
        EndIf

        Debug Str(i) + ": " + CkEmail::ckFrom(email)
        Debug "    " + CkEmail::ckSubject(email)
        Debug "-"
    Next

    ; Disconnect from the IMAP server.
    success = CkImap::ckDisconnect(imap)

    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.


    CkImap::ckDispose(imap)
    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure