Allora, ho implementato il codice con un ritardo tra una istruzione e l'altra.

codice:
Private Sub Form_Load()
 Winsock1.Close
 Winsock1.Connect "smtp.libero.it", 25
End Sub

Private Sub Command1_Click()
 Winsock1.SendData "RSET" & vbCrLf
 Delay
 Winsock1.SendData "HELO Libero" & vbCrLf
 Delay
 Winsock1.SendData "MAIL FROM:<server@server.it>" & vbCrLf
 Delay
 Winsock1.SendData "RCPT TO:<skynet290897@libero.it>" & vbCrLf
 Delay
 Winsock1.SendData "DATA" & vbCrLf
 Delay
 Winsock1.SendData "Prova"
 Winsock1.SendData vbCrLf
 Delay
 Winsock1.SendData "."
 Winsock1.SendData vbCrLf
 MsgBox ("Inviato!")
End Sub

Sub Delay()
 For iCount = 1 To 70000000
 Next iCount
End Sub
Gli stessi comandi SMTP inviati con il Telnet di Windows funzionano perfettamente, quindi escludo che sia il server SMTP a dare problemi o i comandi errati.

Ho provato vari tipi di ritardo, aumentando e diminuendo il limite del contatore.

Ho eseguito il programma con il debug, istruzione per istruzione.

Niente, la mail non viene spedita.

Qualche idea?