Mail Features

// 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");


StringBuilder sb = new StringBuilder();

FolderCollection list = client.ListFolders();
for (int i = 0; i < list.Count; i++)
{
    sb.AppendFormat("{0} - {1}\r\n", i + 1, list[i].Name);
}

Console.WriteLine(sb.ToString());


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

' 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")


Dim sb As New StringBuilder()

Dim list As FolderCollection = client.ListFolders()
For i As Integer = 0 To list.Count - 1
    sb.AppendFormat("{0} - {1}" & vbCrLf, i + 1, list(i).Name)
Next i

Console.WriteLine(sb.ToString())


' Close the connection.
client.Disconnect()

public void HandleCertificateReceivedEvent()
{
    // Create a new instance.
    Imap client = new Imap();

    client.CertificateReceived += client_CertificateReceived;

    // Connect to the IMAP server.
    client.Connect("myserver", 143, SslSecurityMode.Explicit);

    // Authenticate.
    client.Authenticate("userName", "password");

    // Do something here...
    // ...
    

    // Disconnect.
    client.Disconnect();
}

/// <summary>
/// Returns all issues of the given certificate.
/// </summary>
/// <param name="status">The certificate verification result.</param>
/// <param name="code">The error code.</param>
/// <returns>Certificate problems.</returns>
private static string GetCertProblem(CertificateVerificationStatus status, int code)
{
    switch (status)
    {
        case CertificateVerificationStatus.TimeNotValid:
            return "Server's certificate has expired or is not valid yet.";

        case CertificateVerificationStatus.Revoked:
            return "Server's certificate has been revoked.";

        case CertificateVerificationStatus.UnknownCa:
            return "Server's certificate was issued by an unknown authority.";

        case CertificateVerificationStatus.UntrustedRoot:
            return "Server's certificate was issued by an untrusted authority.";

        case CertificateVerificationStatus.IncompleteChain:
            return "Server's certificate does not chain up to a trusted root authority.";

        case CertificateVerificationStatus.Malformed:
            return "Server's certificate is malformed.";

        case CertificateVerificationStatus.CnNotMatch:
            return "Server hostname does not match the certificate.";

        case CertificateVerificationStatus.UnknownError:
            return string.Format("Error {0:x} encountered while validating server's certificate.", code);

        default:
            return status.ToString();
    }
}

void client_CertificateReceived(object sender, ComponentPro.Security.CertificateReceivedEventArgs e)
{
    X509Certificate2 cert = e.ServerCertificates[0];

    CertificateVerificationStatus status = e.Status;

    CertificateVerificationStatus[] values = (CertificateVerificationStatus[])Enum.GetValues(typeof(CertificateVerificationStatus));

    StringBuilder sbIssues = new StringBuilder();
    for (int i = 0; i < values.Length; i++)
    {
        // Matches the validation status?
        if ((status & values[i]) == 0)
            continue;

        // The issue is processed.
        status ^= values[i];

        sbIssues.AppendFormat("{0}\r\n", GetCertProblem(values[i], e.ErrorCode));
    }

    Console.WriteLine("Issue: " + sbIssues.ToString());

    Console.WriteLine("Subject: " + cert.SubjectName.Name);
    Console.WriteLine("Issuer: " + cert.IssuerName.Name);
    Console.WriteLine("Effective Date: " + cert.NotBefore);
    Console.WriteLine("Expiry Date: " + cert.NotAfter);
    Console.ResetColor();
    Console.Write("Do you want to accept this certificate (Add to trusted list, Yes, No) [a,y,n]?");

    string response = Console.ReadLine().Trim().ToLower();

    // Add certiticate of the issuer CA to the trusted list.
    if (response == "a")
    {
        e.AddToTrustedRoot = true;
    }
    else if (response == "y")
    {
        e.Accept = true;
    }
}

Public Sub HandleCertificateReceivedEvent()
    ' Create a new instance.
    Dim client As New Imap()

    AddHandler client.CertificateReceived, AddressOf client_CertificateReceived

    ' Connect to the IMAP server.
    client.Connect("myserver", 143, SslSecurityMode.Explicit)

    ' Authenticate.
    client.Authenticate("userName", "password")

    ' Do something here...
    ' ...


    ' Disconnect.
    client.Disconnect()
End Sub

