Uses wodMailbox ActiveX component

Dim wodMailBox1 As wodMailboxCom
Set wodMailBox1 = New wodMailboxCom

'First we need to open mailbox.
wodMailBox1.FileName = "c:\mbox"
wodMailBox1.Lock

Dim i As Integer
'Using Messages Collection we can go though messages inside mailbox
'and find out information we want about each message.
For i = 0 To wodMailBox1.Messages.Count - 1
    Debug.Print "Message: " & i + 1
    Debug.Print "From:    " & wodMailBox1.Messages(i).From
    Debug.Print "Subject: " & wodMailBox1.Messages(i).Subject
Next i

Uses wodMailbox ActiveX component

Dim wodMailBox1 As WODMAILBOXCOMLib.wodMailboxCom
wodMailBox1 = New WODMAILBOXCOMLib.wodMailboxCom

'First we need to open mailbox.
wodMailBox1.FileName = "c:\mbox"
wodMailBox1.Lock()

Dim i As Integer
'Using Messages Collection we can go though messages inside mailbox
'and find out information we want about each message.
For i = 0 To wodMailBox1.Messages.Count - 1
    Console.WriteLine("Message: " & i + 1)
    Console.WriteLine("From:    " & wodMailBox1.Messages(i).From)
    Console.WriteLine("Subject: " & wodMailBox1.Messages(i).Subject)
Next i

Uses wodMailbox ActiveX component

WODMAILBOXCOMLib.wodMailboxCom wodMailBox1;
wodMailBox1 = new WODMAILBOXCOMLib.wodMailboxCom();

//First we need to open mailbox.
wodMailBox1.Filename = "c:\\mbox";
wodMailBox1.Lock();

short i;
//Using Messages Collection we can go though messages inside mailbox
//and find out information we want about each message.
for (i = 0; i <= wodMailBox1.Messages.Count - 1; i++)
{
    Console.WriteLine("Message: " + (i + 1));
    Console.WriteLine("From:    " + wodMailBox1.Messages[i].From);
    Console.WriteLine("Subject: " + wodMailBox1.Messages[i].Subject);
}