Ejemplo de CDOMail


http://www.asptutor.com

Uso del objeto CDO (Envio de e-mails con asp)

Existen varios objetos ActiveX para enviar e-mail desde asp, en nuestro caso vamos a usar CDO, que es el objeto que nos proporciona Microsoft con NT e IIS4.

Lo primero que necesitamos es un formulario que llame a nuestra página asp con los datos necesarios para mandar el e-mail (a estas alturas ya no voy a daros los fuentes HTML de un formulario, quiero suponer que si has llegado hasta aquí eso ya te lo sabes).

En nuestra página asp recibiremos esos datos mediante el objeto request y se los pasaremos a una instancia del objeto CDO.

Las principales propiedades del objeto CDO son:

From Origen del e-mail
To Destino del e-mail
Subject Asunto del e-mail
Body Texto del e-mail
Cc Con copia a ...
Bcc Con copia oculta a ...
Importance Urgencia 0=Baja, 1=Normal, 2=Alta
AttachFile Fichero anexado

Los principales métodos del objeto CDO son:

Send Envía el mensaje

 

Ejemplo:

<%

'Asignamos los valores recibidos del formulario a las variables
Origen = Request.Form("Origen")
Destino = Request.Form("Destino")
Asunto = Request.Form("Asunto")
Mensaje = Request.Form("Mensaje")

'

'Hasta aqui los datos fundamentales, si ademas necesitamos enviar ficheros
'  copias usaremos el resto de las propiedades

Copiaa = "smaug@metropoli2000.com;pepe@uscom.com
'copias a otros usuarios separados por ;

Anexo = "c:\documentos\archivo.txt"
'ficheros anexados


'Creamos una instancia del objeto CDO
Set ObjetoCDO = Server.CreateObject("CDONTS.NewMail")

'Asignamos las propiedades al objeto
ObjetoCDO.From = Origen 
ObjetoCDO.To = Destino
ObjetoCDO.Subject = Asunto
ObjetoCDO.Body = Mensaje
ObjetoCDO.Cc = Copiaa
ObjetoCDO.AttachFile  Anexo


'Enviamos el e-mail
ObjetoCDO.Send

'Destruimos el objeto
Set ObjetoCDO = Nothing

%>


Atras

Siguiente