Ir para conteúdo

POWERED BY:

Arquivado

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

Arrasted

O codigo todo

Por , em ASP Clássico

Recommended Posts

Arrasted    0

Arrasted
Postado

Não da Erro nenhum, mas o email nao chega...digitaldna.com.br é meu dominio..coloquei as pag num outro diretorio chamado Saude1..tem algo a ver ?

Abraços

 

ASP

[*]<%

 

[*]

 

[*]Dim var_nome, var_telefone, var_email, var_assunto, var_mensagem, var_to, EnviarMail, MsgBody

 

[*]

 

[*]var_nome = Request.QueryString("txtnome")

 

[*]var_telefone = Request.QueryString("txttelefone")

 

[*]var_email = Request.QueryString("txtemail")

 

[*]var_assunto = Request.QueryString("txtassunto")

 

[*]var_mensagem = Request.QueryString("txtmensagem")

 

[*]var_to = "erico@digitaldna.com.br"

 

[*]

 

[*]Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

 

[*]EnviarMail.To = var_to

 

[*]EnviarMail.From = var_mail

 

[*]EnviarMail.Subject = "Página de Contato - Contatos"

 

[*]MsgBody = "<html>" _

 

[*]& "<head>" _

 

[*]& "</head>" _

 

[*]& "<body bgcolor=""#FFFFFF"">" _

 

[*]& "<p align=""left""><font face=""Verdana, Arial"" size=""11px"">Você recebeu uma mensagem de <b>" & var_nome & "</b>, Telefone <b>" & var_telefone & "</b>, e-mail<b>" & var_telefone & "</b>, assunto<b>" & var_assunto & "</b></font></p><p align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""11px""><b>" & var_mensagem & "</b></font></p>" _

 

[*]& "</body>" _

 

[*]& "</html>"

 

[*]EnviarMail.Body = MsgBody

 

[*]EnviarMail.Importance = 2

 

[*]EnviarMail.BodyFormat = 0

 

[*]EnviarMail.MailFormat = 0

 

[*]EnviarMail.Send

 

[*]

 

[*]Set EnviarMail = Nothing

 

[*]

 

[*]Response.redirect "Default.asp"

 

[*]%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Se seu Webmail possuir antiSpan, verifique nessa caixa se o e-mail não foi parar lá.

 

Como já foi dito, o CDONTS não autentica SMTP e alguns servidores entendem como Span e às vezes nem o recebem.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Arrasted    0

Arrasted
Postado

Pode parecer uma pergunta estranha, mas tem o CDONTS instalado ?

Faça esse teste:

 

<%EnviarMail.Sendif EnviarMail.send = true thenTexto = "Enviado!!!"ElseTexto = "Erro no envio!!!"End ifresponse.write(Texto)%>
Veja se o CDONTS está instalado:

 

<%Option ExplicitFunction IsComponentInstalled(ProgId)Dim tmpObjectOn Error Resume NextSet tmpObject = Server.CreateObject(ProgId)If Err.Number = 0 ThenIsComponentInstalled = TrueElseIsComponentInstalled = FalseEnd IfSet tmpObject = NothingEnd Function'Utilizando a função If IsComponentInstalled("CDONTS.NewMail") ThenResponse.Write "Enviando o e-mail ..."'...ElseResponse.Write "Não é possível enviar o e-mail (Objeto para envio indisponível)"End If %>
B)

<{POST_SNAPBACK}>

Nada, Salgado nem no Anti Sapm tem nada

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