Ver Mensaje Individual
  #5 (permalink)  
Antiguo 04/02/2003, 15:11
ftmad
 
Fecha de Ingreso: enero-2002
Ubicación: Barcelona
Mensajes: 74
Antigüedad: 23 años, 3 meses
Puntos: 0
FSO es el comando File system object.

para que veas de que se trata te pego codigo :
Código:
<!-- usamos FSO para leer el fichero y meterle entero en una variable-->
fName = server.mappath("../ficheros/boletin.htm")
Set fs = CreateObject("Scripting.FileSystemObject")
	Set a = fs.openTextFile(fName)
	Mensaje = a.readall
	a.Close
	set a = nothing
	set fs = nothing
<!-- ahora el contenido del fichero boletin.htm esta en la variable mensaje-->

Set Mail=Server.CreateObject("Persits.MailSender")
<!-- reemplazamos la cadena ***nombre** por el nombre de cada remitente. y despues el envio del mail... falta el bucle para que lo haga para cada registro-->

cuerpo=replace(mensaje,"***nombre***",nombre)
Mail.Host = ""
Mail.username = ""
Mail.password = ""
Mail.From = ""
Mail.FromName = ""
Mail.Subject = ""
Mail.IsHTML = True
Mail.body = cuerpo
Mail.addaddress 
Mail.Sendtoqueue
espero te sirva de algo

un saludo