Allora, ho riscritto completamente il codice, prova così:

codice:
Private Sub Command1_Click()
Winsock1.Connect "indirizzo_server_remoto", 25
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO " & Winsock1.LocalIP & Chr$(13) & Chr$(10)
Winsock1.SendData "MAIL FROM:<tuo_indirizzo(opzionale)>" & Chr$(13) & Chr$(10)
Winsock1.SendData "RCPT TO:<" & "indirizzo_destinatario" & ">" & Chr$(13) & Chr$(10)
InviaMess
End Sub

Sub InviaMess()
Winsock1.SendData "DATA" & Chr$(13) & Chr$(10)
Winsock1.SendData "SUBJECT: " & "oggetto_del_messaggio" & vbCrLf
Winsock1.SendData Text1.Text & vbCrLf
Winsock1.SendData "." & vbCrLf
Winsock1.Close
MsgBox "E-mail inviata."
End Sub
In questo modo non viene controllata la risposta del server, ma dovrebbe andare. Almeno a me funzia...!!! :master: