<%@ LANGUAGE = VBScript%>
<%@ Import Namespace="System.Web.Mail" %>
<%
dim objMail
objMail = Server.CreateObject ("CDO.Message")
objMail.From = Request.form("de")
objMail.To = Request.form("para")
objMail.Subject = Request.form("titulo")
objMail.HTMLBody = Request.form("com")
objmail.Send
Response.Write ("Se envio el correo por ASP NET")
Response.Redirect ("mail.aspx")
%> |