VB6-Problema invio email

[singsong]

Ciao,

ho fatto una ricerca per inviare email tramite SMTP ed ho trovato questo. Pero' riscontro un problemino che le riceche sul forum non mi hanno aiutato a risolvere. Praticamente l'email viene inviata solo quando chiudo il form o con un bottone chiudo la connessione col server. Visto che chiudendo la connessione l'email veniva inviata ho provato a scrivere "Winsock1.Close" alla fine della seguente sub... ma la connessione probabilmente viene chiusa troppo presto e l'email non viene inviata...

Sapete dirmi cosa succede? Nei topic della ricerca nessuno ha parlato di questo problema... GRAZIE

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO" & vbCrLf
DoEvents
Winsock1.SendData "MAIL FROM: <prova@prova.it>" & vbCrLf
DoEvents
Winsock1.SendData "RCPT TO: <prova@prova.com>" & vbCrLf
DoEvents
Winsock1.SendData "DATA" & vbCrLf
DoEvents
Winsock1.SendData "Subject: Prova soggetto" & vbCrLf
DoEvents
Winsock1.SendData "From: prova@prova.it" & vbCrLf
DoEvents
Winsock1.SendData "To: prova@prova.com" & vbCrLf
DoEvents
Winsock1.SendData "" & vbCrLf 'Invii una stringa vuota
DoEvents
Winsock1.SendData "PROVA TESTO DEL MESSAGGIO" & vbCrLf
DoEvents
Winsock1.SendData "." & vbCrLf
DoEvents

End Sub

[webporta.it]

devi inviare l'ultimo comando
QUIT

CIAO

[singsong]

OVVERO?

[singsong]

Puoi farmi l'esempio?

[singsong]

Non è il punto "." l'ultimo comando?

[singsong]

vabbè a posto...
risolto grazie

[singsong]

(xegallo... non c'era tutta questa necessità di chiudere l'altro topic visto che qui parlavo di un problema nell'invio dell'email e in quell'altro di email con allegato... poteva tornare più utile diviso in questo modo... ma contento tu...)

sapete dirmi come posso modificare questo codice in modo da poter aggiungere un allegato?

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO" & vbCrLf
DoEvents
Winsock1.SendData "MAIL FROM: <prova@prova.it>" & vbCrLf
DoEvents
Winsock1.SendData "RCPT TO: <prova@prova.com>" & vbCrLf
DoEvents
Winsock1.SendData "DATA" & vbCrLf
DoEvents
Winsock1.SendData "Subject: Prova soggetto" & vbCrLf
DoEvents
Winsock1.SendData "From: prova@prova.it" & vbCrLf
DoEvents
Winsock1.SendData "To: prova@prova.com" & vbCrLf
DoEvents
Winsock1.SendData "" & vbCrLf 'Invii una stringa vuota
DoEvents
Winsock1.SendData "PROVA TESTO DEL MESSAGGIO" & vbCrLf
DoEvents
Winsock1.SendData "." & vbCrLf
DoEvents


Grazie

[Mabi]

Guarda questo articolo che spiega con un esempio come fare.