Ciao,
sto mandando una mail a tutti i miei clienti in automatico, questi dovrebbero essere 7, ma ne spedisce solo 3. Non è che c'è una limitazione alle mail che può spedire automaticamente?

codice:
Do While NOT RsCL.EOF
sNominativo=RsCL("CONOMINATIVO")
sMail=RsCL("COMAIL")
'---Preparo la mail da Spedire---
'Oggetto NewMail
Dim objMail
set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "MIA MAIL"
objMail.Bcc = "MAIL PER CONOSCENZA NASCOSTA"
objMail.To = sMail
objMail.Subject = "Informativa per i Clienti"
sCorpoLettera ="

<TABLE border=1 width='100%'>"
sCorpoLettera = sCorpoLettera + "<tr><td>"
sCorpoLettera = sCorpoLettera + "<font size=1>Gentile " & sNominativo & "</font>"
sCorpoLettera = sCorpoLettera + "</td></tr>"
sCorpoLettera = sCorpoLettera + "<tr><td>"
sCorpoLettera = sCorpoLettera + "<font size=1>" & sTestoLettera & "</font>"
sCorpoLettera = sCorpoLettera + "</td></tr>"
sCorpoLettera = sCorpoLettera + "</table>"
objMail.BodyFormat = 0 
objMail.MailFormat = 0 
objMail.Body = sCorpoLettera 
'NON COMMENTARE!
Response.Write (sCorpoLettera)
objMail.Importance=2
objMail.Send
'Pulizia
set objMail = Nothing
'--------------------------------
RsCL.MoveNext
loop
RsCL.Close
Set RsCL = Nothing
Response.Redirect("Contatti.asp?tipo=GD")
Sembra giusto, ma non le spedisce.
Sapete aiutarmi?
Grazie