invio e-mail

[webmaster05]

salve a tutti
in attesa che qualkuno/a mi possa comunicare un web hosting che supporti CDONTS, potreste indicarmi l'errore del seguente script ?

<%
'On Error Resume Next
Set Mail = Server.CreateObject("CDO.Message")
Mail.From = "<user@lycos.it>"
Mail.To = "strEMail"
strBody = "Questo è il mio messaggio"
Mail.Body = strBody
Mail.Subject = "CIAO"
Mail.MailFormat = 0
Mail.BodyFormat = 0
Mail.Send
Set Mail = Nothing
Dim MailInviata
If Err.Number > 0 Then
 MailInviata = False
 response.write "false"
Else
 MailInviata = True
 response.write "true"
End If
%>

L'errore che viene comunicato è :

Microsoft VBScript runtime error '800a01b6' 

Object doesn't support this property or method: 'Mail.Body' 

/dardan/invioemail.asp, line 9

la riga 9 è :

Mail.Body = strBody

grazie
ciao

[semolino]

Non credo che sia per questo, ma prova ad impostare
mail.MailFormat = 1
mail.BodyFormat = 1

per il formato testo. Mettilo prima del .Send

[webmaster05]

Ho provato a fare come hai detto, ma non è cambiato nulla!
Mi da sempre lo stesso errore:
riga 9: Mail.Body = strBody

Errore:

Microsoft VBScript runtime error '800a01b6' 

Object doesn't support this property or method: 'Mail.Body' 

/dardan/invioemail.asp, line 9

Script:

<%
'On Error Resume Next
Set Mail = Server.CreateObject("CDO.Message")
Mail.From = "<MailFrom@lycos.it>"
Mail.To = "MailTo@yahoo.it"
strBody = "Questo è il mio messaggio"
Mail.Body = strBody
Mail.Subject = "CIAO"
Mail.MailFormat = 1
Mail.BodyFormat = 1
Mail.Send
Set Mail = Nothing
Dim MailInviata
If Err.Number > 0 Then
 MailInviata = False
 response.write "false"
Else
 MailInviata = True
 response.write "true"
End If
%>

[weppos]

Non esiste Body nell'oggetto CDOSYS.
http://freeasp.html.it/articoli/view...olo.asp?id=260