[vb6] Winsock che nn funzia!!!

[Pinco Pallino 2]

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

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

[Gigi84]

ciao!
Ma non dovresti anche ascoltare le risposte del server? e quindi sapere quando è pronto per recepire un nuovo comando? (ti dico però che non conosco bene il protocollo..)
sicuro che sia permesso a tutti i client che si connettono usare questi server per mandare le mail? cmq se col telnet funziona dovrebbe funzionare anche così!

Ciao!!

[Pinco Pallino 2]

penso anke dipenda dal server...ma cavolo ne ho provato una decina!!! VVoVe:

[Pinco Pallino 2]

ho aggiunto questo pezzettino di codice...ma nulla...

Do Until Winsocket1.State = sckConnected 
        DoEvents
    Loop

[Pinco Pallino 2]

help!

[goku370]

Funziona col TELNET ? :master:

[Pinco Pallino 2]

nn lo so come si testa con telnet? Non l'ho mai usato!

[Mabi]

Prova a vedere questa discussione in cui si è riusciti a risolvere il problema...

[Pinco Pallino 2]

veramente una delle discussioni in cui si è risolto è una vekkia ke postai un anno fa...e dove grazie al codide sopracitato tutto andava...ma ora non funziona...

quindi se è colpa dei servers nn potremo mai + inviare mails da VB?
UFF

[Mabi]

...io pensavo di dare una mano...

nn potremo mai + inviare mails da VB?

Se possono aiutarti, guarda questi articoli sull'invio di e-mail:

• inviare un'e-mail utilizzando il protocollo mailto
• invio basato sull'uso delle funzioni Simple-MAPI