lo so ke è tardi e ti ringrazio...ma ci sono ancora molti buki...
ti scrivo che faccio io:

Creo un nuovo exe
nel form ci trascino
1 bottone
1 Microsoft Winsock 6
1 campo di testo


nel codice scrivo
codice:
Private Sub Command1_Click()
winsocket1.Connect
End Sub

Private Sub socket_Connect()

  winsocket1.SendData "HELO" & vbCrLf
    DoEvents
  winsocket1.SendData "MAIL FROM: <polistus.gallicus@inwind.it>" & vbCrLf
    DoEvents
  winsocket1.SendData "RCPT TO: <polistus.gallicus@inwind.it>" & vbCrLf
    DoEvents
winsocket1.SendData "DATA" & vbCrLf
   DoEvents
  winsocket1.SendData "" & vbCrLf 'Invii una stringa vuota
   DoEvents
  winsocket1.SendData "PROVA TESTO DEL MESSAGGIO" & vbCrLf
   DoEvents
  winsocket1.SendData "." & vbCrLf 'INVII LA FINE
   DoEvents

     MsgBox "EMAIL INVIATA"
 
End Sub
ma non funzia...(senza contare che io vorrei mandar come testo quello che c'è nella textbox...!
CIAOOO!!! :sgrat: