Ver Mensaje Individual
  #3 (permalink)  
Antiguo 28/08/2007, 10:38
Avatar de JuanRAPerez
JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses
Puntos: 27
Re: CDO, AspEmail - importar htm y embeber con parametros.

ó

Crea tu HTML en un archivo llamado Plantilla001.html o como quieras llamarla, a ese HTML ponle tablas y objetos HTML como tu lo desees.

Donde quieras reemplazar coloca textos que sean faciles de identificar por ejemplo

Cita:
....
estimado: <b>Nombre_Rs_reemplazar</b>
....
en donde "Nombre_Rs_reemplazar" es el valor que reemplazaras por tu dato en el recordset

luego haces esto en asp.
Cita:
EnviarEsteHTML = "Plantilla001.html"
fName = server.mappath(EnviarEsteHTML)
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.openTextFile(fName)
Mensaje = a.readall
a.Close
set a = nothing
set fs = nothing
en donde "mensaje" tendra todo tu HTML

luego en asp generas tu RecordSet y realizas este proceo

Cita:
strMensaje = mensaje
strMensaje = replace(strMensaje,"Nombre_Rs_reemplazar",rs("Usua rioNombre"))
Luego lo metes en tu cadena

Cita:
Mail.Body = strMensaje
Mail.IsHTML = True
inicias el ciclo y barres el promimo registro


suerte

P.D. Me falto esta línea, por eso edite
EnviarEsteHTML = "Plantilla001.html"
__________________
JuanRa Pérez
San Salvador, El Salvador

Última edición por JuanRAPerez; 28/08/2007 a las 17:06