Mems sai qualcosa i questo errore?

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.


ora il codice che uso è:

<%
Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "www.nomedominio.com"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' Assegna all'oggetto le proprietà necessarie
objMail.From = "nome@nomedominio.com" ' Mittente
objMail.To = Request.Form("maildest") ' Destinatario
objMail.Subject = ("prova") ' Oggetto
objMail.HTMLBody = ("messaggio") ' Messaggio

' Invia l'email
objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(Request.Form("maildest"))
%>