Jump to content

  2. →
  3. →

Photo

Duvida Nesse Codigo

Started By watequate, 22/07/2005, 09:01

  • Faça o login para participar
8 replies to this topic

#1 watequate

watequate

    Turista

  • Usuários
  • 50 posts
  • Sexo:Não informado

Posted 22/07/2005, 09:01

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.c...ns/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 "&lt;br&gt;"
<hr size="1">

<% case "enviando" %>
<% user = 0
assunto = Request.Form("assunto")
mensagem = Request.form("mensagem")
mensagem = mensagem & "&lt;br&gt;&lt;br&gt;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" %>
<% AbreConexao
Sql = "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.MoveNext
wend
FechaConexao %>

<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "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")
AbreConexao
Sql = "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" %>
<% AbreConexao
Sql = "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.MoveNext
wend
FechaConexao %>

<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">

<% case else %>
<% AbreConexao
Sql = "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">
<% FechaConexao
end 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>

#2 edmais

edmais

    Just do it!

  • Usuários
  • 797 posts
  • Sexo:Não informado
  • Localidade:BH - MG

Posted 22/07/2005, 09:40

Tenta:


<!--#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 "&lt;br&gt;"
<hr size="1">

<% case "enviando" %>
<% user = 0
assunto = Request.Form("assunto")
mensagem = Request.form("mensagem")
mensagem = mensagem & "&lt;br&gt;&lt;br&gt;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
objMail.MailFormat = 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" %>
<% AbreConexao
Sql = "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.MoveNext
wend
FechaConexao %>

<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "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")
AbreConexao
Sql = "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" %>
<% AbreConexao
Sql = "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.MoveNext
wend
FechaConexao %>

<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">

<% case else %>
<% AbreConexao
Sql = "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">
<% FechaConexao
end 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>
Eduardo Batista

#3 Worm

Worm

    Veterano

  • Ex-Admins
  • 1343 posts
  • Sexo:Masculino
  • Localidade:São Paulo - SP
  • Interesses:Obter o maximo conhecimento.

Posted 22/07/2005, 10:00

Pra enviar imagens o formato tem que ser HTML, e no Cdonts o codigo é esse.

mail.BodyFormat = 1

#4 edmais

edmais

    Just do it!

  • Usuários
  • 797 posts
  • Sexo:Não informado
  • Localidade:BH - MG

Posted 22/07/2005, 10:05

Errado. 0 para Tags HTML e 1 para texto simples.
Eduardo Batista

#5 Worm

Worm

    Veterano

  • Ex-Admins
  • 1343 posts
  • Sexo:Masculino
  • Localidade:São Paulo - SP
  • Interesses:Obter o maximo conhecimento.

Posted 22/07/2005, 10:07

Errado. 0 para Tags HTML e 1 para texto simples.



Está certo. (y) 


myMail.BodyFormat=0

Até.

#6 watequate

watequate

    Turista

  • Usuários
  • 50 posts
  • Sexo:Não informado

Posted 22/07/2005, 13:26

Nao deu certo nao, deu o seguinte erro edmais:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/newsletters/admin.asp, line 48

#7 edmais

edmais

    Just do it!

  • Usuários
  • 797 posts
  • Sexo:Não informado
  • Localidade:BH - MG

Posted 22/07/2005, 13:30

Ah claro..

mas qual a linha 48? <_<
Eduardo Batista

#8 watequate

watequate

    Turista

  • Usuários
  • 50 posts
  • Sexo:Não informado

Posted 22/07/2005, 14:13

eh justamente onde vc pediu pra eu colocar e q esta em negrito. objMail...

#9 edmais

edmais

    Just do it!

  • Usuários
  • 797 posts
  • Sexo:Não informado
  • Localidade:BH - MG

Posted 22/07/2005, 14:17

Nuss



<!--#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 "&lt;br&gt;"
<hr size="1">

<% case "enviando" %>
<% user = 0
assunto = Request.Form("assunto")
mensagem = Request.form("mensagem")
mensagem = mensagem & "&lt;br&gt;&lt;br&gt;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.MailFormat = 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" %>
<% AbreConexao
Sql = "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.MoveNext
wend
FechaConexao %>

<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "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")
AbreConexao
Sql = "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" %>
<% AbreConexao
Sql = "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.MoveNext
wend
FechaConexao %>

<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">

<% case else %>
<% AbreConexao
Sql = "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">
<% FechaConexao
end 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>
Eduardo Batista
Voltar para ASP


0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq