Come gli utenti ricevono le e-mail

[centoiso]

Ho un sito che manda una mail di attivazione agli utenti che si sono registrati.
Nella maggior parte dei casi va tutto bene, ma agli utenti di libero la mail arriva senza link e formattata male...
Utilizzo questo script:

txtEmail = "testo
testo....attiva"

mittente = " ""nome"" <email>"
destinatario = """ "&user&" "" <"&email&">;"
oggetto = "Registrazione al sito"
messaggio = txtEmail
Dim mail 'As CDO.Message
Dim conf 'As CDO.Configuration
Const NAMESPACE = "http://schemas.microsoft.com/cdo/configuration/"
Const cdoSendUsingPort = 2
Set mail = CreateObject("CDO.Message")
Set conf = CreateObject("CDO.Configuration")
conf.Fields(NAMESPACE & "sendusing") = cdoSendUsingPort
conf.Fields(NAMESPACE & "smtpserver") = "localhost"
conf.Fields(NAMESPACE & "smtpserverport") = 25
conf.Fields.Update
mail.Configuration = conf
mail.TextBody = messaggio
mail.HTMLBody = messaggio
mail.From = mittente
mail.Subject = oggetto
mail.To = destinatario
mail.Send

Come posso intervenire per renderlo leggibile a tutti?
Grazie

[paolocapitani]

ciao,
verifica che la pagina inviata sia costituita da codice HTML valido