SelectCompleted Event

public event AsyncCompletedEventHandler SelectCompleted

Public Event SelectCompleted AsyncCompletedEventHandler

public:
 event AsyncCompletedEventHandler^ SelectCompleted

Connect to an IMAP server and select a mailbox 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 the 'INBOX' mailbox. 
await client.SelectAsync("INBOX", false);

// ... 
 
// List messages in the current working mailbox.
ImapMessageCollection listMessages = client.ListMessages(ImapEnvelopeParts.UniqueId | ImapEnvelopeParts.Size);

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 the 'INBOX' mailbox. 
Await client.SelectAsync("INBOX", False)

' ... 
 
' List messages in the current working mailbox. 
Dim listMessages As ImapMessageCollection = client.ListMessages(ImapEnvelopeParts.UniqueId Or ImapEnvelopeParts.Size)

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

' Disconnect.
client.Disconnect()

Connect to an IMAP server and select a mailbox asynchronously (Event-based asynchronous approach).

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

...

public void DoSelectAsync()
{
    // 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.SelectCompleted += client_SelectCompleted;

    // Select the 'INBOX' mailbox. 
    client.SelectAsync("INBOX", false);

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

void client_SelectCompleted(object sender, AsyncCompletedEventArgs e)
{
    Imap client = (Imap)sender;

    if (e.Error != null)
    {
        Console.WriteLine("Error: " + e.Error.ToString());
    }
    else 
    {
        // List messages in the current working mailbox. 
        ImapMessageCollection listMessages = client.ListMessages(ImapEnvelopeParts.UniqueId | ImapEnvelopeParts.Size);

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

Imports System.ComponentModel
Imports ComponentPro
Imports ComponentPro.Net.Mail

...

Public Sub DoSelectAsync()
    ' 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.SelectCompleted, AddressOf client_SelectCompleted

    ' Select the 'INBOX' mailbox. 
    client.SelectAsync("INBOX", False)

    ' ... 
 
    ' Disconnect. 
    client.Disconnect()
End Sub 
 
Private Sub client_SelectCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
    Dim client As Imap = CType(sender, Imap)

    If e.Error IsNot Nothing Then 
        Console.WriteLine("Error: " & e.Error.ToString())
    Else 
        ' List messages in the current working mailbox. 
        Dim listMessages As ImapMessageCollection = client.ListMessages(ImapEnvelopeParts.UniqueId Or ImapEnvelopeParts.Size)

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

Reference