Code: Select all
Dim mail As New Pop3Mail
mail.Connect("mail.xxxx.net", "user", "password")
For Each msg As Pop3Mail.Pop3Message In mail.List
Trace.WriteLine(DirectCast(mail.Retrieve(msg), Pop3Mail.Pop3Message).message)
Next
Code: Select all
Dim mail As New Pop3Mail
mail.Connect("mail.xxxx.net", "user", "password")
For Each msg As Pop3Mail.Pop3Message In mail.List
Trace.WriteLine(DirectCast(mail.Retrieve(msg), Pop3Mail.Pop3Message).message)
Next