[VB6] Errore invio email tramite Winsock

[magnifico09]

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.

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.

[magnifico09]

Minchia su 30 visualizzazioni neanche una risposta Comunque ho risolto. Potete chiudere.

[alka]

Originariamente inviato da magnifico09
Minchia su 30 visualizzazioni neanche una risposta Comunque ho risolto. Potete chiudere.

Ricordati quanto ti è stato detto qui, che era già un promemoria per un'altra volta ancora.

Ormai cominci ad accumularne parecchie... poi non lamentarti se nessuno ti risponde.