Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

kania

error '8004020f'

Por , em ASP Clássico

Recommended Posts

kania    0

kania
Postado

Olá pessoal,

 

Gente modifiquei meu servidor de hospedagem da locaweb para a hostnet e alguns códigos agora estão dando problemas, normal por causa dos componentes instalados, o fato é que a maioria deles eu já arrumei, porem o que esta medando nos nervos é o bendito do CDOSYS, o mesmo código da locaweb não funciona na hostnet, até ai tudo bem, porque eles usam alguns itens diferentes mesmo, mas mesmo corrigindo estes itens continua dando o erro error '8004020f'

 

Segue o código de envio para análise dos amigos.

 

'Envio o email ao cliente informando de se cadastro
'TEXTO
msgHTML = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" _
& "<html xmlns=""http://www.w3.org/1999/xhtml"">" _
& "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" _
& "<html>" _
& "<head>" _
& "</head>" _
& "<body style=""font:12px Tahoma, Geneva, sans-serif; color:#31426E;"">" _
& "<p>Este email é para confirmar seu cadastro junto oa Portal de Buscas Regionais Iaki.</p>" _
& "<p>Abaixo seguem seus dados de acesso ao portal.</p>" _
& "<p></p>" _
& "<p>=====================================================</p>" _
& "<p><strong>Seu ID: </strong>"&NovoId&"</p>" _
& "<p><strong>Seu Login: </strong>"&Login&"</p>" _
& "<p><strong>Sua Senha: </strong>"&Senha&"</p>" _
& "<p>=====================================================</p>" _
& "<p></p>" _
& "<i>Atenciosamente<br>" _
& "Portal Iaki<br>" _
& "www.iaki.com.br</i><br>" _
& "</body>" _
& "</html>"

Set objCDOSYS = Server.CreateObject("CDO.Message") 
Set objCDOSYSConf    = Server.CreateObject ("CDO.Configuration") 

'Configurando o envio de e-mail
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.iaki.com.br"
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "cadastro=iaki.com.br"
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "********"'retirei a senha para segurança
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
objCDOSYSConf.Fields.update 
Set objCDOSYS.Configuration = objCDOSYSConf 

objCDOSYS.From = "cadastro@iaki.com.br"
objCDOSYS.To = Email
'objCDOSYS.CC = "jorgekania@iaki.com.br"
objCDOSYS.BCC = "jorgekania@iaki.com.br"
objCDOSYS.Subject = "IAKI - Cadastro efetuado com sucesso"

'Verificando o tipo de mensagem (default é TEXTO)
objCDOSYS.HTMLBody = msgHTML

'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
objCDOSYS.Send

'Destruindo Objetos
Set objCDOSYSConf = Nothing
Set objCDOSYS = Nothing

Já entrei em contato com o suporte deles e a justificativa deles (que não me convenceu por completo) é de que foi efetuado ontem por volta do meio dia a modificação dos DNSs e pode ser que este ainda não tenham se propagado por completo, então me pediram para esperar até amanhã para ver se funciona.

 

O que vocês acham?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique junto ao host se ele esta configurado corretamente, Esta mensagem de erro vem cdosys.h,é realmente consideradas em conjunto com outros erros em uma mensagem sobrecarregada. O que significa que o e-mail foi rejeitado pelo servidor por algum motivo. Aqui estão alguns motivos que você pode tentar resolver o problema:

 

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

 

2. Verifique se o problema é específico para o nome de domínio (s) 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 seu próprio domínio apenas, outros disseram que pode enviar para qualquer domínio, exceto o seu próprio.

 

3. 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 propely de volta para o script ASP ... assim verificar que o endereço é válido.

 

4. 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.

 

5. Tente usar um valor SendUsing de um coletor () ao invés de 2 (porto). Por exemplo, a seguinte linha:

 

.Item(cdoSendUsingMethod) = cdoSendUsingPort

 

para

 

.Item(cdoSendUsingMethod) = cdoSendUsingPickup

Compartilhar este post

Link para o post
Compartilhar em outros sites

kania    0

kania
Postado

Opa xanburzum , fera não entendi esta modificação .Item(cdoSendUsingMethod) = cdoSendUsingPickup que falou para fazer, onde você diz para colcaor esta linha ou mudar esta linha?

 

Seria isto?

 

objCDOSYSConf.Fields(cdoSendUsingMethod) = cdoSendUsingPickup

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

isso...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique a outra opção e se todos os possiveis erros que mencionei

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito