Newsletter com página da web

[rd111072 1]

Boa trade, amigos.

 

É o seguinte:

 

tenho um script de news que funciona, envia, mas só o que eu digito na caixa da mensagem, à mão e o link de unsubscribe que vem ebaixo da emnsagem. Na verdade, queria que o conteúdo não fosse escrito, digitado, mas fosse puxado de uma página minha, na web.

 

Abaixo, o código...

 

form da mensagem:

<!-- #include file="Config.asp"-->
<!-- #include file="abrirconexao.asp"-->
<!-- #include file="topogeral.inc"-->
<%
Assunto = Request("Assunto")
Mensagem = Request("Mensagem")
Response.write "<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">"
Response.write "<form method=""POST"" action=""enviar.asp"">"
Response.write "<tr>"
Response.write "<td width=""100%"" colspan=""3"" bgcolor=""#C0C0C0""><img border=""0"" src=""images/1.gif"" height=""5""></td>"
Response.write "</tr><tr>"
Response.write "<td width=""5%"" bgcolor=""#C0C0C0""><b>  Assunto: </b></td>"
Response.write "<td width=""75%"" bgcolor=""#C0C0C0""><b><input type=""text"" name=""Assunto"" size=""60"" value=""" & Assunto & """></b></td>"
Response.write "<td width=""20%"" bgcolor=""#C0C0C0"">  </td>"
Response.write "</tr><tr>"
Response.write "<td width=""100%"" colspan=""3"" bgcolor=""#C0C0C0""> </td>"
Response.write "</tr><tr>"
Response.write "<td width=""100%"" colspan=""3"" bgcolor=""#808080""><img border=""0"" src=""images/1.gif""></td>"
Response.write "</tr><tr>"
Response.write "<td width=""100%"" colspan=""3"" bgcolor=""#000000""><img border=""0"" src=""images/1.gif""></td>"
Response.write "</tr><tr>"
Response.write "<td width=""100%"" colspan=""3"">"
Response.write "<table border=""0"" width=""100%"">"
Response.write "<tr>"
Response.write "<td width=""100%"">"
Response.write "<p align=""center""><textarea rows=""15"" name=""Mensagem"" cols=""20"" style=""position: relative; width: 100%; font-size: 10 pt; font-family: Arial; height: 250"">" & Mensagem & "</textarea></p>"
Response.write "<p align=""center""><input type=""submit"" value=""  Enviar  ""></p>"
Response.write "</td></tr></table></td></tr></form></table>"
%>
<!-- #include file="undergeral.inc"-->
<!-- #include file="fecharconexao.asp"-->

página que envia:

 

<!-- #include file="Config.asp"-->
<!-- #include file="abrirconexao.asp"-->
<!--#INCLUDE file="topogeral.inc" -->
<%
Response.write "<div align=""center"">"
Function Plic(strTexto)
 Temp = Replace(strTexto, "'", "''")
 Plic = Replace(Temp, """", """")
End Function

Assunto = Request("Assunto")
Mensagem = Request("Mensagem")
Data = Date()
sSQL="SELECT * FROM Masters"
Set rs=ConnStr.Execute(sSQL)
emailadministrador=rs("email")
Set rs=Nothing
sql_select = "select * from Lista"
no = 0
Set rs_sendmail = Server.CreateObject("ADODB.Recordset")
rs_sendmail.Open sql_select, ConnStr
if rs_sendmail.EOF then
Response.write "<br><br><center><font face=arial size=2>" & Msg_NenhumEmail & "</font></center>"
Else
strSQL = "INSERT INTO HistoricoLista (Assunto, Mensagem, Data) VALUES ('" & Assunto & "', '" & Plic(Mensagem) & "', '" & Data & "')"
ConnStr.Execute(strSQL)
Response.write "<br><br><font face=arial size=""2"">" & Msg_HistoricoAdicionado & "</font><br>"
While Not rs_sendmail.EOF

Set mail = Server.CreateObject("CDO.Message")

mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="189.133.1.93"
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
mail.Configuration.Fields.Update

mail.From=emailadministrador
mail.To=rs_sendmail("email")
mail.Subject=Assunto
'Mail.BodyFormat=0
'Mail.MailFormat=0
mail.HTMLBody = Mensagem & "<p></p><iframe src=""campanha_web/campweb.htm"" width=""502"" height=""800"" scrolling=""Yes"" frameborder=""0""></iframe><p></p><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"

On Error Resume Next

	if Err.Number <> 0 then
	response.write "err.number="&Err.number
	response.end
	else 
		Mailer.send
	end if

mail.Send
Set mail = Nothing
no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "<br><font face=arial size=2>Total de Emails enviado:  " & no & " email(s).</font>"
rs_sendmail.Close
Set rs_sendmail = Nothing
End If
Response.write "</div>"
%>
<!-- #include file="undergeral.inc"-->
<!-- #include file="fecharconexao.asp"-->

Alguém sabe como faço para carregar a página htm dentro da mensagem?

[rd111072 1]

tentei agora colocando o endereço completo da página e também não funcionou:

 

só carrega o link unsubscribe e o texto digitado no corpo da mensagem.

[Public2004 79]

Veja se o seu provedor tem o componente AspHTTP - Facilita bastante.

 

Abs.

[rd111072 1]

Não tem o ASPHTTP. Tem o CDOSYS, ADODB , FileSystemObject e CDONTS.

 

Não tem como fazer com algum desses?

[Ted k' 126]

coloque o inframe dentro do corpo, mude o HTMLBody, como tem aqui

 

http://tedk.com.br/blog/index.php/2008/03/...enviado-e-mail/

[Salgado 4]

Dê uma pesquisada aqui mesmo no fórum, tem alguns exemplos mostrando como fazer isso usando FSO (File System Object).

[rd111072 1]

Ted,

 

visitei esse link que você passou, mas não vi onde tem iframe naquele código. Aquilo é uma form comum de contato via CDOSYS.

 

No meu código já tinha colocado o iframe no body da mensagem. Assim:

 

mail.HTMLBody = Mensagem & "<p></p><iframe src=""campanha_web/campweb.htm"" width=""502"" height=""800"" scrolling=""Yes"" frameborder=""0""></iframe><p></p><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"

[rd111072 1]

"Dê uma pesquisada aqui mesmo no fórum, tem alguns exemplos mostrando como fazer isso usando FSO (File System Object)."

 

Vou pesquisar, mas acho que dá pra implementar com esse código mesmo, basta ajeitar o tal do iframe... http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

 

Alguma luz?

[rd111072 1]

Não achei com FSO.

 

Não dá pra ajeitar esse código mesmo?

 

E aí, amigos?

 

Nenhuma luz?

 

Cadê o tio, o Super Mário? :unsure:

 

??? :o

[Salgado 4]

Veja nesse link, esqueci que o ideal seria buscar por template.