Ir para conteúdo

POWERED BY:

Arquivado

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

watequate

nesse codigo

Por , em ASP Clássico

Recommended Posts

watequate    0

watequate
Postado

Fala pessoal do forum.estou com o seguinte codigo para o envio de newsletter mas estou com um probleminha: nao consigo enviar uma imagem no corpo desse email. Ja tentei colocar <img src="http://www.meusite.com.br/imagens/imagem.gif"> mas qnd chega no email soh aparece o texto do codigo. Oq eu tenho q modificar para solucionar esse meu problema ? vai o codigo abaixo:<!--#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>Para parar de receber este email <a href="& site & ">clique aqui</a>" AbreConexao Sql = "SELECT email FROM dados" If Len(mensagem) Then Set rs = Server.CreateObject("ADODB.Recordset") rs.Open Sql, ConStr, 3, 3 While Not rs.EOF Set mail = Server.CreateObject("CDONTS.NewMail") mail.From = email mail.To = rs("email") mail.Subject = assunto mail.BodyFormat = 0 mail.Body = mensagem mail.Send Set mail = Nothing Response.Write "Email enviado para : " & rs("email") & "<br>" user = user + 1 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 %><% case "modificar" %><% AbreConexaoSql = "SELECT * From dados"Set rs = Conexao.Execute(Sql)while not rs.EOF%><table border="0" cellpadding="0" cellspacing="0"> <tr> <td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td> <td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>"><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

Mário Monteiro    179

Mário Monteiro
Postado

nesta linhamail.BodyFormat = 0você deve definir que eh formato HTML...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

seria colocar igual a 1 entaum ????

não sei te responder com precisão...

 

só vendo a documentação

Compartilhar este post

Link para o post
Compartilhar em outros sites

watequate    0

watequate
Postado

mas marioufpa, eu tenho um codigo de fale conosco e esta definido como 0. fiz um teste colocando do meu site o codigo <img src... e chegou no meu email a imagem normal.o meu codigo do fale conosco<%str_nome = trim(request.form("nome"))str_email = trim(request.form("email"))str_assunto = trim(request.form("assunto"))str_mensagem = trim(request.form("mensagem"))str_ip = trim(request.form("hiddenField"))str_mensagememail = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor=""white"">" _& "<p align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><center><u>Fale Conosco: Portal da Micareta</u></center><br><br>Você recebeu uma mensagem de <b>" & str_nome & "</b>;<br><br>E-mail:<b>" & str_email & "</b>;<br><br>Assunto:<b> " & str_assunto & "</b>;<br><br>E deixou a seguinte mensagem:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & str_mensagem & "</b></font></p>" _& "</body>" _& "</html>"set mensagem = server.createobject("CDONTS.NewMail")mensagem.from = str_emailmensagem.to = "contato@meusite.com.br"mensagem.Subject = str_assuntomensagem.bodyformat = 0mensagem.mailformat = 0mensagem.Body = str_mensagememailmensagem.SendSet objMail = nothingresponse.redirect "http://www.meusite.com.br/sucesso.htm"%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

então que erro ta dando??

Compartilhar este post

Link para o post
Compartilhar em outros sites

watequate    0

watequate
Postado

o erro q esta dando eh no primeiro codigo q postei, pois nao consigo incluir uma imagem no corpo do email. O primeiro codigo é do newsletter, e o segundo é do fale conosco do site. Eu gostaria de mandar o email do newsletter com imagem. Sera q tem como você me ajudar ?

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