Erro ao enviar email CDOSYS - porta 587
Galera preciso da ajuda de vocês..
Tenho esse código que envia email usando o componente CDOSYS.
<%
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "myID@gmail.com"
objEmail.To = "meuemail@yyy.com.br"
objEmail.Subject = "New user notification for "
objEmail.Textbody = hkm
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.empresa.com.br"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
'Your UserID on the SMTP server
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@empresa.com.br"
'Your password on the SMTP server
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
objEmail.Configuration.Fields.Update
objEmail.Send
%>
Ele funciona certo quando uso a porta 25. Ele autentica e envia o email.
Mas quando mudo a porta para 587, ele não envia e dá um erro:
CDO.Message.1 erro '80040213'
Falha na conexão do transporte com o servidor.
/email.asp, linha 29
Essa linha 29 é:
objEmail.Send
Alguem tem ideia de que pode ser??
Desde já agradeço
Discussão (10)
Carregando comentários...