[Resolvido] error '8004020f'

[marcelonhenhe 0]

estou fazendo um envio de email com algumas atualizações e deu esse erro.

envia cerca de 70 emails (tenho que enviar para uns 150)

colocarei aki como se deu o erro

 

1emailque enviei@hotmail.com

 

2emailque enviei@hotmail.com

.

.

.

71emailque enviei@hotmail.com

 

72 error '8004020f'

 

/zonadownload/enviar.asp, line 129

 

enviou do primeiro email ate o 71 e quando era pra enviar o 72 deu erro

 

vou postar tmb o codigo pra vcs me ajudarem

 

 

<%

'Declarando variáveis
Dim adoCon2, strCon2
Dim caminho_banco2
Dim gstrCaminhoFotos2
Dim strSQLCaminhoFotos2
Dim objConsCaminhoFotos2

'Definindo caminho do banco
caminho_banco2 = Server.MapPath("teste2.mdb")


'Definindo string de conexão
strCon2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco2

'Criando objeto
Set adoCon2 = Server.CreateObject("ADODB.Connection")

adoCon2.Mode = 3

'Abrindo conexão
adoCon2.Open strCon2

''*****BUSCA O CAMINHO DAS FOTOS NA APLICAÇÃO
'strSQLCaminhoFotos = "SELECT DS_CAMINHO_FOTOS FROM CAD_PARAMETRO"

'Set objConsCaminhoFotos = Server.CreateObject("ADODB.Recordset")
'objConsCaminhoFotos.Open strSQLCaminhoFotos, AdoCon, 3, 3

'if not objConsCaminhoFotos.EOF then
'  gstrCaminhoFotos = objConsCaminhoFotos("DS_CAMINHO_FOTOS")
'end if

'gstrCaminhoFotos = Server.MapPath("../fotos")

'*****FIM

%>
<%sqlstmt2 = "SELECT * FROM CAD_EMAIL ORDER BY CAD_EMAIL.CD_EMAIL DESC" %>


<%Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sqlstmt2, AdoCon2, 3, 3
'aa=rs("NR_SEQUENCIAL")
'rs.close



'Declarando variáveis


'Definindo caminho do banco
caminho_banco = Server.MapPath("teste.mdb")


'Definindo string de conexão
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco

'Criando objeto
Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Mode = 3

'Abrindo conexão
adoCon.Open strCon

''*****BUSCA O CAMINHO DAS FOTOS NA APLICAÇÃO
'strSQLCaminhoFotos = "SELECT DS_CAMINHO_FOTOS FROM CAD_PARAMETRO"

'Set objConsCaminhoFotos = Server.CreateObject("ADODB.Recordset")
'objConsCaminhoFotos.Open strSQLCaminhoFotos, AdoCon, 3, 3

'if not objConsCaminhoFotos.EOF then
'  gstrCaminhoFotos = objConsCaminhoFotos("DS_CAMINHO_FOTOS")
'end if

'gstrCaminhoFotos = Server.MapPath("../fotos")

'*****FIM

%>
<%sqlstmt = "SELECT * FROM CAD_POST WHERE CAD_POST.NR_SEQUENCIAL="&REQUEST.FORM("NUM") %>


<%Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, AdoCon, 3, 3
'aa=rs("NR_SEQUENCIAL")
'rs.close




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

   cdoConfig.Fields.Item(sch & "sendusing") = 2
   cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
   cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.teste.com.br"
   cdoConfig.Fields.Item(sch & "smtpserverport") = 25
   cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
   cdoConfig.Fields.Item(sch & "sendusername") = "teste@teste.com.br" 'conta@seu_dominio
   cdoConfig.Fields.Item(sch & "sendpassword") = "teste"
   cdoConfig.fields.update
   Set cdoMessage = Server.CreateObject("CDO.Message")
   Set cdoMessage.Configuration = cdoConfig
  while not rs2.EOF 

