Uso de CDONTS para script de recomendar a un amigo en 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.

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

Enviar a un amigo

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

%>