Salve a tutti ragazzi, utilizzo il metodo CDO su Aruba per inviare email dal sito.

Praticamente lo script funziona benissimo, mi invia le email a tutti però si blocca una volta finito e non procede con le altre azioni... mi da il seguente errore:

CDO.Message.1 error '8004020c'

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

/invia_preventivo.asp, line 64

Lo script è il seguente

' APRE LA CONNESSIONE AL DATABASE E PRELEVA LE EMAIL DELLA NEWSLETTER

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQLmail = "SELECT email FROM tbl_aziende"
RecSet.Open SQLmail, Conn, adOpenStatic, adLockOptimistic

IF not RecSet.Eof then

' INDIRIZZO EMAIL NOSTRO
mittente = "info@lamiaemail.it"

Do until Recset.eof

' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
destinatario = RecSet("email")

' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
testo = "Nuovo preventivo in attesa di essere visionato. Accedi alla tua area riservata per vederne i relativi dettagli"

' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
oggetto = "Nuova richiesta di preventivo da parte di" & nome

' INVIA IL MESSAGGIO
Set email = CreateObject("CDO.message")
email.From = mittente
email.To = destinatario
email.Subject = oggetto

' FORMATO EMAIL
email.HTMLBody = testo
email.TextBody = testo

' INVIA L'EMAIL E..
email.Send (QUI MI DA ERRORE)


' PASSA AVANTI...
RecSet.Movenext
loop

End If

RecSet.Close
Set email = nothing

Ripeto lo script funziona, mi invia le email ma mi da quell'errore e non procede con le altre azioni da compiere