ListMessagesCompleted Event

public event ExtendedAsyncCompletedEventHandler<TResult> ListMessagesCompleted

Public Event ListMessagesCompleted ExtendedAsyncCompletedEventHandler(Of TResult)

public:
 event ExtendedAsyncCompletedEventHandler<TResult>^ ListMessagesCompleted

Shows how to use the ListMessages to get list of messages asynchronously (Task-based asynchronous approach).

using System;
using ComponentPro.Net.Mail;

...

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

// Connect to the server.
client.Connect("myserver");

// Or you can specify the IMAP port with 
// client.Connect("myserver", 143); 
 
// Login to the server.
client.Authenticate("user", "password");

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

// List all messages in the selected folder.
ImapMessageCollection listMessages = await client.ListMessagesAsync();

// ... 
 
foreach (ImapMessage m in listMessages)
{
    Console.WriteLine(string.Format("UniqueId: {0}, Size: {1}", m.UniqueId, m.Size));
}

// Disconnect.
client.Disconnect();

Imports ComponentPro.Net.Mail

...

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

' Connect to the server.
client.Connect("myserver")

' Or you can specify the IMAP port with 
' client.Connect("myserver", 143); 
 
' Login to the server.
client.Authenticate("user", "password")

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

' List all messages in the selected folder. 
Dim listMessages As ImapMessageCollection = Await client.ListMessagesAsync()

' ... 
 
For Each m As ImapMessage In listMessages
    Console.WriteLine(String.Format("UniqueId: {0}, Size: {1}", m.UniqueId, m.Size))
Next m

' Disconnect.
client.Disconnect()

Shows how to use the ListMessages to get list of messages asynchronously (Event-based asynchronous approach).

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

...

public void DoListMessagesAsync()
{
    // Create a new instance of the Imap class. 
    Imap client = new Imap();

    // Connect to the server. 
    client.Connect("myserver");

    // Or you can specify the IMAP port with 
    // client.Connect("myserver", 143); 
 
    // Login to the server. 
    client.Authenticate("user", "password");

    // ... 
 
    // Register an event handler. 
    client.ListMessagesCompleted += client_ListMessagesCompleted;

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

    // List all messages in the selected folder. 
    client.ListMessagesAsync();

    // ... 
 
    // List messages received since yesterday.             
    ImapCriterion criteria = ImapCriterion.ArrivedBetween(DateTime.Now.AddDays(-1), DateTime.Now);
    client.ListMessagesAsync(ImapEnvelopeParts.UniqueId | ImapEnvelopeParts.ReceivedDate, criteria);

    // ... 
 
    // Disconnect. 
    client.Disconnect();
}

void client_ListMessagesCompleted(object sender, ExtendedAsyncCompletedEventArgs<ImapMessageCollection> e)
{
    // Imap client = (Imap)sender; 
    if (e.Error != null)
        Console.WriteLine("Error: " + e.Error.ToString());
    else 
    {
        foreach (ImapMessage m in e.Result)
        {
            Console.WriteLine(string.Format("UniqueId: {0}, Size: {1}", m.UniqueId, m.Size));
        }
    }
}

Imports ComponentPro
Imports ComponentPro.Net.Mail

...

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

    ' Connect to the server. 
    client.Connect("myserver")

    ' Or you can specify the IMAP port with 
    ' client.Connect("myserver", 143); 
 
    ' Login to the server. 
    client.Authenticate("user", "password")

    ' ... 
 
    ' Register an event handler. 
    AddHandler client.ListMessagesCompleted, AddressOf client_ListMessagesCompleted

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

    ' List all messages in the selected folder. 
    client.ListMessagesAsync()

    ' ... 
 
    ' List messages received since yesterday.             
    Dim criteria As ImapCriterion = ImapCriterion.ArrivedBetween(Date.Now.AddDays(-1), Date.Now)
    client.ListMessagesAsync(ImapEnvelopeParts.UniqueId Or ImapEnvelopeParts.ReceivedDate, criteria)

    ' ... 
 
    ' Disconnect. 
    client.Disconnect()
End Sub 
 
Private Sub client_ListMessagesCompleted(ByVal sender As Object, ByVal e As ExtendedAsyncCompletedEventArgs(Of ImapMessageCollection))
    ' Imap client = (Imap)sender; 
    If e.Error IsNot Nothing Then 
        Console.WriteLine("Error: " & e.Error.ToString())
    Else 
        For Each m As ImapMessage In e.Result
            Console.WriteLine(String.Format("UniqueId: {0}, Size: {1}", m.UniqueId, m.Size))
        Next m
    End If 
End Sub

Reference