CDO.Message.1 error '8004020c'

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

/ordine.asp, line 480


cosa ho dimenticato?


code:--------------------------------------------------------------------------------
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
'Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True ** qui devo mettere il mio url ?

'Spedizione: mittente, destinatario, oggetto, messaggio

messaggio = "Invio con <FONT color=red>CDOSYS</FONT>"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = "luisa227@katamail.com"
.To = email
.Subject = "prova"

'Formato HTML
'.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio

'Invio di una pagina web
'.CreateMHTMLBody "http://www.novacomitalia.com/home/"

'Invio con allegato
'.AddAttachment server.mappath("/public/test.txt")

'Invia l'email
.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
--------------------------------------------------------------------------------