cdoMessage.From = "<teste@teste.com.br> ZonaDownload - Atualizações" 
   cdoMessage.To = rs2("email") 'ex: conta@seu_dominio, conta@uol.com.br, conta@hotmail
   cdoMessage.Subject = rs("ds_titulo")

   strBody = "<center><b><blue><span style=""font-size: 20px;"">ZonaDownload.com.br - O Seu Site de Downloads</span></blue></b><br /><br /><br /><img src=""http://www.zonadownload.com.br/zonadownload/"&rs("ds_foto")&" "" /><br /><br /><b>Sinopse: </b>"&rs("LINKPREMIUM")& "<br /><br /><br /><br /><br /><b>Se você gostou dessa atualização <a href=""http://www.zonadownload.com.br/zonadownload/zd.asp?pag="& rs("NR_SEQUENCIAL")& "-" & rs("pasta")&""">Clique aqui</a> e faça o download.<br /></b></center>"


   cdoMessage.HTMLBody = strBody
  bb="enviando para: "
  aa=rs2("email")
  Response.write(aa)
  Response.write(bb)
  Response.write("<p>")
  Response.write(i)
  aa=""
  bb=""
  i=i+1
   cdoMessage.Send
   	rs2.movenext

   wend
Response.write("Emails enviados: ")

   Set cdoMessage = Nothing
   Set cdoConfig = Nothing

rs2.close
rs.close
   'response.write "O e-mail foi processado e enviado com sucesso"
   %>

 

 

 

esse eh basicamente o codigo de envio que ta dando erro

o erro esta dando no cdoMessage.Send

[xanburzum 169]

Esta mensagem de erro vem do cdosys.h, e não tem nada a ver com qualquer espécie de "partição" - na verdade é mesclada com outros erros em uma mensagem sobrecarregado. O código de erro é realmente atribuído à seguinte

 

CONST LONG CDO_E_RECIPIENTS_REJECTED = 0x8004020FL

 

O que significa que o e-mail foi rejeitado pelo servidor por algum motivo. Aqui estão algumas coisas que você pode tentar aliviar o problema:

 

Verifique se o servidor SMTP permite anônimo (não autenticada) . Se a sua saída SMTP requer autenticação.

 

Verifique se o problema é específico para o nome de domínio utilizado nos endereços de e-mail dos destinatários. Por exemplo, alguns usuários se queixaram de que eles podem enviar para os usuários em seus próprios domínios apenas, outros disseram que pode enviar para qualquer domínio, exceto os seus próprios.

 

Pode ser simplesmente que o endereço de e-mail está sendo rejeitado, mas outras configurações do servidor SMTP estão impedindo a verdadeira mensagem de erro de ser retransmitida de volta para o script ASP ... assim verificar que o endereço é válido.

 

Se você tiver um firewall ou proxy, certifique-se o servidor web está configurado corretamente para passar por ele, que o servidor SMTP sabe sobre ele, e que o proxy permite o acesso a porta 25.

 

Tente usar um valor SendUsing de 1 (pickup) em vez de 2 (port). Por exemplo:

 

.Item(cdoSendUsingMethod) = cdoSendUsingPort

 

mude para

 

.Item(cdoSendUsingMethod) = cdoSendUsingPickup

[marcelonhenhe 0]

é exatamente esse o erro

e fiz oq você me sugeriu

colokei meu codigo assim

 

cdoConfig.Fields.Item(sch & "sendusing") = 1
cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="e:\home\teste\Web\EMAILS"

 

mas ai veio o problema

o envio de email nao da erro fala que enviou

grava no caminho fisico que eu passei um arquivo com o email

 

mas o email nao xega aos destinatarios

fala que enviou mas nao envia so salva no meu caminho fisico mas nada

 

o que posso fazer para resolver isso?

ainda falta algo em meu codigo?

[xanburzum 169]

vrifique se não é nehnuma instabilidade no seu host (server)...

[marcelonhenhe 0]

essa parte que você falou

 

.Item(cdoSendUsingMethod) = cdoSendUsingPort

 

mude para

 

.Item(cdoSendUsingMethod) = cdoSendUsingPickup

 

eu nao fiz pq eu nao tinha o ".Item(cdoSendUsingMethod) = cdoSendUsingPort" entao nao tinha como trocar pelo ".Item(cdoSendUsingMethod) = cdoSendUsingPickup"

 

será que pode ser isso?

como eu poderia add isso no meu codigo

[xanburzum 169]

qual o seu host?

[marcelonhenhe 0]

uolhost

[xanburzum 169]

verifique se o SMTP esta normal

[augustoclaro 2]

Olá amigo!

 

Até 5min atrás eu estava com o mesmo problema, eu resolvi colocando isto ao código:

 

objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "algumemail@seusite.com.br"
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senhadoemail"

 

e o sendusing deixa 2 mesmo.

 

Espero que isso te ajude.

[marcelonhenhe 0]

augustoclaro

 

esses parametros que você me passou eu to usando tmb

da uma olhada no primeiro post do topico

e você podia postar pra mim o resto do seu codigo quem sabe nao resolve meu problema

 

muito obrigado

[xanburzum 169]

tive algumas vezes uns sites que davam este erro e depois voltava normal, por isso perguntei como esta seu serviço de SMTP do seu host

[augustoclaro 2]

desculpe minha falta de atenção.

 

pergunta: o e-mail e senha que vce está usando no código são válidos?

[marcelonhenhe 0]

o email e a senha sao validos sim

ja envio outros emails em outros formularios com eles

[xanburzum 169]

são emails do mesmo dominio ?

[marcelonhenhe 0]

sim

o codigo que eu coloquei no inicio funciona para alguns emails e da erro para outros

os emails que dao erro sao de servidores incexistentes se o email existir o codigo inicial do tpico envia direitinho

mas euq euro que mesmo com servidores inexistentes ele nao de erro

[xanburzum 169]

você até consegue verificar se o email é válido, mas se existe,é uma tarefa complicada, pois a cada dia milhoes de email são criados, bem como novos dominios

[marcelonhenhe 0]

eu so quero que ao inves de dar o erro ignore o email que nao exista

ou va para proximo

algo do tipo

[xanburzum 169]

é como citei no post #16

[marcelonhenhe 0]

sim,

mas vocees acham que seria possivel fazer um codigo para se desse o erro apenas nao o mostrasse e fosse para o proximo email??

[Vinicius Ianni 189]

Trate o erro, pode ser com um simples if err then ...

até o erro especifico do componente, tudo vai depender da sua criatividade.