CONHEÇA o BABOO PRO e a Comunidade BABOO que substituirão o site BABOO e esse fórum

Ir para conteúdo
  • Cadastre-se
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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...