CDO, AspEmail - importar htm y embeber con parametros.

[a n g e l u s]

HOLA GUSTABOVD, veamos si esta solucion te sirve.

APLICABLE PARA ASPMAIL

Código:

<%
Destino = "[email protected]"
Servidor = "111.111.111.111" '->ip o dominio del servidor de correo
Titulo = "ESTE ES EL ASUNTO"


'Asignamos los valores recibidos del formulario a las variables
Nombre	= Request("Name")
Email	   = Request("Email")
Mensaje	= Request("Message")
IP 	     = request.ServerVariables("REMOTE_ADDR")

'Creamos una instancia del objeto ASPMAIL
Set Mail = Server.CreateObject("Persits.MailSender")


' Creamos el cuerpo del mensaje
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>" 
strBody = strBody & "Mi nombre es: "
strBody = strBody & "<b>" & nombre & "</b><br><br>"
strBody = strBody & "Mi e-mail es: "
strBody = strBody & "<b>" & email & "</b><hr>"
strBody = strBody & "Mi mensaje es: <br>"
strBody = strBody & Mensaje & chr(10)
strBody = strBody & "<br><br><br>"
strBody = strBody & "<center>Ip del Computador donde se envio el Mensaje: <b>"& ip &"</b></center><br>" 
strBody = strBody & "</font><hr>" 
strBody = strBody & "<center><table width=500><tr bgcolor=#ececec><td align=center>"
strBody = strBody & "<b><font color=#993300 size=1 face=Tahoma>"
strBody = strBody & "Diseño y Programación <a href=http://www.modulonet.cl style=text-decoration:none;cursor:hand>ModuloNet.cl</a><br>"
strBody = strBody & "</font></b>"
strBody = strBody & "</td></tr></table>"
strBody = strBody & "</center>" 
'response.write strBody

if 10 = 10 then
'Asignamos las propiedades al objeto con ASPMAIL
Mail.Host = servidor
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.From = Email
Mail.FromName = Email ' Opcional
Mail.Subject = Nombre&titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino

On Error Resume Next

Mail.Send

' El control del error es con ASPMAIL
if isnull(session("error")) or session("error") = "" then
	If Err <> 0 Then
		session("error") = 1
      	Response.Write "&unerror=Error, envielo mas tarde " & Err.Description &"&"
	Else
		session("error") = 0
		Response.Write  "&unerror=Mensaje enviado correctamente.&"
	End If
else
	If session("error") <> 0 Then
      	Response.Write "&unerror=Error, envie el mensaje mas tarde. " & Err.Description &"&"
	Else
		Response.Write  "&unerror=Mensaje enviado correctamente.&"
	End If
end if

'Destruimos el objeto con aspmail
Set Mail = Nothing

end if
%>

espero que te sirva