Newsletter locaweb!

Olá pessoal!

Sempre enviei newsletter da seguinte forma:

ASP

SET SENDNEWS = DB.EXECUTE ("SELECT * FROM REGTEST")vEMAIL = SENDNEWS ("EMAIL")

vBODY1 = SENDNEWS ("vBODY1")

WHILE NOT SENDNEWS.EOF

Set objEmail = Server.CreateObject("CDO.Message")

Set conf = Server.CreateObject("CDO.Configuration")

Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing")  = 2

param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

        param.Update

                       

        objEmail.To =  vEMAIL

      objEmail.Subject = "Mensagem de natal..."

        objEmail.From = "Empresa <contato@empresa.com.br>"

                objEmail.HTMLBody = objEmail.HTMLBody & vBODY1

        ON ERROR RESUME NEXT

          objEmail.Send

        ON ERROR RESUME NEXT

                Set objEmail = Nothing

       

        SENDNEWS.MOVENEXT

        WEND

Só que quando envio um teste para 100 cadastros "meunome@empresa.com.br" vai numa boa, mas quando pego o banco com cadastro (só 100!!!) ele não envia!!! Alguém sabe o motivo?

Tem o ON ERROR RESUME NEXT!!!