Ir para conteúdo

POWERED BY:

Arquivado

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

jussaramachado

c donts!

Por , em ASP Clássico

Recommended Posts

jussaramachado    0

jussaramachado
Postado

Eu fiz 3 pg para envio de um boletim que eu mando diariamente para muitos email. A primeira pg testa o envio, eu mando para um email para teste com o Boletim no corpo do email. A segunda me dá o retorno da primeira e tem um formulario que captura o corpo,remetente e assunto e define a tabela no BD para o envio do lote (eu quebrei os emails em 6 lotes, alterei o timeout..). A terceira envia o lote para a tabela selecionada. Tudo bem! As páginas funcionam, com exceção da última que vai até o BD manda os emails mas, não manda o corpo, ou seja o boletim. Já revi as pgs uma quinhentas vezes e não consigo achar o erro. Será que alguém sabe o que acontece? Porque tudo funciona mas, o corpo do Email não vai. Onde eu estou errando. Me ajudem por favor. Estou utilizando o CDONTS. Se alguém puder ver as pgs em agradeço muitissimo. Já testei de tudo:

1a.pag<html>

<head>

<title>Email Teste</title>

</head>

<body bgcolor="#ccFFFF">

<div align="center"><%texto=request.form("texto")%>

<div align="center"><center>

<table border="0" width="55%">

<tr><td width="100%" ><dl><div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="120"> <tr><td colspan="3" height="30"><div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="100%"><tr>td width="100%"><p align="center"><strong><font face="Arial" size="3" color="#004080"><u>Envio de email</u></font></strong></td></tr></table> </center></div></td></tr><tr>

<td width="28%" height="90"> <div align="center"><a href="inseriremail.asp"><img src="enviaremail.gif" alt="email.jpg (748 bytes)" width="115" height="67" border="0"></a> <strong><em></em></strong></div></td>

<td width="45%" height="90"><strong><font face="Arial" color="#004080"><a

href="altera_email.asp"><img

src="alteraremail.gif" width="115" height="67" border="0"></a><strong><em></em></strong></td>

<td width="27%" height="90"> <p align="center"><a

href="excluiremail.asp"><img

src="excluiremail.gif" width="115" height="67" border="0"></a> <font

face="Arial" color="#004080"><strong><em></em></strong></font></td>

</tr>

</table>

</center>

</div>

</dl><tr><td colspan="3">

<form method="POST" action="Enviarteste.asp">

<p>

<input type="hidden" name="action" value="action">

</p>

<p><strong><font face="Arial" size="2"

color="#004080">Digite o Email do Remetente:</font></strong><br>

<input name="remetente" type="text" size="51">

</p>

<p><strong><font face="Arial" size="2"

color="#004080">Digite o assunto:</font></strong><br>

<input type="text" name="assunto" size="51">

</p>

<p><font face="Arial" size="2" color="#004080"><strong>Entre com

a mensagem a ser enviada:</strong></font><br>

<textarea name="conteudo" cols="70" rows="7" wrap="PHYSICAL"></textarea>

</p>

<p><font face="Arial" size="2" color="#004080"><strong>Digite o

email para Teste:</strong></font> <br>

<input name="destinatario" type="text" size="41">

</p>

<p align="center">

<input type="submit" value="Enviar Teste" name="B1">

</p>

</form>

</td>

</tr>

</table>

</center></div></div>

</body>

</html>

 

2a.pag

.........<%

strFrom = Request.Form("remetente")

strTo = Request.Form("destinatario")

strSubject = Request.Form("assunto")

strBody = Request.Form("conteudo")

Server.ScriptTimeout = 360

Set Email = Server.CreateObject("CDONTS.NewMail")

Email.bodyFormat = 0

Email.mailformat = 0

Email.From =strFrom

Email.To = strTo

Email.Subject = strSubject

Email.Body = strBody

Email.Send

Set Email = Nothing

%>

<html>

<head>

<title>Enviar Teste</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#CCFFFF">

<div align="center"><center>

<table border="0" width="74%">

<tr>

<td width="100%"><p><strong>Voce enviou email para:

<% = request("destinatario") %>

<br>

Horário de envio:

<% = Now %>

</strong><br>

<strong>Email enviado com sucesso!</strong> </p></td>

</tr>

</table>

</center></div>

<form method="POST" action="Enviaremail.asp">

<p align="center">

<input

type="text" name="assunto" size="56" value="<%=request("assunto")%>">

<p align="center">

<input

type="text" name="remetente" size="56" value="<%=request("remetente")%>">

<p align="center">

<textarea name="conteúdo" cols="50" rows="7"> <%=request("conteudo")%></textarea></textarea>

</p>

<p align="center"> <strong><font face="Arial" size="2">Informe o mailling.:</font></strong>

<select name="Email" size="1" >

<option value="Email1">Email1</option>

<option value="Email2">Email2</option>

<option value="Email3">Email3</option>

<option value="Email4">Email4</option>

<option value="Email5">Email5</option>

<option value="Email6">Email6</option>

<option value="Testeemail">Testeemail</option>

</select>

</p>

<p align="center">

<input type="submit" value="Enviar"

name="B1">

</p>

</form>

</body>

</html>

3a.pag

.......<%

stremail = Request("email")

strFrom = Request("remetente")

strSubject = Request("assunto")

strBody = Request("conteudo")

Server.ScriptTimeout = 300

Set rs = Server.CreateObject("ADODB.Recordset")

rs.open "SELECT * FROM stremail order by endereco asc ",Con

While Not rs.EOF

Set Email = Server.CreateObject("CDONTS.NewMail")

Email.From = "strfrom"

Email.To = rs("Endereco")

Email.Subject = "strSubject"

Email.Body = strbody

Email.bodyFormat = 0

Email.mailformat = 0

Email.Send

Set Email = Nothing

rs.Movenext

Wend

rs.Close

Con.Close

Set Con = Nothing

Set rs = Nothing

%>

<html>

<head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<title>Enviar Email</title>

<body bgcolor="#CCFFFF">

<div align="center"><center>

<table border="0" width="74%">

<tr>

<td width="100%"><p><strong>Voce enviou email para:<%=request("email")%><br> de:<%=request("remetente")%><br>Assunto: <%=request("assunto")%>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

namio    0

namio
Postado

Aê, mano. Beleza?

 

Observa que na segunda página tú definiste o nome do controle conteúdo com ascento: :ph34r:

 

<textarea name="conteúdo" cols="50" rows="7"> <%=request("conteudo")%></textarea></textarea>

E na terceira página tú estás tentando pegar o valor do campo conteúdo, sem ascento: <_<

 

strBody = Request("conteudo")

Corrige a segunda página, para deixar a linha parecida com essa:

 

<textarea name="conteudo" cols="50" rows="7"> <%=request("conteudo")%></textarea></textarea>

Deu para entender?

 

Espero que isso te ajude ;)

 

Nâmio Evangelista

Compartilhar este post

Link para o post
Compartilhar em outros sites

namio    0

namio
Postado

Sem problemas.Isso acontece até mesmo com os melhores programadores :D Ademais, você não me fez perder tempo. Foi um prazer ajudá-la.Nâmio Evangelista

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