Downloading unread messages

To download unread messages, you will need to call the ListMessages with ImapCriterion.DontHaveFlags(ImapMessageFlags.Seen). The following code takes advantage of the method to download all unread messages from an IMAP account:

using System;
using ComponentPro.Net;
using ComponentPro.Net.Mail;

...

// IMAP server information. 
const string serverName = "myserver";
const string user = "name@domain.com";
const string password = "mytestpassword";
const int port = 993;
const SslSecurityMode securityMode = SslSecurityMode.Implicit;

// Create a new instance of the Imap class.
Imap client = new Imap();

// Connect to the server.
client.Connect(serverName, port, securityMode);

// Login to the server.
client.Authenticate(user, password);

// Select 'INBOX' mailbox
client.Select("INBOX");

// Get the message list.
Console.WriteLine("Getting message list...");
ImapMessageCollection list = client.ListMessages(ImapEnvelopeParts.UniqueId | ImapEnvelopeParts.Size, ImapCriterion.DontHaveFlags(ImapMessageFlags.Seen));

// Get messages. 
for (int i = 0; i < list.Count; i++)
{
    ImapMessage imapMessage = list[i];

    // Download the message to an instance of the MailMessage class. 
    MailMessage msg = client.DownloadMailMessage(imapMessage.UniqueId);

    // Display some information about it. 
    Console.WriteLine("Size: " + imapMessage.Size);
    Console.WriteLine("Number of attachments: " + msg.Attachments.Count);
    Console.WriteLine("Number of header name value pairs: " + msg.Headers.Count);
}

// Close the connection.
client.Disconnect();

Imports ComponentPro.Net
Imports ComponentPro.Net.Mail

...

' IMAP server information. 
Const serverName As String = "myserver" 
Const user As String = "name@domain.com" 
Const password As String = "mytestpassword" 
Const port As Integer = 993
Const securityMode As SslSecurityMode = SslSecurityMode.Implicit

' Create a new instance of the Imap class. 
Dim client As New Imap()

' Connect to the server.
client.Connect(serverName, port, securityMode)

' Login to the server.
client.Authenticate(user, password)

' Select 'INBOX' mailbox
client.Select("INBOX")

' Get the message list.
Console.WriteLine("Getting message list...")
Dim list As ImapMessageCollection = client.ListMessages(ImapEnvelopeParts.UniqueId Or ImapEnvelopeParts.Size, ImapCriterion.DontHaveFlags(ImapMessageFlags.Seen))

' Get messages. 
For i As Integer = 0 To list.Count - 1
    Dim imapMessage As ImapMessage = list(i)

    ' Download the message to an instance of the MailMessage class. 
    Dim msg As MailMessage = client.DownloadMailMessage(imapMessage.UniqueId)

    ' Display some information about it. 
    Console.WriteLine("Size: " & imapMessage.Size)
    Console.WriteLine("Number of attachments: " & msg.Attachments.Count)
    Console.WriteLine("Number of header name value pairs: " & msg.Headers.Count)
Next i

' Close the connection.
client.Disconnect()