invio mail cdosys

[Diplodus]

Salve a tutti!
Avrei un dubbio e spero che possiate darmi una mano.

Ho realizzato un modulo per la sottoscrizione di un servizio.
Ora, vorrei fare in modo che l'utente riceva in e-mail il resoconto di tutti i dati inviati con una certa impaginazione.
Come posso fare?

Qui di seguito aggiungo il codice per l'invio della mail.

Dim objMail, objConfig, testo

testo = "Benvenuto su ecc. ecc."
Set objMail = Server.createObject("CDO.Message")
Set objConfig = Server.createObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.update
End With
Set objMail.Configuration = objConfig
objMail.From = "mail@sito.com"

objMail.To = Request.Form("mail")
objMail.Subject = "Registrazione avvenuta"
objMail.Fields("urn:schemas:httpmail:importance"). Value = 2
objMail.Fields.update()
objMail.TextBody = testo
objMail.Send()
Set objMail = Nothing


Grazie di tutto, Gianluca

[Luis33]

Qual'è la domanda? Impaginazione di che cosa? Del testo dell'email?

[Diplodus]

sì, la domanda è come faccio a fare l'impaginazione...
Mi piacerebbe creare una cosa del genere


Gentile Cliente,

nel ringraziarVi per ecc. ecc. effettuato a mezzo web in data (giorno della settimana) (giorno) (mese) (anno) (ora)

Riepilogo dati Ordine:

NOME e COGNOME:
RAGIONE SOCIALE:
INDIRIZZO:
CODICE FISC./PART. I.V.A.:
CITTA':
PROVINCIA:
CAP:
TELEFONO:
FAX:
NOTE:

ORDINE:
N° 1 servizio di ecc ecc.
TOTALE IMPONIBILE: ecc. ecc.

I campi li prelevo da un form compilato su internet.
Grazie!!!

[Luis33]

Ho capito, devi utilizzare per ogni valore che arriva dal form una cosa del genere:

messaggio = messaggio & VBcrlf & "request.form("campo")"

[Diplodus]

Aspetta fammi capire

cos'è la dicitura VBcrlf?
E poi andrebbe fatta in questa maniera?

messaggio = "Gentile Cliente, "
messaggio = "nel ringraziarVi per ecc. ecc. effettuato a mezzo web in data (giorno della settimana) (giorno) (mese) (anno) (ora)

messaggio = nome & VBcrlf & "request.form("nome")"
messaggio = cognome & VBcrlf & "request.form("cognome")"
messaggio = eta & VBcrlf & "request.form("eta")"


Mhm... non ho capito

[Luis33]

messaggio = messaggio & VBcrlf & "Gentile Cliente,"
messaggio = messaggio & VBcrlf & "nel ringraziarVi per ecc. ecc. effettuato a mezzo web in data etc"
messaggio = messaggio & VBcrlf & "Nome: "& request.form("nome") &" "

.....

objMail.HtmlBody = messaggio