Script para recomendar

Artepop · #1 (**permalink**) 19/07/2003, 12:15

Necesito enviar correo con CDONTS formateado. Con etiquetas HTML....

Bueno tengo lo siguiente:

para enviar, el formulario:

Código:

<form name="recomendar" method="post" action="recomendado.asp" onsubmit="return avisolegal(this)">
<input class="boton" type="text" name="tunombre" size="30" maxlength ="50">
<input class="boton" type="text" name="tucorreo" size="30" maxlength ="50">
<input class="boton" type="text" name="nombreamigo" size="30" maxlength ="50">
<input class="boton" type="text" name="correoamigo" size="30" maxlength ="50">
<textarea name="sBody" cols="29" rows="10"></textarea>
<input type="checkbox" name="AvisoLegal" value=", es el usuario que te recomienda este sitio web, lee y acepta las condiciones de uso de Navegandaluz.com +info: http://www.navegandaluz.com/legal/default.asp">
<input class="boton" type="submit" name="Submit" value="Recomendar" onMouseOut="this.style.backgroundColor='#E2EDF7';fuera(this);" onMouseOver="this.style.backgroundColor='#AABBCC';sobre(this);">

Luego para recoger y enviar mediante CDONTS:

Código:

<%
Dim tunombre,tucorreo,nombreamigo,correoamigo,sBody,AvisoLegal
tunombre=Request.form("tunombre")
tucorreo=Request.form("tucorreo")
nombreamigo=Request.form("nombreamigo")
correoamigo=Request.form("correoamigo")
sBody=Request.form("sBody")
AvisoLegal=Request.form("AvisoLegal")
Set Mail=Server.CreateObject("CDONTS.NewMail")
Mail.From=tucorreo
Mail.to=correoamigo
Mail.Subject=tunombre & " te recomienda Navegandaluz.com"
Mail.Body="Hola " & nombreamigo & ", " & tunombre & " te recomienda que visites www.navegandaluz.com" & " Escribe: " & sBody & " " & tunombre & AvisoLegal
Mail.Send
Set mail=nothing
Response.Write("Gracias por recomendar nuestro sitio web.")
%>

Y llega al destino asi:

Hola CVECA, Miguel te recomienda que visites www.navegandaluz.com Escribe:
Si crees que este sitio web puede ser de interés para tus conocidos puedes
recomendarlo a través del siguiente formulario. Miguel, es el usuario que
te recomienda este sitio web, lee y acepta las condiciones de uso de
Navegandaluz.com +info: http://www.navegandaluz.com/legal/default.asp

La cuestión es que quiero introducir saltos de lineas y formatear el texto: fuente, tamaño, etc....

¿Cómo se hace?

Gracias

DeLaVega · #2 (**permalink**) 19/07/2003, 12:24

Con estas 2 propiedades, el correo te llega en formato HTML:

Mail.BodyFormat = 0
Mail.MailFormat = 0

Luego, en el body, puedes poner código HTML e incluir tus variables, por ejemplo:

mail.body = "<html><body><p>Hola <b>" & nombreamigo & "</b></p></body></html>"

Saludos, suerte

Artepop · #3 (**permalink**) 19/07/2003, 13:04

Fenómeno, va perfecto, muchas gracias.