Ir para conteúdo

POWERED BY:

Arquivado

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

watequate

Formato html

Por , em ASP Clássico

Recommended Posts

watequate    0

watequate
Postado

Ja vi mtos topicos sobre formato de email em HTML.

 

Mas no meu codigo esta configurado e nao sei pq nao esta indo nesse formato.

 

Alguem pode me ajudar ?

 

<!--#include file="restrito.asp"--><!--#include file="cons.asp"--><html><head><title>Administração da NewsLetter</title><style>input		 {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}textarea	  {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}</style></head><body link="#000000" vlink="#000000" alink="#000000">	<font face="Verdana" size="2"><%	acao=Request.querystring("acao")	select case acao	case "enviar"	%>   <form action="admin.asp?acao=enviando" method="post">   <input type="hidden" name="data" value="<%=Date()%>">   <p align="center">	Assunto :<br>   <input type="text" name="assunto" size="49"><br>   Mensagem :<br>   <textarea name="mensagem" cols="60" rows="15"></textarea><br>   <input type="submit" value="Enviar">   </form><BR>Obs: Todos os e-mails são enviados em formato HTML<BR>Para quebra de linha utilize a tag "<br>"   <hr size="1">   <% case "enviando" %><%	user = 0   assunto = Request.Form("assunto")   mensagem = Request.form("mensagem")   mensagem = mensagem & "<BR><BR><BR>Para parar de receber este email <a href="& site & ">clique aqui</a>" AbreConexao   Sql = "SELECT email FROM dados"   sql2 = "SELECT count(*) as qtd from dados"   If Len(mensagem) Then      Set rs = Server.CreateObject("ADODB.Recordset")   Set rs2 = Server.CreateObject("ADODB.Recordset")	rs.Open Sql, ConStr, 3, 3	rs2.Open sql2, ConStr, 3, 3      While Not (rs.EOF or user >= 150)   'Set mail = Server.CreateObject("CDONTS.NewMail")   'mail.From = email      'mail.To = rs("email")   'mail.Subject = assunto   'mail.BodyFormat = 0   'mail.MailFormat = 0   'mail.Body = mensagem    'mail.Send   'Set mail = Nothing      Set Mail = Server.CreateObject("Persits.MailSender")	Mail.Host = "mail.nightfestrj.com" ' Specify a valid SMTP server	Mail.From = email ' Specify sender's address	Mail.FromName = "Night Fest RJ" ' Specify sender's name	Mail.AddAddress rs("email")	'Mail.AddAddress "paul@paulscompany.com" ' Name is optional	'Mail.AddReplyTo "info@veryhotcakes.com"	'Mail.AddAttachment "c:\images\cakes.gif"	Mail.Subject = assunto	Mail.Body = mensagem	On Error Resume Next	Mail.Send	If Err <> 0 Then	   Response.Write "Error encountered: " & Err.Description & " " & rs("email") & "<br>"	else	   Response.Write "Email enviado para : " & rs("email") & "<br>"	   user = user + 1	End If          rs.MoveNext   Wend   'Response.Write "No total foram enviados " & user & " emails."   rs.Close   Set rs = Nothing   Sql = "INSERT INTO enviados (assunto,mensagem,data) "   Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"   Conexao.Execute(Sql)   Else   Response.Redirect "admin.asp?acao=erro"   End If   FechaConexao    if (user >= 150) THEN    %>	<FORM METHOD=POST ACTION="./admin2.asp">	<INPUT TYPE="hidden" NAME="enviados" VALUE="<%=user%>">	<INPUT TYPE="hidden" NAME="total" VALUE="<%=rs2("qtd")%>">	Assunto :<br>   <input type="text" name="assunto" size="49" VALUE="<%=assunto%>"><br>   Mensagem :<br>   <textarea name="mensagem" cols="60" rows="15"><%=mensagem%></textarea><br>	<INPUT TYPE="submit" VALUE="Continuar">	</FORM>   <%	rs2.Close	set rs2=nothing   else   Response.Write "No total foram enviados " & user & " emails.<BR>"   Response.Write "<A HREF=admin.asp>Clique aqui para voltar</A>"   rs2.Close   set rs2=nothing   end if   %><% case "modificar" %><% AbreConexaoSql = "SELECT * From dados"Set rs = Conexao.Execute(Sql)while not rs.EOF%><table border="0" cellpadding="0" cellspacing="0">  <tr>		<td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>"></td>	<td><input type="text" value="<%=rs("email")%>" name="email" size="30">	 <input type="submit" value="Alterar"></form></td>	<td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>"><input type="submit" value="Apagar"></form></td>  </tr></table><hr size="1"><% rs.MoveNextwendFechaConexao %><% case "deletar" %><% id = request.querystring("id")AbreConexaoSql = "DELETE id,email FROM dados WHERE id = " & id &""Conexao.Execute(Sql)FechaConexao %>E-Mail deletado com sucesso!<BR><hr size="1"><% case "alterar" %><% id = request.querystring("id")AbreConexaoSql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "Conexao.Execute(Sql)FechaConexao %>E-Mail alterado com sucesso!<BR><hr size="1"><% case "todas" %><% AbreConexaoSql = "SELECT * From enviados"Set rs = Conexao.Execute(Sql)while not rs.EOF %>Assunto: <font color="red"><%=rs("assunto")%></font><BR>Enviada em: <font color="red"><%=rs("data")%></font><BR>Mensagem:<BR><%=rs("mensagem")%><BR><BR><BR><HR size="1"><% rs.MoveNextwendFechaConexao %><% case "erro" %>Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR><hr size="1"><% case else %><% AbreConexaoSql = "SELECT * FROM dados"Set rs = Server.CreateObject("ADODB.Recordset")	 rs.Open Sql, ConStr, 3, 3 %>No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR><a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR><a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR><a href="admin.asp?acao=todas">Todos os e-mails já enviados</a><HR size="1"><% FechaConexaoend select %></font>	<p align="center"><font color="#FF0000" size="2">Script Desenvolvido por <a href="mailto:felipeb2000@bol.com.br">Felipe Siola</a></font></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Faltou colocar logo abaixo do Mail.Body um Mail.IsHTML = True. Coloca e testa .

Compartilhar este post

Link para o post
Compartilhar em outros sites

watequate    0

watequate
Postado

Salgado,

 

o meu codigo ficou asism e continuou a mesma coisa, chegando no meu email a linha do codigo html pra abrir a imagem.

 

'Set mail = Server.CreateObject("CDONTS.NewMail")   'mail.From = email      'mail.To = rs("email")   'mail.Subject = assunto   'mail.BodyFormat = 0   'mail.IsHTML = True   'mail.MailFormat = 0   'mail.Body = mensagem    'mail.Send   'Set mail = Nothing      Set Mail = Server.CreateObject("Persits.MailSender")	Mail.Host = "mail.nightfestrj.com" ' Specify a valid SMTP server	Mail.From = email ' Specify sender's address	Mail.FromName = "Night Fest RJ" ' Specify sender's name

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Cara, você colocou na parte do código que está comentada e não é executada, coloque mais abaixo na parte que é executada.

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