Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

A área de Remoção de Malwares está aberta na Comunidade BABOO. LEIA AQUI

Ir para conteúdo
erick.abreu.gomes

CDO Windows Server 2012

Mensagem Recomendada

Prezados, boa noite.

 

Estou precisando de uma ajuda.

 

Configurei um servidor de E-mail (MailEnable), porém está acontecendo uma coisa muito estranha.

 

Tentei procurar em todos os lugares, porém não encontrei nenhuma solução para este problema.

 

Ao enviar um e-mail utilizando mail.dominio.com, o script retorna o seguinte erro:

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

 

Porém se troco para o IP do servidor, o envio é realizado.

 

Abaixo o script

			Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
			'CRIA A INSTANCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP 
			Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
			'SERVIDOR DE SMTP 
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp_email
			'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP 
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = porta_email
			'Utilização de SSl 
			objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
			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") = email_loja
			'SENHA DO USUÁRIO PARA SMTP AUTENTICADO 
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = senha_email 
			'TEMPO DE TIMEOUT (EM SEGUNDOS) 
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
			'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL 
			objCDOSYSCon.Fields.update 
			Set objCDOSYSMail.Configuration = objCDOSYSCon 
			'NOME DO REMETENTE, E-MAIL DO REMETENTE 
			objCDOSYSMail.From = de
			'NOME DO DESINATARIO, E-MAIL DO DESINATÁRIO 
			objCDOSYSMail.To = para
			'objCDOSYSMail.cc = "copia@dominio.com" 
			'objCDOSYSMail.bcc = "Copia Oculta <copiaoculta@dominio.com>" 
			'ASSUNTO DA MENSAGEM 
			objCDOSYSMail.Subject = assunto 
			'CONTEÚDO DA MENSAGEM 
			objCDOSYSMail.HTMLBody = mensagem
			'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody 
			'objCDOSYSMail.HtmlBody = "<html> <head><meta http-equiv=""Content-Type"" content=""text/html;charset=utf-8""></head><body></body></html>" 
			'ENVIA A MENSAGEM 
			objCDOSYSMail.Send 
			'DESTR?I OS OBJETOS 
			Set objCDOSYSMail = Nothing 
			Set objCDOSYSCon = Nothing 

 

Enviando e-mail pelo Outlook usando mail.dominio.com, é enviado numa boa.

 

O SMTP está configurado na porta 587 e utiliza criptografia TLS e autenticação.

 

Alguém tem ideia do que pode estar ocorrendo?

 

Agradeço desde já, a atenção de todos!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...