2014-07-18 5 views

Répondre

0
Dim pop3Client As Pop3Client 
Dim i As Integer =1 
pop3Client = New Pop3Client 
pop3Client.Connect("pop.gmail.com", 995, True) 
pop3Client.Authenticate("[email protected]", "mypassword") 
Dim inbox_count As Integer = pop3Client.GetMessageCount 
Do While (inbox_count >= i) 
Dim message As Message = pop3Client.GetMessage(i) 
If message.Headers.From.Address.ToString = "[email protected]" then 
pop3Client.DeleteMessage(i) 
End if 
i=i+1 
Loop 
Questions connexes