ListFoldersCompleted Event

public event ExtendedAsyncCompletedEventHandler<TResult> ListFoldersCompleted

Public Event ListFoldersCompleted ExtendedAsyncCompletedEventHandler(Of TResult)

public:
 event ExtendedAsyncCompletedEventHandler<TResult>^ ListFoldersCompleted

Connect to an IMAP server and asynchronously list existing mailboxes (Task-based asynchronous approach).

using System;
using ComponentPro;
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");

// ... 
 
// List all mailboxes in the root folder.
FolderCollection list = await client.ListFoldersAsync("", false, false);

// ... 
 
foreach (Folder m in list)
{
    Console.WriteLine("Mailbox: " + m.Name);
    Console.WriteLine("The number of recent messages: " + m.RecentMessages);
    Console.WriteLine("The number of new unseen messages messages: " + m.NewUnseenMessages);
}

// Disconnect.
client.Disconnect();

Imports ComponentPro
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")

' ... 
 
' List all mailboxes in the root folder. 
Dim list As FolderCollection = Await client.ListFoldersAsync("", False, False)

' ... 
 
For Each m As Folder In list
    Console.WriteLine("Mailbox: " & m.Name)
    Console.WriteLine("The number of recent messages: " & m.RecentMessages)
    Console.WriteLine("The number of new unseen messages messages: " & m.NewUnseenMessages)
Next m

' Disconnect.
client.Disconnect()

Connect to an IMAP server and asynchronously list existing mailboxes (Event-based asynchronous approach).

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

...

public void DoListMailboxesAsync()
{
    // 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.ListFoldersCompleted += client_ListMailboxesCompleted;

    // List all mailboxes in the root folder. 
    client.ListFoldersAsync("", false, false);

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

void client_ListMailboxesCompleted(object sender, ExtendedAsyncCompletedEventArgs<FolderCollection> e)
{
    // Imap client = (Imap)sender; 
    if (e.Error != null)
    {
        Console.WriteLine("Error: " + e.Error.ToString());
    }
    else 
    {
        foreach (Folder m in e.Result)
        {
            Console.WriteLine("Mailbox: " + m.Name);
            Console.WriteLine("The number of recent messages: " + m.RecentMessages);
            Console.WriteLine("The number of new unseen messages messages: " + m.NewUnseenMessages);
        }
    }
}

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

...

Public Sub DoListMailboxesAsync()
    ' 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.ListFoldersCompleted, AddressOf client_ListMailboxesCompleted

    ' List all mailboxes in the root folder. 
    client.ListFoldersAsync("", False, False)

    ' ... 
 
    ' Disconnect. 
    client.Disconnect()
End Sub 
 
Private Sub client_ListMailboxesCompleted(ByVal sender As Object, ByVal e As ExtendedAsyncCompletedEventArgs(Of FolderCollection))
    ' Imap client = (Imap)sender; 
    If e.Error IsNot Nothing Then 
        Console.WriteLine("Error: " & e.Error.ToString())
    Else 
        For Each m As Folder In e.Result
            Console.WriteLine("Mailbox: " & m.Name)
            Console.WriteLine("The number of recent messages: " & m.RecentMessages)
            Console.WriteLine("The number of new unseen messages messages: " & m.NewUnseenMessages)
        Next m
    End If 
End Sub

Reference