 |
|
|
|
|
|
Portada | Monotemáticos | Secciones | Desarrolladores | Comunidad | Servicios | Servicios profesionales | RSS | |
||
|
||||
|
|
|||
 |
|
 |
||
|
||||
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.
13/12/02 - 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. |
+ 1 categoria relacionada
+ 4 comentarios no revisados
| Autoría, licencia y acciones sobre este artículo | ||||||
|
Informe de Fernando Ortiz*
URL: http://www.laventanita.net/ Atención: Copyright. Este artículo no se puede reproducir sin la autorización expresa del autor. * Para consultas técnicas utilizar la lista de correo.
|
| Comentarios sin revisar |
| Entre los comentarios no revisados puede haber algunos interesantes que se hayan enviado recientemente. |
 | Ver los comentarios no revisados |
 | Añadir un comentario del artículo |
| Enlaces: |
| Maestrosdelweb |
Ir arriba
Lectura recomendada  Compra este libro en Agapea, la librería urgente a domicilio. |
||||||||
Tienda DesarrolloWeb
