CDOSYS di Aruba.it

[wegawhite]

Ho scaricato dal vademecum di aruba il modulo per inviare le email con l'oggetto CDOSYS; lo script funziona bene, ma ho diverse perplessità che vorrei condividere con voi:
questa parte:

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

praticamente senza necessità di prevedere singolarmente al recupero di ogni campo del form, recupera tutti i campi previsti nel form di invio.

La perplessità è che se recuperando singolarmente i campi del form, esiste la possibilità di dare un minimo di formattazione:

messaggio = messaggio & VBcrlf & "E-mail = " & email & "
"

con questo code i dati arrivano semplicemente così:

Nome = Anselmo
Cognome = Lopez
Telefono = non lo so
Indirizzo = Ostiense
Citta = Roma
Email = anselmo@hotmail.com

e mi pare che non ci sia la possibilità di intervenire qui, o sbaglio?:

.Subject = "Invio email con CDOSYS "
   .HtmlBody = "Dati registrati:[/b]
 "& corpoMessaggio & " "

[weppos]

Non ho capito il problema.
Valorizza la variabile messaggio con tutti i contenuti e le formattazioni HTML che vuoi.

Poi associa la variabile al corpo dell'email con

.HtmlBody = messaggio

ed il corpo email manterrà la formattazione HTML.
Il titolo non si può formattare.

[wegawhite]

Grazie per aver risposto; scusa se non mi sono ben spiegato, il problema è che vorrei formattare ognuno dei campi recuperati dal form in modo diverso per esempio far arrivare il msg in questo modo:

Nome = Anselmo
Cognome = Lopez
Telefono = non lo so
Indirizzo = Ostiense
Citta = Roma
Email = anselmo@hotmail.com

ma essendo tutti questi campi raccolti in un'unica variabile chiamata

corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))

non so come fare.

Mi segui?

[gold]

sicuramente lo fai dentro un ciclo quindi metti la condizione :

if numeroCampi = nomeCheDeviFormattare then
coda = <tag formattazione> & Trim(Request.Form(numeroCampi))
else
coda=Trim(Request.Form(numeroCampi))
end if

corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & coda

[wegawhite]

Ho risolto come suggerito da Weppos, grazie:

Dim messaggio
messaggio = messaggio & VBcrlf & "[b]Ciao: [" & nome & "] 

"
............
.HtmlBody = messaggio

[wegawhite]

Ho cercato di impostare la priorità del msg in CDOSYS; nella ricerca del forum ho trovato questo code :

email.Fields("urn:schemas:mailheader:X-Priority").Value = 1

e l'ho inserito nel code di aruba.it
Ma l'email continua ad arrivare senza il classico punto esclamativo rosso , utilizzo O.E., sapete perchè? :master: