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
'Using Pop3Msgs Collection we will go though all messages.
For i = 0 To wodPop3.Messages.Count - 1
    'Setting MarkDelete to True message will be marked to be deleted.
    wodPop3.Messages(i).MarkDelete = True
Next i
'Using Disconnect Method wodPop3 will first delete messages one by one and finally disconnect.
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
'Using Pop3Msgs Collection we will go though all messages.
For i = 0 To wodPop3.Messages.Count - 1
    'Setting MarkDelete to True message will be marked to be deleted.
    wodPop3.Messages(i).MarkDelete = True
Next i
'Using Disconnect Method wodPop3 will first delete messages one by one and finally disconnect.
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;
//Using Pop3Msgs Collection we will go though all messages.
for (i = 0; i <= wodPop3.Messages.Count - 1; i++)
{
    //Setting MarkDelete to True message will be marked to be deleted.
    wodPop3.Messages[i].MarkDelete = true;
}
//Using Disconnect Method wodPop3 will first delete messages one by one and finally disconnect.
wodPop3.Disconnect();