Publicado em 4 de jan.

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)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

xanburzum· 4 de jan.

Certifique-se que o smtp.empresa.com.br esta com a porta liberada

Master_Cyber· 4 de jan.

>
Certifique-se que o smtp.empresa.com.br esta com a porta liberada

A porta 587 estar liberada.

Porque outros sistemas feitos em asp (não usa CDOSYS) e em php usam a porta 587 e envia normal.

Gilberto Jr· 4 de jan.

Bom dia.

Eu uso o CDONTS.NewMail o Codigo que eu uso é o seguinte.

<%
dim email, telefone, assunto, opcoes, msg, mensagememail, nome, setor

nome = trim(request.Form("nome"))
email = trim(request.Form("email"))
assunto = trim(request.Form("assunto"))
telefone = trim(request.Form("telefone"))
opcoes = trim(request.Form("opcoes"))
msg = trim(request.Form("msg"))

'response.Write(destinatario)
mensagememail = msg

set mensagem = server.createobject("CDONTS.NewMail")
mensagem.from = email
mensagem.to = "nome@email.com.br"
mensagem.Subject = assunto
mensagem.bodyformat = 0
mensagem.mailformat = 0
mensagem.Body = "<font face='Arial' color='#000' size='2'>"&opcoes&"<br>"&mensagememail&"<br><br>"&nome&"<br>"&telefone&"</font>"
mensagem.Send
Set objMail = nothing

response.Write("<script>alert('E-mail enviado com sucesso! Em breve entraremos em contato!');location='contato.asp'</script>")

Talves esse código te ajuda.

Ulisses Paps· 4 de jan.

Eu estou como mesmo problema, mas testei o codigo em outro servidor e funciona corretamente, o problema aqui é que existe um Firewall Linux que gerencia a VPN e esta bloqueando as portas para essa operação funcionar!

Veja se esse é o seu caso!

Outra coisa, a porta no gmail p/autenticar é a 465!

Master_Cyber· 4 de jan.

>
Bom dia.

Eu uso o CDONTS.NewMail o Codigo que eu uso é o seguinte.

<%
dim email, telefone, assunto, opcoes, msg, mensagememail, nome, setor

'response.Write(destinatario)
mensagememail = msg

response.Write("<script>alert('E-mail enviado com sucesso! Em breve entraremos em contato!');location='contato.asp'</script>")

Talves esse código te ajuda.

Man esse codigo não tem autenticação.

xanburzum· 4 de jan.

o CDONSTS foi descontinuado pela microsoft e seu sucessor é o CDOSYS, o qual todos os servidores estão utilizando. alguns servidores deve-se ao fato do endereço de smtp ser diferente do nome/ip do servidor que está tentando enviar o e-mail. Isso também pode ser uma instabilidade do servidor entre em contato com seu host para ver se esta tudo ok.

Gilberto Jr· 4 de jan.

Então da uma olhada nesse link.

E-Mail

xanburzum· 4 de jan.

qual é seu host ?

pois a locaweb tem que ser igual o smtp com o domínio.

Gilberto Jr· 4 de jan.

Eu uso a locaweb e também a King Host nestes servidores eu uso a CDONTS.NewMail e não tenho problema nenhum.

Pelo menos eu não tive por enquanto.

xanburzum· 5 de jan.

isso pode ser uma instabilidade do host.verifique qual a versão do windows que eles esão usando se for o Win 2k que usava CDONTS, isso algumas vezes pode ocorrer também se o email inserido for inválido, para isso eu uso regular expressions, tipo:

^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$

^A-Za-z0-9)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+))\.([A-Za-z]{2,})$

Function isValidEmail(myEmail)
dim isValidE
dim regEx

isValidE = True
set regEx = New RegExp

regEx.IgnoreCase = False

regEx.Pattern = "^A-Za-z0-9_\-)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+))\.([A-Za-z]{2,})$"
isValidE = regEx.Test(myEmail)

isValidEmail = isValidE
End Function

eu uso assim o CDOSYS.

O CDOsys é o componente de envio de e-mails da Microsoft em servidores Windows. É a versão mais atualizada do antigo CDOnts, que não é mais suportado em vários servidores. Lembrando que mesmo no envio de mensagem autenticado o remetente da mensagem deverá ser uma conta de e-mail válida do domínio .

"

'NOME DO DESINATARIO, E-MAIL DO DESINATÁRIO
objCDOSYSMail.To = "NOME "
'objCDOSYSMail.cc = "Copia "
'objCDOSYSMail.bcc = "Copia Oculta "

'ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = " Envio autenticado - CDOSYS Apps"

'CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = "Teste do componente CDOSYS - Texto sem HTML"
'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody

'objCDOSYSMail.HtmlBody = " "

'ENVIA A MENSAGEM
objCDOSYSMail.Send

'DESTR?I OS OBJETOS
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "Email enviado com sucesso"

'Response.Redirect "Enviado.asp"
%>