Enviar Datos por Correo

Agrey · #1 (**permalink**) 07/10/2005, 02:51

Hola a todos,
Tengo una duda k no haber si alguien me puede ayudar.

Yo envio un boletin con el siguiente código:

Código HTML:

<%
fName = server.mappath("boletin.htm")
Set fs = CreateObject("Scripting.FileSystemObject")
	Set a = fs.openTextFile(fName)
	Mensaje = a.readall
	a.Close
	set a = nothing
	set fs = nothing	
%>	
<!--#include file="../conexion.asp"-->
<%
Server.ScriptTimeOut = 10000
express conn

Set rs = Server.CreateObject ("ADODB.RecordSet")
sql="select * from usuarios "
rs.Open sql,conn,3,1

do while not rs.eof

Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host = "zzzz.xxxx"
Mail.From = "zzz@xxxx"
Mail.FromName = "xxx"
Mail.AddAddress rs("email")
Mail.Subject = Mail.EncodeHeader("xxxxxxxxx")
Mail.IsHTML = True
Mail.body = Mensaje 
Mail.Sendtoqueue
Mail.reset

rs.movenext
loop	


%>

Y funciona correctamente,

Mi idea ahora, era mandar un correo a todos los usuarios mostrandoles sus datos para si quieren actualizarlos.
Entonces lo que he hecho es donde pone: "boletin.htm" he puesto datos.asp
Y esa página es una página que recoje los datos de la bbdd.

Pero a la hora de mandarlo recibo el email sin los datos, sólo con la palntilla hecha en asp.

Como lo puedo solucioanr

djmortal · #2 (**permalink**) 07/10/2005, 08:56

Cita:

Mail.Body = "<html><head><style type=text/css>.Estilo3 {font-family: Arial, Helvetica, sans-serif}</style></head><body><table width=100% border=0> <tr> <td><div align=center></div></td> </tr> <tr> <td><p class=Estilo3> Estimado Sr/a: "& (Rsrecuperapass.Fields.Item("nombre").Value) &" desde la ip: "& Request.ServerVariables("Remote_Addr")&" se ha solicitado la petición del recordatorio de su contraseña para acceder a nuestros servicios web, dicha contraseña es la siguiente:</p> <p class=Estilo3><strong>"& (Rsrecuperapass.Fields.Item("clave").Value) &"</strong></p> <p class=Estilo3>Un Saludo y Gracias por confiar en nosotros</p> </td> </tr></table></body></html>"

Prueba a meter la pagina dentro tal y como la tengo aqui recuerda todos los caracteres que no sean ASP no pueden tener "" comilllas

Agrey · #3 (**permalink**) 07/10/2005, 10:55

Haciendo eso si que funciona, pero no es lo que busco yo quiero haciendolo que la coje de una pagina externa, pq si lo ahgo komo tu dices me puedes quedar cerca de 100 lineas y es imposible luego cambiar algo de estilo....

Alguna solución....como lo soleis hacer....

Agrey · #4 (**permalink**) 09/10/2005, 12:47

Nadie me puede ayudar??????
Veo que la solucion de Djmortal me puede servir pero tiene qeu exitir otra forma

djmortal · #5 (**permalink**) 10/10/2005, 01:52

tomar algo de un archivo y hacer un leer y reemplazar y luego enviar tal y como tu lo hacias.

Agrey · #6 (**permalink**) 10/10/2005, 03:01

No entiendo lo que me quieres decir.

JuanRAPerez · #7 (**permalink**) 10/10/2005, 08:19

djmortal quiere decir algo como :

mensaje = mensaje

Mensaje ree

Código:

<%
fName = server.mappath("boletin.htm")
Set fs = CreateObject("Scripting.FileSystemObject")
	Set a = fs.openTextFile(fName)
	Mensaje = a.readall
	a.Close
	set a = nothing
	set fs = nothing	
%>	
<!--#include file="../conexion.asp"-->
<%
Server.ScriptTimeOut = 10000
express conn

Set rs = Server.CreateObject ("ADODB.RecordSet")
sql="select * from usuarios "
rs.Open sql,conn,3,1

do while not rs.eof

'NOMBREFULANO es un texto puesto en el archivo boletin html que sera reemplazado por el rd
MensajePersonalizado = mensaje
MensajePersonalizado = replace(MensajePersonalizado, NOMBREFULANO, "rs("Nombre")")


Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host = "zzzz.xxxx"
Mail.From = "zzz@xxxx"
Mail.FromName = "xxx"
Mail.AddAddress rs("email")
Mail.Subject = Mail.EncodeHeader("xxxxxxxxx")
Mail.IsHTML = True
Mail.body = MensajePersonalizado
Mail.Sendtoqueue
Mail.reset

rs.movenext
loop	

%>

o algo similar :P

Agrey · #8 (**permalink**) 10/10/2005, 10:13

Nada sin sin funcionar,
Gracias por la ayuda