Cdonts
Started By
Estud_asp
, 08/06/2004, 12:33
5 replies to this topic
#1
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
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
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.
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
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
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
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.
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
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ê recebeu uma mensagem de <b>" & var_nome & "</b>, email <b>" & var_email & "</b> e fez o seguinte comentá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"
%>
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ê recebeu uma mensagem de <b>" & var_nome & "</b>, email <b>" & var_email & "</b> e fez o seguinte comentá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
Posted 09/06/2004, 00:39
> 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)!
---------------------------------------------------------------------------
> 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)