''' <summary>
''' Returns all issues of the given certificate.
''' </summary>
''' <param name="status">The certificate verification result.</param>
''' <param name="code">The error code.</param>
''' <returns>Certificate problems.</returns>
Private Shared Function GetCertProblem(ByVal status As CertificateVerificationStatus, ByVal code As Integer) As String
    Select Case status
        Case CertificateVerificationStatus.TimeNotValid
            Return "Server's certificate has expired or is not valid yet."

        Case CertificateVerificationStatus.Revoked
            Return "Server's certificate has been revoked."

        Case CertificateVerificationStatus.UnknownCa
            Return "Server's certificate was issued by an unknown authority."

        Case CertificateVerificationStatus.UntrustedRoot
            Return "Server's certificate was issued by an untrusted authority."

        Case CertificateVerificationStatus.IncompleteChain
            Return "Server's certificate does not chain up to a trusted root authority."

        Case CertificateVerificationStatus.Malformed
            Return "Server's certificate is malformed."

        Case CertificateVerificationStatus.CnNotMatch
            Return "Server hostname does not match the certificate."

        Case CertificateVerificationStatus.UnknownError
            Return String.Format("Error {0:x} encountered while validating server's certificate.", code)

        Case Else
            Return status.ToString()
    End Select
End Function

Private Sub client_CertificateReceived(ByVal sender As Object, ByVal e As ComponentPro.Security.CertificateReceivedEventArgs)
    Dim cert As X509Certificate2 = e.ServerCertificates(0)

    Dim status As CertificateVerificationStatus = e.Status

    Dim values() As CertificateVerificationStatus = CType(System.Enum.GetValues(GetType(CertificateVerificationStatus)), CertificateVerificationStatus())

    Dim sbIssues As New StringBuilder()
    For i As Integer = 0 To values.Length - 1
        ' Matches the validation status?
        If (status And values(i)) = 0 Then
            Continue For
        End If

        ' The issue is processed.
        status = status Xor values(i)

        sbIssues.AppendFormat("{0}" & vbCrLf, GetCertProblem(values(i), e.ErrorCode))
    Next i

    Console.WriteLine("Issue: " & sbIssues.ToString())

    Console.WriteLine("Subject: " & cert.SubjectName.Name)
    Console.WriteLine("Issuer: " & cert.IssuerName.Name)
    Console.WriteLine("Effective Date: " & cert.NotBefore)
    Console.WriteLine("Expiry Date: " & cert.NotAfter)
    Console.ResetColor()
    Console.Write("Do you want to accept this certificate (Add to trusted list, Yes, No) [a,y,n]?")

    Dim response As String = Console.ReadLine().Trim().ToLower()

    ' Add certiticate of the issuer CA to the trusted list.
    If response = "a" Then
        e.AddToTrustedRoot = True
    ElseIf response = "y" Then
        e.Accept = True
    End If
End Sub

// 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");


StringBuilder sb = new StringBuilder();

FolderCollection list = client.ListFolders();
for (int i = 0; i < list.Count; i++)
{
    sb.AppendFormat("{0} - {1}\r\n", i + 1, list[i].Name);
}

Console.WriteLine(sb.ToString());


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

' 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")


Dim sb As New StringBuilder()

Dim list As FolderCollection = client.ListFolders()
For i As Integer = 0 To list.Count - 1
    sb.AppendFormat("{0} - {1}" & vbCrLf, i + 1, list(i).Name)
Next i

Console.WriteLine(sb.ToString())


' Close the connection.
client.Disconnect()

public void HandleCertificateRequiredEvent()
{
    // Create a new instance.
    Imap client = new Imap();

    client.CertificateRequired += client_CertificateRequired;

    // Connect to the IMAP server.
    client.Connect("myserver", 143, SslSecurityMode.Explicit);

    // Authenticate.
    client.Authenticate("userName", "password");

    // Do something here...
    // ...

    // Disconnect.
    client.Disconnect();
}

