<%
'Plantilla ASP por Facundo Abbiatti
Dim oMail, sDestino, sRemite, sBody, accion
sDestino=Trim(CStr(Request.Form("Para")))
sRemite=Trim(CStr(Request.Form("De")))
sBody=CStr(Request.Form("Cuerpo"))
if (sDestino = "" or sRemite = "") then
Formulario
else
MandarMail
end if
'========================================================================================
Sub Formulario
%>
<%
End Sub
'========================================================================================
Sub MandarMail
set oMail=Server.CreateObject("CDONTS.NewMail")
oMail.To=sDestino
oMail.From=sRemite
oMail.Body=sBody
oMail.Send
set oMail=nothing
Response.Write("El correo electrónico ha sido enviado correctamente a "&sDestino&".")
End Sub
%>
|
 |
