Este es un ejemplo completo y sencillísimo de cómo enviar un correo usando el componente CDONTS de IIS.
Dicho componente está presente en muchas de las versiones de Windows en su modo servidor, como Windows NT 4 o Windows 2000 , pero no así en Windows 98, por no disponer de un servidor de envío de correo (SMTP). Atención, que en Windows NT y 2000 habría que tener el servidor SMTP correctamente configurado y los usuarios de Windows XP, que no disponen de esa herramienta desde el principio, aunque podrían obtenerla desde otro sistema Windows
Script para recomendar a un amigo
El ejercicio siguiente es un script que permite mandar un email desde nuestra página a un amigo del visitante que lo desee. Es uno de los típicos sistemas de "recomienda a un amigo".
Los datos para rellenar el mail, los ponemos a mano. Si se quiere enviar los datos de un formulario sólo tenemos que recogerlos con instrucciones tan sencillas como estas:
cBody = Request.Form("Body")
cPara = = Request.Form("Amiguete")
Y ahora el ejemplo, en el que se muestra como enviar a un amigo, una copia y una copia oculta, lo común.
<%@ Language=VBScript%>
<html>
<head>
<title>Enviar a un amigo</title>
</head>
<body><%
Dim cBody, n
For Each n In Request.Form
cBody = cBody & n & ": " & Request.Form(n) & chr(13)
Next
Set oCDO = Server.CreateObject("CDONTS.NewMail")
'Asignamos las propiedades al objeto
oCDO.From = "fernan@tudominio.com"
oCDO.To = "foc@tudominio.com"
oCDO.Subject = "Asunto del mensaje"
oCDO.Body = cBody
'oCDO.Cc = "resal@tudominio.com;webmaster@tudominio.com"
oCDO.Bcc = "quinqui@tudominio.com"
'oCDO.MailFormat = 0
oCDO.Send
Set oCDO = Nothing 'Liberar...
'Mostramos mensaje de que seenvió con éxito.
Response.Write "¡Se envió Ok, qué fácil!!"
%>
</body>
</html>
Bueno, amigos, espero que les pueda servir, como ven, hay poco que programar.
|
Nombre del Tutorial
Visitas
Ir arriba