void client_CertificateRequired(object sender, ComponentPro.Security.CertificateRequiredEventArgs e)
{
    // Load certificates from the local machine.
    X509Store my = new X509Store(StoreName.My, StoreLocation.CurrentUser);
    my.Open(OpenFlags.ReadOnly);

    // Retrieve a list of available certificates.
    X509Certificate2Collection certs = my.Certificates;

    // If no certificate found, return.
    if (certs.Count == 0)
    {
        e.Certificates = null;
        return;
    }

    // Show all certificates.
    Console.WriteLine("Select certificate:");
    for (int i = 0; i <= certs.Count; i++)
    {
        if (i == 0)
        {
            Console.WriteLine(string.Format("{0}. [Nothing, skip this step]", i));
            continue;
        }

        Console.WriteLine(string.Format("{0}. {1}", i, certs[i - 1].SubjectName.Name));
    }

    // And ask user to choose an appropriate certificate.
    while (true)
    {
        Console.Write(string.Format("Select certificate [0 - {0}]: ", certs.Count));

        int certIndex;

        try
        {
            certIndex = int.Parse(Console.ReadLine());
        }
        catch
        {
            Console.WriteLine("ERROR: Wrong certificate index input!");
            continue;
        }

        if (certIndex > 0 && certIndex <= certs.Count)
        {
            e.Certificates = new X509Certificate2Collection(certs[certIndex]);
            return;
        }

        if (certIndex == 0)
            break;

        Console.WriteLine(string.Format("ERROR: You must enter number between 0 and {0}.", certs.Count));
    }
}

Public Sub HandleCertificateRequiredEvent()
    ' Create a new instance.
    Dim client As New Imap()

    AddHandler client.CertificateRequired, AddressOf client_CertificateRequired

    ' Connect to the IMAP server.
    client.Connect("myserver", 143, SslSecurityMode.Explicit)

    ' Authenticate.
    client.Authenticate("userName", "password")

    ' Do something here...
    ' ...

    ' Disconnect.
    client.Disconnect()
End Sub

Private Sub client_CertificateRequired(ByVal sender As Object, ByVal e As ComponentPro.Security.CertificateRequiredEventArgs)
    ' Load certificates from the local machine.
    Dim my As New X509Store(StoreName.My, StoreLocation.CurrentUser)
    my.Open(OpenFlags.ReadOnly)

    ' Retrieve a list of available certificates.
    Dim certs As X509Certificate2Collection = my.Certificates

    ' If no certificate found, return.
    If certs.Count = 0 Then
        e.Certificates = Nothing
        Return
    End If

    ' Show all certificates.
    Console.WriteLine("Select certificate:")
    For i As Integer = 0 To certs.Count
        If i = 0 Then
            Console.WriteLine(String.Format("{0}. [Nothing, skip this step]", i))
            Continue For
        End If

        Console.WriteLine(String.Format("{0}. {1}", i, certs(i - 1).SubjectName.Name))
    Next i

    ' And ask user to choose an appropriate certificate.
    Do
        Console.Write(String.Format("Select certificate [0 - {0}]: ", certs.Count))

        Dim certIndex As Integer

        Try
            certIndex = Integer.Parse(Console.ReadLine())
        Catch
            Console.WriteLine("ERROR: Wrong certificate index input!")
            Continue Do
        End Try

        If certIndex > 0 AndAlso certIndex <= certs.Count Then
            e.Certificates = New X509Certificate2Collection(certs(certIndex))
            Return
        End If

        If certIndex = 0 Then
            Exit Do
        End If

        Console.WriteLine(String.Format("ERROR: You must enter number between 0 and {0}.", certs.Count))
    Loop
End Sub

public void HandleCertificateRequiredEvent()
{
    // Create a new instance.
    Imap client = new Imap();

    client.CertificateRequired += client_CertificateRequired;

    // Connect to the IMAP server.
    client.Connect("myserver", 143, SslSecurityMode.Explicit);

    // Authenticate.
    client.Authenticate("userName", "password");

    // Do something here...
    // ...

    // Disconnect.
    client.Disconnect();
}

void client_CertificateRequired(object sender, ComponentPro.Security.CertificateRequiredEventArgs e)
{
    // Load certificates from the local machine.
    X509Store my = new X509Store(StoreName.My, StoreLocation.CurrentUser);
    my.Open(OpenFlags.ReadOnly);

    // Retrieve a list of available certificates.
    X509Certificate2Collection certs = my.Certificates;

    // If no certificate found, return.
    if (certs.Count == 0)
    {
        e.Certificates = null;
        return;
    }

    // Show all certificates.
    Console.WriteLine("Select certificate:");
    for (int i = 0; i <= certs.Count; i++)
    {
        if (i == 0)
        {
            Console.WriteLine(string.Format("{0}. [Nothing, skip this step]", i));
            continue;
        }

        Console.WriteLine(string.Format("{0}. {1}", i, certs[i - 1].SubjectName.Name));
    }

    // And ask user to choose an appropriate certificate.
    while (true)
    {
        Console.Write(string.Format("Select certificate [0 - {0}]: ", certs.Count));

        int certIndex;

        try
        {
            certIndex = int.Parse(Console.ReadLine());
        }
        catch
        {
            Console.WriteLine("ERROR: Wrong certificate index input!");
            continue;
        }

        if (certIndex > 0 && certIndex <= certs.Count)
        {
            e.Certificates = new X509Certificate2Collection(certs[certIndex]);
            return;
        }

        if (certIndex == 0)
            break;

        Console.WriteLine(string.Format("ERROR: You must enter number between 0 and {0}.", certs.Count));
    }
}

Public Sub HandleCertificateRequiredEvent()
    ' Create a new instance.
    Dim client As New Imap()

    AddHandler client.CertificateRequired, AddressOf client_CertificateRequired

    ' Connect to the IMAP server.
    client.Connect("myserver", 143, SslSecurityMode.Explicit)

    ' Authenticate.
    client.Authenticate("userName", "password")

    ' Do something here...
    ' ...

    ' Disconnect.
    client.Disconnect()
End Sub

Private Sub client_CertificateRequired(ByVal sender As Object, ByVal e As ComponentPro.Security.CertificateRequiredEventArgs)
    ' Load certificates from the local machine.
    Dim my As New X509Store(StoreName.My, StoreLocation.CurrentUser)
    my.Open(OpenFlags.ReadOnly)

    ' Retrieve a list of available certificates.
    Dim certs As X509Certificate2Collection = my.Certificates

    ' If no certificate found, return.
    If certs.Count = 0 Then
        e.Certificates = Nothing
        Return
    End If

    ' Show all certificates.
    Console.WriteLine("Select certificate:")
    For i As Integer = 0 To certs.Count
        If i = 0 Then
            Console.WriteLine(String.Format("{0}. [Nothing, skip this step]", i))
            Continue For
        End If

        Console.WriteLine(String.Format("{0}. {1}", i, certs(i - 1).SubjectName.Name))
    Next i

    ' And ask user to choose an appropriate certificate.
    Do
        Console.Write(String.Format("Select certificate [0 - {0}]: ", certs.Count))

        Dim certIndex As Integer

        Try
            certIndex = Integer.Parse(Console.ReadLine())
        Catch
            Console.WriteLine("ERROR: Wrong certificate index input!")
            Continue Do
        End Try

        If certIndex > 0 AndAlso certIndex <= certs.Count Then
            e.Certificates = New X509Certificate2Collection(certs(certIndex))
            Return
        End If

        If certIndex = 0 Then
            Exit Do
        End If

        Console.WriteLine(String.Format("ERROR: You must enter number between 0 and {0}.", certs.Count))
    Loop
End Sub

public void ShowProgress()
{
    // Create a new Imap instance.
    Imap client = new Imap();

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

    // Authenticate.
    client.Authenticate("test", "test");

    try
    {
        // Register an event handler.
        client.Progress += client_Progress;

        client.Select("INBOX");

        // Download a message with sequence number #1.
        client.DownloadMessage(1, "c:\\temp\\my message.eml");
    }
    catch (ImapException exc)
    {
        Console.WriteLine("Exception: " + exc.Message);
    }

    // Disconnect.
    client.Disconnect();
}

void client_Progress(object sender, ImapProgressEventArgs e)
{
    // Show progress information.
    if (e.Length > 0 && e.State == ImapTransferState.Downloading)
    {
        Console.Write("\rDownloaded: {0} bytes ({1}% completed)", e.BytesTransferred, e.Percentage);
    }
}

Public Sub ShowProgress()
    ' Create a new Imap instance.
    Dim client As New Imap()

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

    ' Authenticate.
    client.Authenticate("test", "test")

    Try
        ' Register an event handler.
        AddHandler client.Progress, AddressOf client_Progress

        client.Select("INBOX")

        ' Download a message with sequence number #1.
        client.DownloadMessage(1, "c:\temp\my message.eml")
    Catch exc As ImapException
        Console.WriteLine("Exception: " & exc.Message)
    End Try

    ' Disconnect.
    client.Disconnect()
End Sub

Private Sub client_Progress(ByVal sender As Object, ByVal e As ImapProgressEventArgs)
    ' Show progress information.
    If e.Length > 0 AndAlso e.State = ImapTransferState.Downloading Then
        Console.Write(vbCr & "Downloaded: {0} bytes ({1}% completed)", e.BytesTransferred, e.Percentage)
    End If
