Ciao a tutti,
sto facendo un lettore di email utilizzando il winsock, sono arrivato al punto di autentificarmi, ricevere quante mail ci sono sul server, ma poi ho dei problemi nella lettura della mail, mi và in timeout (anche portando il valore a 300 secondi), se vado mediante telnet non succede, anche perchè le mail sono non più grandi di 50Kb.

per attendere che arrivi la risposta ai comandi pop3 ho usato questa funzione.

'RispostaSRV = "+OK"
'intervall= 30
Function WaitTime(RispostaSRV As String, Intervall As Integer) As Boolean
Dim WaitSt As Date
WaitSt = Now()
While InStr(1, RespSRV, RispostaSRV, 1) < 1
DoEvents
If DateDiff("s", WaitSt, Now) > Intervall Then
RespSRV = ""
WaitTime = False
Exit Function
End If
Wend
'Registro l'ultima risposta del server in una variabile temporanea
RespSRVTemp = RespSRV
RespSRV = ""
WaitTime = True
End Function

a volta mi stampa le prime due nel text box a volte solo 1 su 10 presenti sul server...qualcuno ha esperienza in queste cose e può aiutarmi con qualche consiglio sul come prelevare le mail senza incappare in timeout di lettura?