Enviar una página por Correo

Jvalle · #1 (**permalink**) 20/01/2005, 14:15

Estimados todos

Estoy elaborando un sistema de noticias, esto ya lo termine ahora debo enviarlo por correo electrónico como un boletín electrónico, como hago para hacerlo, lo que se viene es grabar el boletín que se vaya generando y con el aspSmartMail enviarlo como archivo adjunto, si alguien conoce la manera se lo agradecería.

Saludos y Gracias

Zerg · #2 (**permalink**) 19/02/2005, 00:27

mira la verdad es que estoy haciendo una página en donde tengo que recomendar productos o bien dicho recomendar una pagina.

puedes ver el ejemplo funcionando en :

www.charlesdarwin.cl o en www.newarksony.cl

LA PUEDES ARREGLAR A TU GUSTO, LA VERDAD ES QUE EN EL CODIGO QUIZA AYAN COSAS QUE ESTEN DEMAS, PERO EL DREAMWEAVER LAS LIMPIA. ESPERO QUE TE SIRVA

para ello en la página que quieres recomendar tienes que colocar un link a :

recomendar.asp

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

<body>
<table width="400" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td bgcolor="#000000"><table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF"><span class="Estilo9">
<%If request.form("enviar") = "" then
link=request.servervariables("HTTP_REFERER")%>
<img src="imagenes/minibanner.jpg" width="400" height="110">
<FORM METHOD="POST" ACTION="recomendar_producto.asp">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="1"
ALIGN="center" background="images/rayasgrises.gif">
<TR>
<TD COLSPAN="3"><DIV ALIGN="center"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <b>Vas a recomendar el articulo: <br>
<font color="#0000FF"><%=link%></font></b></font></DIV>
<DIV ALIGN="center"> </DIV></TD>
</TR>
<TR>
<TD WIDTH="161" class="Estilo6"><div align="right"><span class="Estilo36"><font color="#0000FF"> Tu nombre:</font></span></div></TD>
<TD WIDTH="12"><FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"> </FONT></TD>
<TD WIDTH="239"><FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="Nombre" SIZE="25">
</FONT></TD>
</TR>
<TR>
<TD WIDTH="161" class="Estilo6"><div align="right"><span class="Estilo36"><font color="#0000FF"> Tu e-mail:</font></span></div></TD>
<TD WIDTH="12"><FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"> </FONT></TD>
<TD WIDTH="239"><FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="tuemail" SIZE="25">
</FONT></TD>
</TR>
<TR>
<TD WIDTH="161" class="Estilo6"><div align="right"><span class="Estilo36"><font color="#0000FF"> Nombre de tu amigo:</font></span></div></TD>
<TD WIDTH="12" rowspan="2"><FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"> </FONT></TD>
<TD WIDTH="239" align="left"><input type="text" name="nombreamigo" size="25">
</TD>
</TR>
<TR>
<TD WIDTH="161" class="Estilo6"><div align="right"><span class="Estilo36"><font color="#0000FF"> E-mail de tu amigo:</font></span></div></TD>
<TD WIDTH="239" align="left"><FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="email1" SIZE="25">
</FONT></TD>
</TR>
<TR>
<TD WIDTH="161" height="65" class="Estilo6"><div align="right"><span class="Estilo36"><font color="#0000FF">Comentarios:</font></span></div></TD>
<TD WIDTH="12"></TD>
<TD WIDTH="239"><textarea rows="4" name="comentarios" cols="26"></textarea>
</TD>
</TR>
<TR>
<TD COLSPAN="3" HEIGHT="50"><DIV ALIGN="center"> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
<input type="hidden" name="enviar" size="2" value="SI">
<input type="hidden" name="link" size="20" value="<%=link%>">
<INPUT TYPE="submit" NAME="sub" VALUE="Recomendar">
  </FONT></DIV></TD>
</TR>
</TABLE>
</FORM>
<%End If%>
<p>
<%If request.form("enviar") = "SI" then%>
</p>
</span>
<P ALIGN="CENTER"><span class="Estilo34"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <img src="imagenes/minibanner.jpg" width="400" height="110"><br>
<br>
<br>
Email enviado, Gracias Por Recomendar Nuestros Productos. <br>
</font></span>
<strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<div align="center">http://www.newarlsony.cl</div>
</font></strong>
<div align="center"><span class="Estilo34"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></span></div>
<span class="Estilo34"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
<br>
<br>
</font><font size="2"></font></span><font size="2">
<P ALIGN="CENTER"><span class="Estilo34"><font face="Verdana, Arial, Helvetica, sans-serif">  <a href="javascript:close();">Cerrar ventana</a></font></span></P>
</font>
<p></P>
<span class="Estilo9">
<P ALIGN="CENTER">
<%strHost = "mail.newarksony.cl"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "[email protected]"

Mail.FromName = request.form("nombre")

Mail.AddReplyTo request.form("tuemail")

'response.write request.form("email1")

Mail.AddAddress request.form("email1")
titulo=Request.form("")&" Te Recomienda un Articulo de Newarksony.cl "
Mail.Subject = titulo
Mail.IsHTML = True

mensaje="<html><head>"
mensaje=mensaje & "<title>Recomendacion</title>"&vbcrlf
mensaje=mensaje & " </head><body><div align=center>"&vbcrlf
mensaje=mensaje & " <center>"&vbcrlf
mensaje=mensaje & " <table border=0 width=750 cellpadding=4>"&vbcrlf
mensaje=mensaje & " <tr> <td >"&vbcrlf
mensaje=mensaje & " <p align=center><a href=http://www.newarksony.cl><br>"&vbcrlf
mensaje=mensaje & " <img border=0 src=http://www.newarksony.cl/html/imagenes/img_central.jpg ></a></p>"&vbcrlf
mensaje=mensaje & " <center><p align=left>Saludos <font color=#000000><b>"&request.form("nombreamigo")&"</font></p></b>"&vbcrlf
mensaje=mensaje & " <p>Tu amigo <b><font color=#000000>"& Request.form("Nombre")&" </font></b>(<font color=#000000><a href=mailto:"&request.form("tuemail")&">"&vbcrlf
mensaje=mensaje & request.form("tuemail")&"</a></font>) <br>"&vbcrlf
mensaje=mensaje & " estuvo en <a href=http://www.newarksony.cl>www.newarksony.cl </a> y"&vbcrlf
mensaje=mensaje & " piensa que el articulo:</p>"&vbcrlf
mensaje=mensaje & " <p size=4><a href="&Request.form("link")&">"&Request.form("link ")&"</a></p>"&vbcrlf
mensaje=mensaje & " <p>Contiene Información Que te Puede Interesar. Además te Comenta Que:"&vbcrlf
mensaje=mensaje & " <div align=center>"&vbcrlf
mensaje=mensaje & " <table border=0 width=90% bgcolor=#FFFFFF>"&vbcrlf
mensaje=mensaje & " <tr> <td ><br><br><b><center>"& Request.form("comentarios")&"</td>"&vbcrlf
mensaje=mensaje & " </tr> </table></b><center> </div>"&vbcrlf
mensaje=mensaje & " <br><br> Mensaje enviado desde <a href=http://www.newarksony.cl>http://www.newarksony.cl</a><br>"&vbcrlf
mensaje=mensaje & " Importadora New Ark - Punta Arenas<br></center></body></html>"&vbcrlf

Mail.Body = mensaje
Mail.Send %>
<%End If%>
</P>
</span><br></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>