Ho questo problema:

devo inviare un'email usando cdo.message
Se nel body inserisco direttamente una stringa l'email viene inviata, se invece assegno una variabile stringa non viene inviata.
A qualcuno è già capitato questo problema.

Di seguito il codice funzionante:

Set ml = Server.CreateObject("CDO.Message")
ml.From = "info@aquest.it"
ml.To = "gurru@aquest.it"
ml.Subject = "Richiesta d'acquisto"
ml.TextBody = "prova di un invio di una email"
ml.Send
Set ml = Nothing

Qui il codice che non funzia:

TestoEmail = "Cognome: " & Request.Form("Cognome") & Chr(10)
TestoEmail = TestoEmail & "Nome: " & Request.Form("Nome") & Chr(10)
TestoEmail = TestoEmail & "Indirizzo: " & Request.Form("Indirizzo") & Chr(10)
TestoEmail = TestoEmail & "Cap: " & Request.Form("Cap") & Chr(10)
TestoEmail = TestoEmail & "Città: " & Request.Form("Citta") & Chr(10)
TestoEmail = TestoEmail & "Provincia: " & Request.Form("provincia") & Chr(10)
TestoEmail = TestoEmail & "Nazione: " & Request.Form("Nazione") & Chr(10)
TestoEmail = TestoEmail & "Telefono: " & Request.Form("Telefono") & Chr(10)
TestoEmail = TestoEmail & "Fax: " & Request.Form("Fax") & Chr(10)
TestoEmail = TestoEmail & "Email: " & Request.Form("Email") & Chr(10)
Set ml = Server.CreateObject("CDO.Message")
ml.From = "info@aquest.it"
ml.To = "gurru@aquest.it"
ml.Subject = "Richiesta d'acquisto"
ml.TextBody = TestoEmail
ml.Send
Set ml = Nothing

Grazie
Ciao a tutti