vb6 winsock send mail

[ciro78]

Ciao a tutti

facendo la ricerca nel forum ho trovato questo

Dim sRes As String
Private Sub Command1_Click()
    Winsock1.RemotePort = 25
    Winsock1.RemoteHost = your_mail_server_here
    'usa il tuo mail server
    Winsock1.Connect
    Do Until Winsock1.State = 7 '7=connected
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "MAIL FROM: " & your_email_here & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "RCPT TO: " & someone_email_here & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "DATA" & vbCrLf
    Do Until sRes = "354"
        DoEvents
    Loop
    Winsock1.SendData "FROM: " & your_name_here & vbCrLf
    Winsock1.SendData "SUBJECT: " & subject_here & vbCrLf
    Winsock1.SendData Text1.Text & vbCrLf & "." & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    Winsock1.Close
    MsgBox "Mail sent!"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    Dim Length As Long
    Winsock1.GetData Data
    Length = Len(Data)
    sRes = Left$(Data, 3)
End Sub

il problema è questo
Chi mi spiega a cosa servono tutti quei loop?
grazie
ah e poi anche la parter relativa al dat string
dimenticavo non conoscendo il significato li ho eliminati.inoltre provo ad inviare una mail ma non mi funziona come mai?

[goku370]

Allora, i loop servono ad attendere la risposta del server prima di inviare i nuovi comandi... però mi sembra che il codice sia sbagliato e incompleto!!!
Prova ad usare il seguente codice modificato...

Dim sRes As String
Private Sub Command1_Click()
    Winsock1.RemotePort = 25
    Winsock1.RemoteHost = your_mail_server_here
    'usa il tuo mail server
    Winsock1.Connect
    Do Until Winsock1.State = 7 '7=connected
        DoEvents
    Loop
    Winsock1.SendData "HELO" & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop     
    sRes = "0"
    Winsock1.SendData "MAIL FROM: " & "<tuo_indirizzo> " & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "RCPT TO: " & "<indirizzo_destinatario> " & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "DATA" & vbCrLf
    Do Until sRes = "354"
        DoEvents
    Loop
    Winsock1.SendData "FROM: " & "tuo_nick" & vbCrLf
    Winsock1.SendData "SUBJECT: " & "oggetto_messaggio" & vbCrLf
    Winsock1.SendData Text1.Text & vbCrLf & "." & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    Winsock1.Close
    MsgBox "Mail sent!"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    Dim Length As Long
    Winsock1.GetData Data
    Length = Len(Data)
    sRes = Left$(Data, 3)
End Sub

Fammi sapere se funziona... :maLOL:

[ciro78]

se ti dico che no va?

[goku370]

Cos'è che non va...???

E va bene.
Prova a sostituire questa riga:

Winsock1.SendData "HELO" & vbCrLf

con questa:

Winsock1.SendData "HELO " & "tuo_indirizzo_e-meil" & vbCrLf

Questa volta deve andare...

[ciro78]

allora
eliminando il fatto che non so cosa sia res noto che non è stata dichiarata prima ma solo valorizzata.

Quando lancio il programma resta fermo...non mi dice niente
se tolgo i loop mi dice che la mail è stata inviata ma lo steso non accade niente(la mail non arriva)
come risolvere?

[goku370]

Prova a dare i comandi manualmente attraverso il telnet:
vai in DOS e digita Telnet nome_server 25
Poi i comandi dovrebbero essere gli stessi che invia il programma! Se manualmente l'e-mail parte vuol dire che è un problema nel codice altrimenti...

[ciro78]

si scusa mia il fatto è che vorei inviare una mail tramite visual basic...

[goku370]

Allora, ho riscritto completamente il codice, prova così:

Private Sub Command1_Click()
Winsock1.Connect "indirizzo_server_remoto", 25
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO " & Winsock1.LocalIP & Chr$(13) & Chr$(10)
Winsock1.SendData "MAIL FROM:<tuo_indirizzo(opzionale)>" & Chr$(13) & Chr$(10)
Winsock1.SendData "RCPT TO:<" & "indirizzo_destinatario" & ">" & Chr$(13) & Chr$(10)
InviaMess
End Sub

Sub InviaMess()
Winsock1.SendData "DATA" & Chr$(13) & Chr$(10)
Winsock1.SendData "SUBJECT: " & "oggetto_del_messaggio" & vbCrLf
Winsock1.SendData Text1.Text & vbCrLf
Winsock1.SendData "." & vbCrLf
Winsock1.Close
MsgBox "E-mail inviata."
End Sub

In questo modo non viene controllata la risposta del server, ma dovrebbe andare. Almeno a me funzia...!!! :master:

[ciro78]

scusami ma come le richiama le due sub che non sono nel click?

[goku370]

Si auto-richiamano... stai stranquillo!!!