inviare e-mail

[sanny82]

ciao a tuti come posso fare per inviare una e-mail?
Grazie mille

[xegallo]

Originariamente inviato da sanny82
ciao a tuti come posso fare per inviare una e-mail?
Grazie mille

apri outlook :gren:

[sanny82]

Vabè da Vb intendevo...

[cik]

basta cercare nel forum.

http://forum.html.it/forum/showthrea...hreadid=512852

e non dirmi che la ricerca non va perchè il thread sull'invio di email è molto recente

[sanny82]

l'ho giaà guardata ma non posso farla fare funzionare perchè tra i controlli winsoket non ce l'ho...
Dove posso trovarla?
Io sono andato in progetto->componenti ma non ho trovato nulla...
Aiuto!
Grazie tante

[sanny82]

Ho trovato ma non funziona...
Scrive e-mail inviata ma non arriva niente...
Come posso fare??

[cik]

posta il codice che hai scritto che mgari ti aiutiamo meglio

[sanny82]

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

[sanny82]

Perchè non funziona?
Devo essere on-line o non c'è bisogno?

[cik]

controlla che il server risponda ad ogni comando con una stringa che inizia con "2"

Winsock1.SendData "HELO" & vbCrLf
DoEvents
'qui inserici il controllo
'se il messaggio di risposta inizia con "2" continua
Winsock1.SendData "MAIL FROM: <beppe@supereva.it>" & vbCrLf
DoEvents