Estimados amigos,
Deseo haceros la siguiente pregunta. Recibo un suscripción a una lista de correo vía Web. Quisiera enviar al suscrito un mensaje de agradecimiento basado en una plantilla, donde en cada ocasión se sustituya el mail y el nombre del individuo para hacerlo si cabe más personal.
Mi duda es: ¿cómo debo confeccionar la página plantilla.htm para que me reconozca los campos Nombre y Mail y los sustituya por el correspondiente en cada ocasión?
He probado esto y creo que el problema puede estar en el código de plantilla.htm que no sé cómo hacerlo.
Gracias,
Emajesus
<%
strPhysicalPath = "/pruebas/plantilla.htm" ' Mappen med filerne
set mfso=Server.CreateObject("Scripting.FileSystemObje ct")
set marchivo=mfso.OpenTextFile(Server.MapPath(strPhysi calPath))
strBody=marchivo.readall
set marchivo=nothing
remitente=request.form("mail")
nombre=request.form("nombre")
strBody=replace(strBody,"mail",remitente)
'mail es el campo a sustituir en plantilla.htm
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "[email protected]"
objMail.From = remitente
objMail.Bcc = ""
objMail.Subject = "Prueba"
objMail.Body = strBody
objMail.BodyFormat= 0
objMail.MailFormat= 0
objMail.Importance = 2
objMail.Send
Set objMail = Nothing
response.redirect ("http://www.midominio.com")
%>
