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

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

Your ads will be inserted here by

Easy Plugin for AdSense.

Please go to the plugin admin page to
Paste your ad code OR
Suppress this ad slot.

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

Your ads will be inserted here by

Easy Plugin for AdSense.

Please go to the plugin admin page to
Paste your ad code OR
Suppress this ad slot.


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

 

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.

ACEPTAR
Aviso de cookies