questo codice elabora i dati di un form e li spedisce via email:

<%
rem costruzione email

rem parametri da passare hidden nel form
rem AV_mailfrom mail del mittente
rem AV_mailto email di destinazione
rem AV_oggetto = oggetto del messaggio
rem AV_risposta = pagina a cui tornare dopo l'invio dell'email

function ElencaCampi()
Messaggio = ""
for each item in Request.Form
Messaggio = Messaggio +"<B>" & item & ": </B>" & Server.HTMLEncode(Request.Form(item)) & "<BR>"
next
ElencaCampi=Messaggio
end function

sub inviaEmail()
dim objNewMail
set objNewMail = CreateObject("CDONTS.NewMail")
Messaggio = "<P><B>Informazioni dal sito web xxxxxxxxx:</B><br>"
Messaggio = Messaggio & ElencaCampi()

objNewMail.BodyFormat = 0
objNewMail.MailFormat = 0
if Request("email") <> "" then
objNewMail.From = Request("email")
else
objNewMail.From = Request("AV_mailfrom")
end if
objNewMail.To = Request.Form("AV_mailto")
objNewMail.Subject = Request("AV_oggetto")
objNewMail.Body = Messaggio
objNewMail.Send
set objNewMail = nothing
end sub

inviaEmail()

Response.Redirect(Request.Form("AV_risposta"))
%>

il problema è che la mail arriva formattata con tag html, può dipendere dalle impostazioni della posta elettronica che usa il client?

ciao

---

Modificato da darkox il 10 marzo 2006 10.32 -

ti ringrazio, ma purtroppo quello è soltanto un errore di ortografia nello scrivere il post

ciao