(Classic ASP) 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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

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

set imap = Server.CreateObject("Chilkat.Imap")

' Connect to the iCloud IMAP Mail Server
imap.Ssl = 1
imap.Port = 993
success = imap.Connect("imap.mail.me.com")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>"
    Response.End
End If

' The username is usually the name part of your iCloud email address 
' (for example, emilyparker, not emilyparker@icloud.com).
success = imap.Login("ICLOUD_USERNAME","ICLOUD_PASSWORD")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>"
    Response.End
End If

' Select an IMAP folder/mailbox
success = imap.SelectMailbox("Inbox")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>"
    Response.End
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.

set email = Server.CreateObject("Chilkat.Email")

n = imap.NumMessages
bUid = 0
For i = 1 To n

    ' Download the email by sequence number.
    success = imap.FetchEmail(0,i,bUid,email)
    If (success = 0) Then
        Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>"
        Response.End
    End If

    Response.Write "<pre>" & Server.HTMLEncode( i & ": " & email.From) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "    " & email.Subject) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "-") & "</pre>"
Next

' Disconnect from the IMAP server.
success = imap.Disconnect()

Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"

' Sample output:

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

%>
</body>
</html>