JuanRAPerez
Queria agradecerte por la informacion que me has pasado.
Ya lo probe y funciona perfecto.
Por si a alguien le sirve de ayuda les dejo el codigo
Código:
<%
fName = Server.MapPath("testMail\PiezaNuevo.htm")
Set fso = CreateObject("Scripting.FileSystemObject")
Set archivo = fso.OpenTextFile(Fname)
mensaje = archivo.readall
archivo.close
Set archivo = Nothing
Set fs = Nothing
StrMensaje = mensaje
StrMensaje = replace(StrMensaje,"{1}",rs("loquesea"))
'/**************************************
' Envio Mail
'/*************************************
Set oMail = Server.CreateObject("CDO.Message")
oMail.From = "[email protected]"
oMail.To = "[email protected]"
oMail.Subject = "asunto"
oMail.HTMLBody = StrMensaje
oMail.Send
Set oMail = Nothing
%>
Nuevamente Muchas gracias
Atte Gustavo