Uses wodPop3 ActiveX component

Dim wodPop3 As wodPop3Com
Set wodPop3 = New wodPop3Com

'First we set up the hostname, login and password for POP3 server.
wodPop3.HostName = "your_pop3_hostname"
wodPop3.Login = "your_pop3_login"
wodPop3.Password = "your_pop3_password"
wodPop3.Blocking = True 'Use synchronous connections
'Then we connect to POP3 server.
wodPop3.Connect
'Upon successful connection GetAllHeaders will read all headers from the server.
'Using GetAllHeaders no files are created on local disk. All headers are kept in memory.
wodPop3.Messages.GetAllHeaders
Dim i As Integer
For i = 0 To wodPop3.Messages.Count - 1
        Debug.Print ("Message: " & i + 1)
        Debug.Print ("UID:     " & wodPop3.Messages(i).Uid)  'Read message unique ID
Next i
'Disconnect from server.
wodPop3.Disconnect

Uses wodPop3 ActiveX component

Dim wodPop3 As New WODPOP3COMLib.wodPop3Com

'First we set up the hostname, login and password for POP3 server.
wodPop3.Hostname = "your_pop3_hostname"
wodPop3.Login = "your_pop3_login"
wodPop3.Password = "your_pop3_password"
wodPop3.Blocking = True 'Use synchronous connections
'Then we connect to POP3 server.
wodPop3.Connect()
'Upon successful connection GetAllHeaders will read all headers from the server.
'Using GetAllHeaders no files are created on local disk. All headers are kept in memory.
wodPop3.Messages.GetAllHeaders()
Dim i As Integer
For i = 0 To wodPop3.Messages.Count - 1
    Debug.Print("Message: " & i + 1)
    Debug.Print("UID:     " & wodPop3.Messages(i).Uid) 'Read message unique ID
Next i
'Disconnect from server.
wodPop3.Disconnect()

Uses wodPop3 ActiveX component

WODPOP3COMLib.wodPop3Com wodPop3 = new WODPOP3COMLib.wodPop3Com();

//First we set up the hostname, login and password for POP3 server.
wodPop3.Hostname = "your_pop3_hostname";
wodPop3.Login = "your_pop3_login";
wodPop3.Password = "your_pop3_password";
wodPop3.Blocking = true; //Use synchronous connections
//Then we connect to POP3 server.
wodPop3.Connect();
//Upon successful connection GetAllHeaders will read all headers from the server.
//Using GetAllHeaders no files are created on local disk. All headers are kept in memory.
wodPop3.Messages.GetAllHeaders();
short i;
for (i = 0; i <= wodPop3.Messages.Count - 1; i++)
{
    Console.WriteLine("Message: " + (i + 1));
    Console.WriteLine("UID:     " + wodPop3.Messages[i].Uid); //Read message unique ID
}
//Disconnect from server.
wodPop3.Disconnect();