Enviar Datos por Correo

[JuanRAPerez]

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