Visual Basic 6 - VB 6...Inviare mail???

ciao a tutti!!!Ho un piccolo problemino. Sto seguindo questa guida su youtube.com/… e vorrei sapere se si puo al posto che il file .txt venga salvato nel computer sia inviato ad un indirizzo mail. Se si puo mi dite come si fa???Grazie

Cercati su google una guida su come mandare email con telnet (client di windows)...Poi riproduci gli stessi passaggi mandando con il winsock le stesse stringhe ad un server SMPT

Ha ragione GrG, ma è troppo difficile, ti consiglio di lasciar perdere

Non devi dire così, non è difficile e poi nella zona sorgenti c'è il progetto vb ghost mail o qualcosa del genere, e anche su internet si trovano sorgenti per mandare mail...

Non ti devi arrendere al primo problema...

p.s. Cose difficili sono Antivirus professionali, scanner delle impronte digitali, ecc. (:S)

... veramente la cosa è abbastanza semplice.
Con il controllo Winsock, connettiti al server smtp sulla porta 25.
se usi alice ad esempio se non sbaglio è "alice.out.it".
Esempio:

'Winsock1.Connect "smtp.server.it",25
Winsock1.Connect "alice.out.it",25

Poi in data_arrival gestisci il protocollo di comunzicazione, che trovi su questo link:

static.openskills.info/livebooks/guida_ai_protocolli_internet/…

Volendo puoi anche non gestire i dati che arrivano dal server, ma semplicemente inviare i dati consecutivamente(sempre seguendo il protocollo smtp).

C'e qualcuno che e in grado di farmi una cosa el genere?Grazie

ti ho già detto di cercarti dei surgenti (anche sul forum) che li trovi e da cui puoi prendere spunti...
Poi se non li capisci è un'altra cosa...

adesso ti scrivo un esempio, ma ho dimenticato di dirti che bisogna loggarsi al server smtp, e i dati(username e password) vanno criptati con l'algoritmo di criptazione Base64:

'in generale
dim i as integer 'i=0

Winsock1.connect "smtp.server.it",25

Private Winsock1_DataArrival()
dim res as string
Winsock1.getdata res

if i=0 then
Winsock1.SendData "EHLO" & Winsock1.LocalIp & vbcrlf
elseif i = 1 then
Winsock1.SendData "AUTH LOGIN" & vbcrlf
elseif i = 2 then
Winsock1.SendData "username" & vbcrlf 'criptato in base 64
elseif i=3 then
Winsock1.SendData "password" & vbcrlf 'criptato 
elseif i = 4 then
Winsock1.SendData "MAIL FROM: <tuaemail@server.it>" & vbcrlf
elseif i = 5 then
Winsock1.SendData "RCPT TO: <maildest@server.it>" & vbcrlf
elseif i = 6 then
Winsock1.SendData "DATA" & vbcrlf
elseif i=7 then
Winsock1.SendData "From: tuonome" & vbcrlf & "To: nome_dest" & vbcrlf & "Subject: oggetto email" & vbcrlf & vbcrlf & "messaggio della email" & vbcrlf & vbcrlf & "." & vbcrlf
elseif i=8 then
Winsock1.SendData "QUIT" & vbcrlf
end if
i=i+1 

End Sub

per convertire il tuo username e password in Base64 vai qui:


makcoder.sourceforge.net/demo/…