I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Root5
Root5
il 27 aprile 2005 alle 16:07
37 messaggi dal 31 gennaio 2002
www.atomica.it
Giorno a tutti,

una domanda al volo... devo far spedire da un sito una mail ad un indirizzo x in formato html. Fin qua nessun problema.

Il mio problema è che il codice html cambia in base a una query sul db quindi:

Dim objMail
Set objMail = CreateObject("CDONTS.NewMail")
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title></title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"


qui ci andrebbe il codice html generto grazie a una interrogazione su un db

per es.

HTML = HTML & "campo 1"
HTML = HTML & "campo 2"
ecc. per quanti sono i campi in base alla query.



HTML = HTML & "</body>"
HTML = HTML & "</html>"
objMail.From = ""
objMail.To = ""
objMail.Subject = ""
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = HTML
objMail.Send


Grazie a tutti
Frank Levis
RispondiQuoting
filippo_260367
filippo_260367
l'1 maggio 2005 alle 18:46
265 messaggi dal 28 aprile 2001
Ciao,

devi dividere il corpo del messaggio in tre tronconi:
1) Intestazione
2) Corpo (dati database)
3) Fine

Dim html_init, html_body, html_end, html
'// Inizializzo Intestazione //
html_init ="<html>"
html_init = html_init & "<head>"
html_init = html_init & "<title></title>"
html_init = html_init & "</head>"
html_init = html_init & "<body bgcolor=""#FFFFFF"">"

'// creo corpo messaggio //
'ometto l'apertura e connessione al database per arrivare
'al nocciolo del ciclo (EOF) del recordset

Do while not Eof.Myrecordset

html_body= html_body & Myrecordset('Campo')& "<br>" '// altrimenti non va' a capo //
Recordset.Movenext
Loop

'//cre fine messaggio //
html_end="</Body></Html>"

'//assemblo il tutto //
html=html_init & html_body & html_end

...INVIO E-MAIL

Ciao

Filippo


Root5 ha scritto:
Giorno a tutti,

una domanda al volo... devo far spedire da un sito una mail ad un indirizzo x in formato html. Fin qua nessun problema.

Il mio problema è che il codice html cambia in base a una query sul db quindi:

Dim objMail
Set objMail = CreateObject("CDONTS.NewMail")
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title></title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"


qui ci andrebbe il codice html generto grazie a una interrogazione su un db

per es.

HTML = HTML & "campo 1"
HTML = HTML & "campo 2"
ecc. per quanti sono i campi in base alla query.



HTML = HTML & "</body>"
HTML = HTML & "</html>"
objMail.From = ""
objMail.To = ""
objMail.Subject = ""
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = HTML
objMail.Send


Grazie a tutti
Non dir di me' se di me' non sai, pensa di te ... e poi di me' dirai.

Autore (sottoscritto)
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.