Errore newsletter CDOSYS

[ecoweb]

ciao a tutti...se qualcuno mi puo aiutare
ho creato una newsletter con Asp e CDOSYS. Purtroppo ho questo errore

Microsoft VBScript runtime error '800a01a8'
Object required

L'errore si verifica nella seconda riga dove c'è il mittente

Anche se da errore manda comunque l'email ma solo al primo della lista
Il codice e questo

do while not rec.eof
objMail.From = Request.Form("mittente") ' Mittente
objMail.To = rec("email") ' Destinatario
objMail.Subject =oggetto ' Oggetto
objMail.HTMLBody = CorpoMessaggio ' Messaggio

' Invia l'email
objMail.Send()
Set objMail = Nothing
rec.movenext
loop
set conn = nothing
set rec = nothing


secondo voi dove sbaglio

ciao

[maximum]

Che "rec("email")" sia null???

objMail.To = rec("email") ' Destinatario

[ecoweb]

...nel db ci sono gia indirizzi email, infatti prende solo il primo della lista, oltre a dare l'errore di sopra

[ecoweb]

...nessuno mi puo aiutare???

[Roby_72]

L'oggetto lo devi distruggere fuori dal loop non dentro altrimenti mandata la prima email si ferma.

Roby

[ecoweb]

...grazie roby...sembra che funziona cosi

objMail.Send()
rs.movenext
loop
Set objMail = Nothing
set conn = nothing
set rs = nothing


grazie