Ciao a tutti, sto cercando di realizzare,in vb6, un programma che permetta di inviare email nel modo di telnet. Vi posto subito il codice.

codice:
Private Sub email()
Winsock1.Connect "mail.libero.it", 25
Winsock1.SendData ("helo prova" & vbCrLf)
Winsock1.SendData ("mail from:<prova@live.it>" & vbCrLf)
Winsock1.SendData ("rcpt to:<nicolas_97@live.it>" & vbCrLf)
Winsock1.SendData ("data" & vbCrLf)
Winsock1.SendData ("to:>" & vbCrLf)
Winsock1.SendData ("to:<nicolas_97@live.it>" & vbCrLf)
Winsock1.SendData ("subject:prova" & vbCrLf)
Winsock1.SendData (vbCrLf)
Winsock1.SendData (vbCrLf)
Winsock1.SendData ("Come stai?" & vbCrLf)
Winsock1.SendData ("." & vbCrLf)
Winsock1.SendData ("quit")
End Sub
Private Sub Command1_Click()
email
End Sub
Non capisco dove sbaglio, mi da errore subito nella seconda riga di codice. Qual'è il problema? Mi da errore 40006. Spero possiate aiutarmi.