public class Imap : IComponent, IDisposable

Public Class Imap
	Implements IComponent, IDisposable

using System;
using MailBee;
using MailBee.ImapMail;

class Sample
{
    static void Main(string[] args)
    {
        Imap imp = new Imap();

        // Connect to the server, login and select inbox.
        imp.Connect("mail.somecompany.com");
        imp.Login("jdoe@somecompany.com", "secret");
        imp.SelectFolder("INBOX");

        string range;

        // Does the inbox contain at least 10 mails?
        if (imp.MessageCount >= 10)
        {
            // We'll get last 10 mails.
            range = (imp.MessageCount - 9).ToString() + ":" + "*";
        }
        else
        {
            // We'll get all mails.
            range = Imap.AllMessages;
        }

        // Get envelopes for the specified messages.
        EnvelopeCollection envelopes = imp.DownloadEnvelopes(range, false);

        // Make newer messages be displayed first.
        envelopes.Reverse();

        foreach (Envelope env in envelopes)
        {
            Console.WriteLine("Message #" + env.MessageNumber);
            Console.WriteLine("From: " + env.From.ToString());
            Console.WriteLine("To: " + env.To.ToString());
            Console.WriteLine("Subject: " + env.Subject);
            Console.WriteLine();
        }

        // Disconnect from the server.
        imp.Disconnect();
    }
}

Imports System
Imports MailBee
Imports MailBee.ImapMail

Module Sample
    Sub Main(ByVal args As String())
        Dim imp As New Imap

        ' Connect to the server, login and select inbox.
        imp.Connect("mail.somecompany.com")
        imp.Login("jdoe@somecompany.com", "secret")
        imp.SelectFolder("INBOX")

        Dim range As String

        ' Does the inbox contain at least 10 mails?
        If imp.MessageCount >= 10 Then
            ' We'll get last 10 mails.
            range = (imp.MessageCount - 9).ToString() & ":" & "*"
        Else
            ' We'll get all mails.
            range = Imap.AllMessages
        End If

        ' Get envelopes for the specified messages.
        Dim envelopes As EnvelopeCollection = imp.DownloadEnvelopes(range, False)

        ' Make newer messages be displayed first.
        envelopes.Reverse()

        For Each env As Envelope In envelopes
            Console.WriteLine("Message #" & env.MessageNumber)
            Console.WriteLine("From: " & env.From.ToString())
            Console.WriteLine("To: " & env.To.ToString())
            Console.WriteLine("Subject: " & env.Subject)
            Console.WriteLine()
        Next

        ' Disconnect from the server.
        imp.Disconnect()
    End Sub
End Module