End Sub

public void HandleStateChangedEvent()
{
    // Create a new instance.
    Imap client = new Imap();

    client.StateChanged += client_StateChanged;

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

    // Authenticate.
    client.Authenticate("test", "test");

    // ...

    // Do something here

    // ...

    // Disconnect.
    client.Disconnect();
}

void client_StateChanged(object sender, ImapStateChangedEventArgs e)
{
    Console.WriteLine("State changed, old state: {0}, new state: {1}", e.OldState, e.State);
}

Public Sub HandleStateChangedEvent()
    ' Create a new instance.
    Dim client As New Imap()

    AddHandler client.StateChanged, AddressOf client_StateChanged

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

    ' Authenticate.
    client.Authenticate("test", "test")

    ' ...

    ' Do something here

    ' ...

    ' Disconnect.
    client.Disconnect()
End Sub

Private Sub client_StateChanged(ByVal sender As Object, ByVal e As ImapStateChangedEventArgs)
    Console.WriteLine("State changed, old state: {0}, new state: {1}", e.OldState, e.State)
End Sub

// 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");

// Get information about the INBOX mailbox.
Folder m = client.GetFolderInfo("INBOX");

Console.WriteLine("The number of recent messages: " + m.RecentMessages);
Console.WriteLine("The number of new unseen messages messages: " + m.NewUnseenMessages);

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

' 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")

' Get information about the INBOX mailbox.
Dim m As Folder = client.GetFolderInfo("INBOX")

Console.WriteLine("The number of recent messages: " & m.RecentMessages)
Console.WriteLine("The number of new unseen messages messages: " & m.NewUnseenMessages)

' Close the connection.
client.Disconnect()

// 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");

ImapMessageCollection listMessages = client.ListMessages();

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

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

' 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")

Dim listMessages As ImapMessageCollection = client.ListMessages()

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

' Close the connection.
client.Disconnect()

// 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");

ImapMessageCollection listMessages = client.ListMessages();

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

// Now deselect the current working mailbox.
client.Deselect();

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

' 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")

Dim listMessages As ImapMessageCollection = client.ListMessages()

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

' Now deselect the current working mailbox.
client.Deselect()

' Close the connection.
client.Disconnect()

// 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);

// Delete a 'My Mybox' folder in the root folder.
client.DeleteFolder("My Mailbox");

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

' 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)

' Delete a 'My Mybox' folder in the root folder.
client.DeleteFolder("My Mailbox")

' Close the connection.
client.Disconnect()

// 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();

' 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()

static void Main()
{
    // 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);

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

        // Get file name.
        string filename = GetFilename(message.UniqueId) + ".eml";

        // Get new message only.
        if (!System.IO.File.Exists(filename))
        {
            Console.WriteLine("Downloading message {0}...", message.UniqueId);
            client.DownloadMessage(message.UniqueId, filename);
        }
    }

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

/// <summary>
/// Returns a uniquely correct file name from the specified unique message ID.
/// </summary>
/// <param name="uniqueId">The unique id.</param>
/// <returns>The corrected file name.</returns>
private static string GetFilename(string uniqueId)
{
    // Characters allowed in the filename
    const string allowed = " .-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";

    // Replace invalid charactes with its hex representation
    StringBuilder sb = new StringBuilder();
    for (int i = 0; i < uniqueId.Length; i++)
    {
        if (allowed.IndexOf(uniqueId[i]) < 0)
            sb.AppendFormat("_{0:X2}", (int)uniqueId[i]);
        else
            sb.Append(uniqueId[i]);
    }
    return sb.ToString();
}

Shared Sub Main()
    ' 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)

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

        ' Get file name.
        Dim filename As String = GetFilename(message.UniqueId) & ".eml"

        ' Get new message only.
        If Not System.IO.File.Exists(filename) Then
            Console.WriteLine("Downloading message {0}...", message.UniqueId)
            client.DownloadMessage(message.UniqueId, filename)
        End If
    Next i

    ' Close the connection.
    client.Disconnect()
End Sub

