> Manuales > Taller de ASP

Uso del componente de servidor CDONTS en ASP para el envío de correo electrónico con el servidor. Ejemplo de script para que los visitantes puedan recomendar la página a un amigo.

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, tal como se cuenta en la FAQ: CDONTS en Windows XP

Referencia: Podemos conocer otras opciones para el envío de correos desde el servidor con ASP en un artículo de DesarrolloWeb.com

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.

Referencia: Se puede consultar un artículo de ASP Fácil para conocer más funcionalidades del envío de correos con CDONTS. http://www.aspfacil.com/articulos/cdomail.asp

Disponemos de otro artículo en DesarrolloWeb.com que realiza un script con básicamente la misma funcionalidad, por si interesa ver otro punto de vista.

Fernando Ortiz

Manual