(VB.NET UWP/WinRT) 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 Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

Dim imap As New Chilkat.Imap

' Connect to the iCloud IMAP Mail Server
imap.Ssl = True
imap.Port = 993
Dim success As Boolean = Await imap.ConnectAsync("imap.mail.me.com")
If (success <> True) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If


' The username is usually the name part of your iCloud email address 
' (for example, emilyparker, not emilyparker@icloud.com).
success = Await imap.LoginAsync("ICLOUD_USERNAME","ICLOUD_PASSWORD")
If (success <> True) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If


' Select an IMAP folder/mailbox
success = Await imap.SelectMailboxAsync("Inbox")
If (success <> True) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
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.

Dim email As Chilkat.Email
Dim i As Integer
Dim n As Integer = imap.NumMessages
Dim bUid As Boolean = False
For i = 1 To n

    ' Download the email by sequence number.
    email = Await imap.FetchSingleAsync(i,bUid)
    If (imap.LastMethodSuccess <> True) Then
        Debug.WriteLine(imap.LastErrorText)
        Exit Sub
    End If


    Debug.WriteLine(i & ": " & email.From)
    Debug.WriteLine("    " & email.Subject)
    Debug.WriteLine("-")


Next


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

Debug.WriteLine("Success.")

' Sample output:

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