''' <summary>
''' Returns a uniquely correct file name from the specified unique message ID.
''' </summary>
''' <param name="uniqueId">The unique id.</param>
''' <returns>The corrected file name.</returns>
Private Shared Function GetFilename(ByVal uniqueId As String) As String
    ' Characters allowed in the filename
    Const allowed As String = " .-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

    ' Replace invalid charactes with its hex representation
    Dim sb As New StringBuilder()
    For i As Integer = 0 To uniqueId.Length - 1
        If allowed.IndexOf(uniqueId.Chars(i)) < 0 Then
            sb.AppendFormat("_{0:X2}", System.Convert.ToInt32(uniqueId.Chars(i)))
        Else
            sb.Append(uniqueId.Chars(i))
        End If
    Next i
    Return sb.ToString()
End Function

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

Imap client = new Imap();
try
{
    Console.WriteLine("Connecting IMAP server: {0}:{1}...", serverName, port);
    // Connect to the server.
    client.Connect(serverName, port, securityMode);

    // Login to the server.
    Console.WriteLine("Logging in as {0}...", user);
    client.Authenticate(user, password);

    // Create a new MailMessage object.
    MailMessage message = new MailMessage();
    message.From.Add("from@thedomain.com");
    message.To.Add("name@domain.com");
    message.Subject = "Test Subject";
    message.BodyText = "Test Content";

    // Upload message.
    Console.WriteLine("Uploading message...");
    // Upload the message to the 'Inbox' mailbox.
    client.UploadMessage("Inbox", message);

    // Disconnect.
    Console.WriteLine("Disconnecting...");
    client.Disconnect();

}
catch (ImapException imapExc)
{
    Console.WriteLine(string.Format("An IMAP error occurred: {0}, ErrorStatus: {1}", imapExc.Message, imapExc.Status));
}
catch (Exception exc)
{
    Console.WriteLine(string.Format("An error occurred: {0}", exc.Message));
}

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

Dim client As New Imap()
Try
    Console.WriteLine("Connecting IMAP server: {0}:{1}...", serverName, port)
    ' Connect to the server.
    client.Connect(serverName, port, securityMode)

    ' Login to the server.
    Console.WriteLine("Logging in as {0}...", user)
    client.Authenticate(user, password)

    ' Create a new MailMessage object.
    Dim message As New MailMessage()
    message.From.Add("from@thedomain.com")
    message.To.Add("name@domain.com")
    message.Subject = "Test Subject"
    message.BodyText = "Test Content"

    ' Upload message.
    Console.WriteLine("Uploading message...")
    ' Upload the message to the 'Inbox' mailbox.
    client.UploadMessage("Inbox", message)

    ' Disconnect.
    Console.WriteLine("Disconnecting...")
    client.Disconnect()

Catch imapExc As ImapException
    Console.WriteLine(String.Format("An IMAP error occurred: {0}, ErrorStatus: {1}", imapExc.Message, imapExc.Status))
Catch exc As Exception
    Console.WriteLine(String.Format("An error occurred: {0}", exc.Message))
End Try

// 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");

ImapMessageIdCollection set = new ImapMessageIdCollection(1, 2, 3);

// Copy mail messages with sequence numbers 1, 2, and 3 to folder 'my box'.
client.CopyMessage(set, "my box");

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

' 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")

Dim [set] As New ImapMessageIdCollection(1, 2, 3)

' Copy mail messages with sequence numbers 1, 2, and 3 to folder 'my box'.
client.CopyMessage([set], "my box")

' Close the connection.
client.Disconnect()

// 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");

// Delete a mail message with inbox index 1.
client.DeleteMessage(1);

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

' 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")

' Delete a mail message with inbox index 1.
client.DeleteMessage(1)

' Close the connection.
client.Disconnect()

// 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");

// Delete a message with Sequence number # 1.
client.DeleteMessage(1);

// ...

// Purge all messages marked as deleted in the 'INBOX' mailbox
client.Purge();

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

' 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")

' Delete a message with Sequence number # 1.
client.DeleteMessage(1)

' ...

' Purge all messages marked as deleted in the 'INBOX' mailbox
client.Purge()

' Close the connection.
client.Disconnect()

const string serverName = "myserver";
const string user = "name@domain.com";
const string password = "password";
const int port = 993;
const string folder = "Inbox";
const SslSecurityMode securityMode = SslSecurityMode.Implicit;

Imap client = new Imap();
try
{
    Console.WriteLine("Connecting IMAP server: {0}:{1}...", serverName, port);
    // Connect to the server.
    client.Connect(serverName, port, securityMode);

    // Login to the server.
    Console.WriteLine("Logging in as {0}...", user);
    client.Authenticate(user, password);

    // Select working folder.
    Console.WriteLine("Selecting folder '{0}'...", folder);
    client.Select(folder);

    // Set the first message in the Inbox as Read.
    Console.WriteLine("Selecting the first message as Read...");
    client.Flag(1, ImapFlagModifier.Add, ImapMessageFlags.Seen);

    // Set the first message in the Inbox as Deleted.
    // Setting the "Deleted" flag is equivalent to client.Delete method.
    Console.WriteLine("Selecting the first message as Deleted...");
    client.Flag(1, ImapFlagModifier.Add, ImapMessageFlags.Deleted);

    // Disconnect.
    Console.WriteLine("Disconnecting...");
    client.Disconnect();

}
catch (ImapException imapExc)
{
    Console.WriteLine(string.Format("An IMAP error occurred: {0}, ErrorStatus: {1}", imapExc.Message, imapExc.Status));
}
catch (Exception exc)
{
    Console.WriteLine(string.Format("An error occurred: {0}", exc.Message));
}

Const serverName As String = "myserver"
Const user As String = "name@domain.com"
Const password As String = "password"
Const port As Integer = 993
Const folder As String = "Inbox"
Const securityMode As SslSecurityMode = SslSecurityMode.Implicit

Dim client As New Imap()
Try
    Console.WriteLine("Connecting IMAP server: {0}:{1}...", serverName, port)
    ' Connect to the server.
    client.Connect(serverName, port, securityMode)

    ' Login to the server.
    Console.WriteLine("Logging in as {0}...", user)
    client.Authenticate(user, password)

    ' Select working folder.
    Console.WriteLine("Selecting folder '{0}'...", folder)
    client.Select(folder)

    ' Set the first message in the Inbox as Read.
    Console.WriteLine("Selecting the first message as Read...")
    client.Flag(1, ImapFlagModifier.Add, ImapMessageFlags.Seen)

    ' Set the first message in the Inbox as Deleted.
    ' Setting the "Deleted" flag is equivalent to client.Delete method.
    Console.WriteLine("Selecting the first message as Deleted...")
    client.Flag(1, ImapFlagModifier.Add, ImapMessageFlags.Deleted)

    ' Disconnect.
    Console.WriteLine("Disconnecting...")
    client.Disconnect()

Catch imapExc As ImapException
    Console.WriteLine(String.Format("An IMAP error occurred: {0}, ErrorStatus: {1}", imapExc.Message, imapExc.Status))
Catch exc As Exception
    Console.WriteLine(String.Format("An error occurred: {0}", exc.Message))
End Try

// 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();

' 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()

public void DoAbort()
{
    // Create a new Imap instance.
    Imap client = new Imap();

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

    // Authenticate.
    client.Authenticate("test", "test");

    try
    {
        // Register an event handler.
        client.Progress += client_Progress;

        client.Select("INBOX");

        // Download a message with sequence number #1.
        client.DownloadMessage(1, "c:\\temp\\my message.eml");
    }
    catch (ImapException exc)
    {
        Console.WriteLine("Exception: " + exc.Message);
    }

    // Disconnect.
    client.Disconnect();
}

void client_Progress(object sender, ImapProgressEventArgs e)
{
    // Abort the download operation if the bytes transferred is greater than or equal to 500Kb.
    if (e.State == ImapTransferState.Downloading && e.BytesTransferred >= 1024 * 500)
    {
        ((Imap)sender).Cancel();
    }
}

Public Sub DoAbort()
    ' Create a new Imap instance.
    Dim client As New Imap()

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

    ' Authenticate.
    client.Authenticate("test", "test")

    Try
        ' Register an event handler.
        AddHandler client.Progress, AddressOf client_Progress

        client.Select("INBOX")

        ' Download a message with sequence number #1.
        client.DownloadMessage(1, "c:\temp\my message.eml")
    Catch exc As ImapException
        Console.WriteLine("Exception: " & exc.Message)
    End Try

    ' Disconnect.
    client.Disconnect()
End Sub

Private Sub client_Progress(ByVal sender As Object, ByVal e As ImapProgressEventArgs)
    ' Abort the download operation if the bytes transferred is greater than or equal to 500Kb.
    If e.State = ImapTransferState.Downloading AndAlso e.BytesTransferred >= 1024 * 500 Then
        CType(sender, Imap).Cancel()
    End If
End Sub