Ho copiato quello dell'altro trhead ecco il codice:
Private Sub Command3_Click()
Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()

Winsock1.SendData "HELO" & vbCrLf
DoEvents
Winsock1.SendData "MAIL FROM: <beppe@supereva.it>" & vbCrLf
DoEvents
Winsock1.SendData "RCPT TO: <sanny82@libero.it>" & vbCrLf
DoEvents
Winsock1.SendData "DATA" & vbCrLf
DoEvents
Winsock1.SendData "" & vbCrLf 'Invii una stringa vuota
DoEvents
Winsock1.SendData "PROVA TESTO DEL MESSAGGIO" & vbCrLf
DoEvents
Winsock1.SendData "." & vbCrLf 'INVII LA FINE
DoEvents

MsgBox "EMAIL INVIATA"

End Sub

Ho preso il Winsock
Parametri:
nome:Winsock1
RemoteHost:smtp.email.it
Remote Post: 25

Grazie per l'aiuto