Erro em formulário cdsys

Olá pessoal,

Estou quebrando cabeça com um problema neste formulário.

Quando envio para poucos contatos, tipo uns 10 ele envia normalmente, mas quando colo mais de contatos ele apresenta erro na linha Send conforme abaixo

error '8004020f'

/Mailing/teste.asp, line 228

Segue meu codigo, se alguem tiver idéia do que pode ser ficarei grato pela ajuda. Estou usando o smtp do gmail com autenticação.

<%
response.buffer = true
Server.ScriptTimeout = 999999999

v_situacao = ""
useraction=Request.QueryString("acao")

Select Case useraction
 Case "upload"
 On Error Resume Next
 Dim sCaminho
 sCaminho = Replace(LCase(Server.MapPath("/")),"web","Web/Mailing")
 Set objUpload = Server.CreateObject ("Dundas.Upload.2")
 objUpload.MaxFileSize=1548576
 objUpload.UseUniqueNames=FALSE
 objUpload.Save sCaminho
 If Err.Number <> 0 Then
 Response.Redirect "Erro_dundasupload.asp"
 Else
 For Each objUploadedFile in objUpload.Files
 'Response.Write objUploadedFile.Path
 Session("arquivo") =objUploadedFile.Path
 If InStr(1,objUploadedFile.ContentType,"octet-stream") Then
 Response.Write " MAS O Arquivo foi REMOVIDO por ser um tipo proibido"
 objUploadedFile.Delete
 End If
 Next
 End If
 Set objUpload = Nothing

v_situacao = ""
Case "email" 'caso a acao seja email, executa script do CDOSYS
lista = emails()
if len(lista) > 0 then

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")

'Variaveis
Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino

meuservidorsmtp = "smtp.gmail.com" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "impacto" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "web2011" ' senha da conta de e-mail
emailorigem = Trim(Request.Form("nomerem")) & "<" & Trim(Request.Form("emailrem")) & ">"' e-mail que indica de onde partiu a mensagem

emaildestino = lista

'Fim da definição manual de parâmetros.
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "smtpusessl") = True
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.BodyPart.Charset = "iso-8859-1"
cdoMessage.From = emailorigem
cdoMessage.Bcc = emaildestino
cdoMessage.Subject = Request("assunto")
cdoMessage.ReplyTo = Request("emailrem")
strBody = Request("recado")
cdoMessage.AddAttachment(Session("Arquivo")) ''anexa o arquivo
cdoMessage.AddAttachment "e:\home\site\Web\Mailing\Encarte-ESPECIAL-150_edições.pdf" ''anexa o arquivo

strBody = strBody
cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

Session("Arquivo") = ""

 Response.Write "<script>alert('E-mail enviado com Sucesso!')</script>"
 %>
 <br>Redirecionando...</i><br><meta http-equiv="refresh" content="1;URL=Teste.asp" />
 <%
	else
 response.write "<script>alert('A lista de emails no banco de dados está vazia, favor verificar');</script>"
 %>
 <br>Redirecionando...</i><br><meta http-equiv="refresh" content="1;URL=Teste.asp" />
 <%
 Session("Arquivo") = ""
 end if
End Select

function emails() 'Retorna os emails cadastrados como uma string

dsn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\site\Dados\News.mdb"

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT Email from NewsLatter order by id"
rs.Open SQL, Conn, 1, 3
do while not rs.eof
str = str & rs("email") &","
rs.movenext
Loop
emails = str
on error resume next
end function
%>