Envio de e-mail com CDonts

[thicomp 0]

Olá pessoal, boa tarde!

 

Estou com um problema com o envio de e-mail com o CDonts.

Não sei se esse problema pode ser de fácil resolução, mas o que acontece é que ora executo esse código e o e-mail é enviado corretamente ora a mensagem é enviada para a pasta BadMail.

 

Alguém teria alguma sugestão?? Realmente não sei o que possa estar acontecendo...

 

O código utilizado é esse abaixo:

 

<%
Set objeto = CreateObject ("CDONTS.NewMail")
objeto.from = mailfrom
objeto.to = mailto
objeto.subject = "Teste"
objeto.body = "Teste de Envio de e-mail"
objeto.send
Set objeto = Nothing
%>

[AspMan 0]

O email está sendo enviado para a caixa de spam ou lixo eletrônico?

[thicomp 0]

Pior que não...

A mensagem é enviada diretamente pra pasta BadMail dentro do servidor...

Mas o que me deixa mais encucado, é que as vezes ele envia a mensagem normalmente, outras ele simplesmente não envia...

 

 

O email está sendo enviado para a caixa de spam ou lixo eletrônico?

[AspMan 0]

Tenta esse:

 

<%

Option Explicit

Dim nome, email, mailTo, MsgBody, EnviarEmail

email = "email-de-quem-envia@...com.br"
nome = "QUEM ENVIA"
mailTo = "seuemail@qualquer.com"

Set EnviarEmail = Server.CreateObject("CDONTS.NewMail")
EnviarEmail.To = mailTo
EnviarEmail.From = email
EnviarEmail.Subject = "Contatos do meu site"
MsgBody = "Sua mensagem"_
&"Pode utilizar html"_
&"como por exemplo tags html"

EnviarEmail.Body = MsgBody
EnviarEmail.Importance = 1
EnviarEmail.BodyFormat = 0
EnviarEmail.MailFormat = 0
EnviarEmail.Send

Set EnviarEmail = Nothing

[xanburzum 169]

Ao invés de usar CDONTS, utilize o CDOSYS, o qual é o sucessor do CDONTS