Jump to content


Photo

Cdonts


  • Faça o login para participar
5 replies to this topic

#1 Estud_asp

Estud_asp

    Normal

  • Usuários
  • 62 posts
  • Sexo:Masculino

Posted 08/06/2004, 12:33

AE GALERA EU TENHO UM FORM DE INSCRIÇÃO
QUE QUANDO ENVIADO RETORNA UMA PAGINA DE RESPOSTA E QUANDO A PAGINA DE RESPOSTA CARREGA E ENVIADO IMEDIATAMENTE UM EMAIL DE RESPOSTA EU ESTOU USANDO ESTE CÓDIGO, A PAGINA DE RESPOSTA CARREGA MAIS O EMAIL DE RESPOSTA NÃO CHEGA NO LOCAL DE DESTINO ALGUEM SABE ONDE ESTA O ERRO?

ESSE É O CÓDIGO


Set mailobj = Server.CreateObject("CDONTS.NewMail")
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.from = request.form("de")
mailobj.to = request.form("para")
mailobj.subject = request.form("assunto")
mailobj.body = " Mensagem
mailobj.send


VALEU

http://www.isointernet.com.br
Iso Internet Host - Garantia de Qualidade em Hospedagem


#2 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 08/06/2004, 12:36

Esse é todo o código? Verifique se no inicio do script não existe um "On Error Resume Next" e outra coisa que notei:

mailobj.body = " Mensagem
------------------^
mailobj.send


A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#3 Estud_asp

Estud_asp

    Normal

  • Usuários
  • 62 posts
  • Sexo:Masculino

Posted 08/06/2004, 13:06

mailobj.body = " Mensagem // Aqui eu busco algumas variáveis do form
mailobj.send

e sobre o On Error Resume Next
qundo eu peguei este codigo não tinha nada sobre isto

se vc tiver um cod neste estilo e poder me fornecer por favor poste ele aqui que eu copio

preciso muito deste codigo
Valeu

http://www.isointernet.com.br
Iso Internet Host - Garantia de Qualidade em Hospedagem


#4 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 08/06/2004, 14:44

Cara nessa linha vc tem Aspas abertas mas não as fecha, se mensagem vem de um form creio que deveria estar Request.Form("Mensagem")
A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#5 Estud_asp

Estud_asp

    Normal

  • Usuários
  • 62 posts
  • Sexo:Masculino

Posted 08/06/2004, 15:18

NÃO DEU CERTO O EMAIL SE PERDE NA INTERNET E NÃO CHEGA NO LOCAL DE DESTINO

eu tentei usar este codigo abaixo que pegeui aqui no forum
mais o email também não chega
ele envia redireciona mais assim mesmo não chega
entrei em contato com o servidor e me disseram que não havia problema com o CDONTS



<%
Option Explicit

Dim var_nome, var_email, var_telefone, var_cidade, var_to, EnviarMail, MsgBody

var_nome = Request.Form("nome")
var_email = Request.Form("email")
var_telefone = Request.Form("telefone")
var_cidade = Request.Form("cidade")
var_to = "email@dominio.com.br"

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_email
EnviarMail.Subject = "Meu Site - Contatos"
MsgBody = "<html>" & vbCrLf & _
"<head>" & vbCrLf & _
"</head>" & vbCrLf & _
"<body bgcolor=""#FFFFFF"">" & vbCrLf & _
"<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Voc&ecirc; recebeu uma mensagem de <b>" & var_nome & "</b>, email <b>" & var_email & "</b> e fez o seguinte coment&aacute;rio:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_telefone & var_cidade & "</b></font></p>" & vbCrLf & _
"</body>" & vbCrLf & _
"</html>"
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Response.redirect "formulario.html"
%>

http://www.isointernet.com.br
Iso Internet Host - Garantia de Qualidade em Hospedagem


#6 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 09/06/2004, 00:39

http://forum.wmonlin...showtopic=73222
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq