sto facendo un programma che gestisca le mail da mandare a + indirizzi.
Fondamentalmente va, ma le specifiche richiedono un header della mail particolare: i dati relativi al MIME e al Type-Content devono venire visualizzati come ultimi dati prima del testo del messaggio (quindi dopo la voce "DATE"). Invece mi vengono visualizzati prima.
gestisco il tutto così ma nn funziona..
codice:strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "HELO " & Socket.LocalIP & Chr$(13) & Chr$(10) 'saluto il server strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "MAIL FROM: <" & txtto.Text & ">" & Chr$(13) & Chr$(10) 'dico chi sono strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "RCPT TO: <" & txtfrom.Text & ">" & Chr$(13) & Chr$(10) 'dico da chi voglio andare strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "DATA" & Chr$(13) & Chr$(10) 'avverto che inizierò a scrivere la mail strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "FROM: " & txtfrom.Text & Chr$(13) & Chr$(10) 'specifico il mittente che comparirà sulla e-mail strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "TO: " & txtto.Text & Chr$(13) & Chr$(10) 'specifico l'indirizzo del destinatario di questa e-mail strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "SUBJECT: " & txtsubject & Chr$(13) & Chr$(10) 'specifico l'oggetto di questa e-mail strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData Chr$(13) & Chr$(10) 'invio una riga vuota prima del corpo del messaggio strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "MIME VERSION: 1.0" & Chr$(13) & Chr$(10) strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "Content-Transfer-Encoding: 8bit" & Chr$(13) & Chr$(10) strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "Content-Type: multipart/mixed;" & Chr$(13) & Chr$(10) strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData "X-Mailer: ZambaMail 3.22" & Chr$(13) & Chr$(10) strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData txtbody.Text & Chr$(13) & Chr$(10) 'inserisco il corpo del messaggio strData = "" 'azzero la variabile dei dati ricevuti in precedenza Socket.SendData Chr$(13) & Chr$(10) & "." & Chr$(13) & Chr$(10) 'finisco la e-mail con spazio e punto
La parte evidenziata in neretto dovrebbe venire visualizzata solo dopo tutte le informazioni, nell'header.. invece nn me le mette alla fine..
è chiaro o sono stato troppo confuso? Qln saprebbe aiutarmi?
Grazie in anticipo!
Rispondi quotando