Envio de email parou de funcionar

[LucasBRez 0]

Olá tenho um site que estava funcionando o envio de email perfeitamente, dois dias para cá parou.

Só consigo enviar email para contas de dentro do dominio

O erro dado é: error '8004020f'

<%


'cria o objeto para o envio de e-mail

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


'cria o objeto para configuração do SMTP

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


'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com.br"


'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25


'porta do CDO

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


'ATIVAR RECURSO DE SMTP AUTENTICADO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1


'USUÁRIO PARA SMTP AUTENTICADO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dominio@dominio.com.br"


'SENHA DO USUÁRIO PARA SMTP AUTENTICADO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*************"


'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30


objCDOSYSCon.Fields.update


'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon


'e-mail do remetente

objCDOSYSMail.From = "dominio@dominio.com.br"


'e-mail do destinatário

objCDOSYSMail.To = "meuemail@gmail.com"


'assunto da mensagem

objCDOSYSMail.Subject = "Teste do CDOSYS"


'conteúdo da mensagem

objCDOSYSMail.TextBody = "Teste do componente CDOSYS"

'para envio da mensagem no formato html altere o TextBody para HtmlBody


'envia o e-mail

objCDOSYSMail.Send


'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing


response.write "E-mail enviado…"

%>

[Morpheus#2005 1]

Testa como anonymous....tem certeza que o seu server de SMTP esta ON ?

[xanburzum 169]

isso ja aconteceu algumas vezes comigo e em todas foi uma instabilidade do serviço de SMTP, pois se ele estava funcionando e não foi alterado o code, provavelmente é isso, muitas vezes o TTL estar muito baixo, 60 pode ocorrer instabilidade.

[LucasBRez 0]

O que eu devo fazer então?

Ta a semana toda assim

[xanburzum 169]

entre em contato com seu host e peça para eles verificarem o serviço de smtp no server.