Newsgroup: it.comp.lang.visual-basic
Titolo: Invio mail

" + vbCrLf
mailsock.SendData "DATA" + vbCrLf
mailsock.SendData "Message-ID: FANTASERVER" + vbCrLf
mailsock.SendData "From: Fantacalcio 2003 ManagerServer" + vbCrLf
mailsock.SendData "To: nukkager" + vbCrLf
mailsock.SendData "Subject: IP attuale del server" & vbCrLf
mailsock.SendData "Date: " + Str(Time) + vbCrLf
mailsock.SendData "X-Mailer: Terminal mailer 0.1" + vbCrLf
mailsock.SendData "l'indrizzo IP da utilizzare é:" & vbCrLf
mailsock.SendData indirizzo & vbCrLf
mailsock.SendData "." & vbCrLf
mailsock.SendData "QUIT" & vbCrLf
Faccio notare che il programma si connette perfettamente ed esegue
perfettamente l'invio, con tanto di conferma da parte del server(mail
accepted).
--
Byez
Nukkager

Io in passato ho avuto problemi simili... Immagino un server Doimino....
Ho risolto tutto con un bellissimo controllo OCX chiamato axssmtp
Gratuito e che non mi ha mai dato un problema....
Inoltre ti permette facilmente di inserire allegati che con il tuo metodo
sarebbe veramente difficile....
Ciao, Daniele.
[CUT]


"Daniele Bordino" <dbordinoN#O#S#P#A#M@N#O#S#P#A#Memail.it> ha scritto
nel messaggio news:bivpem$jo6$1...@newsreader.mailgate.org...
| Ho risolto tutto con un bellissimo controllo OCX chiamato axssmtp
| Gratuito e che non mi ha mai dato un problema....
Grazie mille,
--
Byez
Nukkager

 mailsock.SendData "X-Mailer: Terminal mailer 0.1" + vbCrLf
sostituisci con
 mailsock.SendData "X-Mailer: Terminal mailer 0.1" & vbCrLf  & vbCrLf
l'intestazione del messaggio deve essere separata da almeno una newline dal
testo, altrimenti il testo viene considerato come parte integrante
dell'intestazione ed ignorato.
beppe

 ha scritto nel messaggio
news:7OE4b.8729$nw1.2...@news1.tin.it...


" + vbCrLf
Per prima cosa dopo aver inviato un comando devi attendere la risposta
positiva del server ("+OK"), quindi inizia leggendo come funziona il
protocollo SMTP e tutte le corrette sintassi:
http://www.faqs.org/rfcs/rfc821.html
Poi devi anche sapere che le intestazioni vanno separate dal corpo del
messaggio con una linea vuota, quindi dopo la linea
mailsock.SendData "X-Mailer: Terminal mailer 0.1" + vbCrLf
devi inserire:
mailsock.SendData vbCrLf
Per conoscere il formato dei messaggi:
http://www.faqs.org/rfcs/rfc822.html
-- 
Ciao!
   -DocDoc-
--- Per scrivermi: 
do...@despammed.com
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE! 
http://www.sertel.net/terminator/


a scritto nel messaggio:
| [CUT]
| l'intestazione del messaggio deve essere separata da almeno
| una newline dal testo, altrimenti il testo viene considerato come
| parte integrante dell'intestazione ed ignorato.
Si, infatti adesso funziona alla grande. Grazie mille!
--
Byez
Nukkager

 ha scritto nel messaggio:
| Trovato: avevo messo sopra alla routine il comando
| mailsock.Connect MyServer, 25
| E subito dopo i senddata, e non aveva il tempo di
| connettersi che già cercava di inviare.
| Come posso far in modo che aspetti prima di inviare?
Allora potresti semplicemente fare aprire prima la connessione e poi
quando il socket riceve il benvenuto, inviare il mex....
dichiari la stringa per ricevere i dati globale e poi:
While dati = ""
        DoEvents
Wend
--
Byez
Nukkager