Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Wanderson Matias

[Resolvido] CDOSYS com SMTP Terra

Por , em ASP Clássico

Recommended Posts

Wanderson Matias    0

Wanderson Matias
Postado

Pessoal,

 

Podem me ajudar , tenho meu codigo de envio de e-mail por CDOSYS , funciona certinho com o smtp da yahoo porem quando coloco o do terra ele não funciona, alguem sabe o motivo ? Podem me ajudar ?

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum numero de erro ?

qual o SMTP você esta usando ?

coloque o smtp.poa.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

Wanderson Matias    0

Wanderson Matias
Postado

criei um arquivo.vbs para testar e tbm não da certo erro no SMTP segue o codigo em vbs

 

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "wan_matque@terra.com.br"
objEmail.Subject = "Teste - De envio de e-mail" 
objEmail.To = "wandersonmq@gmail.com"
objEmail.htmlbody = "<html>Olá<br><br>Isso é um teste de envio de e-mail se você recebeu é porque está tudo certo.<br><br>Obrigado<br><b>Wanderson Matias</b><br>wan_matque@yahoo.com.br</html>"


objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.em2.terra.com.br"

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "wan_matque@terra.com.br"

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "wan_matque@terra.com.br"

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXXXX"

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587



objEmail.Configuration.Fields.Update
objEmail.Configuration.Fields.Update

objEmail.Send

MsgBox "Email enviado com sucesso!"

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito