Ir para conteúdo

POWERED BY:

Arquivado

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

Elton M. Távora

Problemas com CDONTS.

Por , em ASP Clássico

Recommended Posts

Elton M. Távora    0

Elton M. Távora
Postado

Estou tentando usar o cdonts para enviar os dados do formulário de um arquivo HTML para meu e-mail.

Está tudo dando certo até eu mudar o assundo do e-mail no código do arquivo ASP.

Isso mesmo. Com o assunto ("Meu Site - Contatos") que está nesse código o e-mail chega. Agora se eu mudar para qualquer assunto que seja, o email não chega.

Alguém sabe o que pode ser isso?

Estou precisando muito que isso funcione corretamente.

Obrigado.

 

O código é esse:

 

<%

Option Explicit

Dim var_nome, var_empresa, var_mail, var_to, EnviarMail, MsgBody

var_nome = Request.QueryString("txtnome")
var_empresa = Request.QueryString("txtempresa")
var_mail = Request.QueryString("txtemail")
var_to = "MEU E-MAIL"

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

Set EnviarMail = Nothing

Response.redirect "Obrigado.html"

%>

Se for necessário que eu mande o código do HTML é só pedir aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Se o assunto for "123 teste" não chega? Ou você está informando algum caracter especial no assunto? Isso faz grande diferença em alguns webmails...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Elton M. Távora    0

Elton M. Távora
Postado

Se o assunto for "123 teste" não chega? Ou você está informando algum caracter especial no assunto? Isso faz grande diferença em alguns webmails...

Exatamente. Acabei de testar.

"123 teste" Não chega.

 

Se quiser eu mando o HTML para teste.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Elton M. Távora    0

Elton M. Távora
Postado

Bom... Vai o código HTMl. Talvez ajude.

 

<html>
  <head>
	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
	<title>Contatos - Via CDONTS</title>
  </head>
  <body bgcolor="#FFFFFF">
  <div align="center">
	<table style="border: 1px solid #000000; background-color: #D4D0C8; font-family: Arial; font-size: 12px;">
	  <form name="form1" action="Enviar_email2.asp" >
		<tr>
		  <td>Nome:</td>
		  <td><input type="text" name="txtnome" style="width: 348px"></td>
		</tr>
		<tr>
		  <td>Empresa:</td>
		  <td><input type="text" name="txtempresa" style="width: 348px"></td>
		</tr>
		<tr>
		  <td>Email:</td>
		  <td><input type="text" name="txtemail" style="width: 348px"></td>
		</tr>
		<tr>
		  <td></td>
		  <td><input type="submit" name="Submit" value="Enviar" style="font-family: 'Arial'; font-size: 12px"></td>
		</tr>
	  </form>
	</table>
  </div>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Um detalhe que reparei...

var_to = "MEU E-MAIL"

 

Mais abaixo...

EnviarMail.To = var_to

 

Aqui deveria ter sido informado outro e-mail... corrija isso e teste novamente.

 

Se não der certo, faça o seguinte.. preencha as informações do componente manualmente e faça o teste. Veja se vai chegar ou não.. se chegar, aí sim você configura o formulário.

 

Poste como ficou.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Elton M. Távora    0

Elton M. Távora
Postado

Um detalhe que reparei...

var_to = "MEU E-MAIL"

 

Mais abaixo...

EnviarMail.To = var_to

 

Aqui deveria ter sido informado outro e-mail... corrija isso e teste novamente.

 

Se não der certo, faça o seguinte.. preencha as informações do componente manualmente e faça o teste. Veja se vai chegar ou não.. se chegar, aí sim você configura o formulário.

 

Poste como ficou.

Testei como você falou e ainda estou com o mesmo problema.

Veja como ficou:

 

<%

Option Explicit

Dim var_nome, var_empresa, var_mail, var_to, EnviarMail, MsgBody

var_nome = "TESTE"
var_empresa = "TESTE2"
var_mail = "TESTE3"

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = "elton@ctgas.com.br"
EnviarMail.From = var_mail
EnviarMail.Subject = "Meu Site - Contatos"
MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu uma mensagem de <b>" & var_nome & "</b>, email <b>" & var_mail & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_empresa & "</b></font></p>" _
& "</body>" _
& "</html>"
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Response.redirect "Obrigado.html"

%>

Com esse código está dando certo. O e-mail está chegando.

Só que mais uma vez, se eu mudar o nome do assunto para qualquer outro nome o e-mail não chega.

Complicado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

var_mail = "TESTE3"

 

EnviarMail.From = var_mail

 

 

Mesmo erro que citei.. só que em from... em FROM e TO deve-se informar o e-mail a ser enviado e que irá receber... Corrija e poste novamente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Elton M. Távora    0

Elton M. Távora
Postado

var_mail = "TESTE3"

 

EnviarMail.From = var_mail

 

 

Mesmo erro que citei.. só que em from... em FROM e TO deve-se informar o e-mail a ser enviado e que irá receber... Corrija e poste novamente.

Opa. :D

Está quase dando certo.

Agora o e-mail já vai com qualquer assunto.

Foi mesmo o que você havia me falado.

Obrigado.

Veja:

<%

Option Explicit

Dim var_nome, var_empresa, var_mail, var_to, EnviarMail, MsgBody

var_nome = "TESTE"
var_empresa = "TESTE"
var_mail = "TESTE"

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = "elton@ctgas.com.br"
EnviarMail.From = "elton@ctgas.com.br"
EnviarMail.Subject = "Email enviado pelo site."
MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Nome:<b>" & var_nome & "</b>, Email: <b>" & var_mail & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_empresa & "</b></font></p>" _
& "</body>" _
& "</html>"
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Response.redirect "Obrigado.html"

%>

 

Agora o que está dando erro é o conteudo do e-mail.

Quero fazer com que fique assim:

 

Nome: <b>" & var_nome & "</b>

Empresa: <b>" & var_empresa & "</b>

Email: <b>" & var_email & "</b>

 

Mas quando altero no código, o e-mail não chega.

Tem noção do que possa ser.

 

Execute esse asp colocando um e-mail seu para você ver. (Não precisa mais do html.)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Elton M. Távora    0

Elton M. Távora
Postado

Pronto. Aí está o máximo do conteúdo do e-mail que eu consegui mudar

 

MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Nome: <b>" & var_nome & "</b><br> Email: <b>" & var_mail & "</b><br> comentário:<b>" & var_empresa & "</b></font></p>" _
& "</body>" _
& "</html>"

Não consigo mudar "comentário" por "Empresa".

Se eu mudar, o e-mail não chega.

 

Aos pouquinhos vou chegando lá.

Alguma sugestão?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

mas, esta dando erro ainda...

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