Uso de CDONTS para script de recomendar a un amigo en ASP

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%>

   

<%
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!!»

%>

Bueno, amigos, espero que les pueda servir, como ven, hay poco que programar.