CIao! Devo inviare un'email dal mio programma ecco il codice usato col controllo winsock:

codice:
Private Sub mail_Click()
Winsocket1.Connect
End Sub
Private Sub Winsocket1_Close()
MsgBox "E-mail inviata!", vbInformation, "!!!"
End Sub

Private Sub winsocket1_Connect()
  Winsocket1.SendData "HELO" & vbCrLf
    DoEvents
  Winsocket1.SendData "MAIL FROM: <ciccio@ines.it>" & vbCrLf
    DoEvents
  Winsocket1.SendData "RCPT TO: <polistus.gallicus@inwind.it>" & vbCrLf
    DoEvents
  Winsocket1.SendData "DATA" & vbCrLf
   DoEvents
  Winsocket1.SendData "Subject: Examinations's Controller" & vbCrLf
   DoEvents
  Winsocket1.SendData "From: polistus.gallicus@inwind.it" & vbCrLf
   DoEvents
  Winsocket1.SendData "To: polistus.gallicus@inwind.it" & vbCrLf
   DoEvents
  Winsocket1.SendData "" & vbCrLf 'Invii una stringa vuota
   DoEvents
  Winsocket1.SendData nome.Text & vbCrLf
   DoEvents
    Winsocket1.SendData "" & vbCrLf 'Invii una stringa vuota
   DoEvents
  Winsocket1.SendData Text1.Text & vbCrLf
   DoEvents
  Winsocket1.SendData "." & vbCrLf 'INVII LA FINE
   DoEvents
Winsocket1.Close

End Sub

Private Sub Winsocket1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Si è verificato un errore nell'invio!", vbExclamation, "Attenzione!"
Winsocket1.Close

End Sub
Ho impostato il server di posta in uscita su porta 25 e ho provato con quello di wind, lycos, tiscali ecc ecc ma continua a non inviare nulla....

come mai?
Graziec
cia