| Tutorial |
| Código para formulario en ASP |
 |
|
| Nuestros servidores tienen instalado el CDO. Enviamos un pequeño y básico tutorial al respecto. A partir de windows 2000, microsoft ha cambiado el sistema de envío de datos de CDONTS a CDO, nos disponemos a explicar la creacion y destruccion del objeto de email con su respectiva declaracion de variables: |
||
|
||
|
Dim ObjetoMail ' Creamos el CDO Set ObjetoMail=CreateObject("CDO.Message") ' ... ' Destruimos el CDO Set ObjetoMail=Nothing %> |
||
 |
||
 |
El objeto incluye como propiedades, los campos mas comunes para un email, como pueden ser: | |
| To - Cadena que contiene el email del destinatario From - Email del emisor del mensaje Subject - Asunto del email enviado Cc - Email o emails donde enviar copia Bcc - Email o emails donde enviar copia oculta TextBody - Cuerpo en texto plano del mensaje HTMLBody - Cuerpo en formato HTML del mensaje CreateMHTMLBody - Página HTML a enviar como cuerpo del mensaje en formato HTML AddAttachment - Archivo adjunto al mensaje enviado |
||
|
||
| Veamos un ejemplo de cómo usaremos este objeto para enviar un email en formato HTML a un destinatario: | ||
| <% Option Explicit ' Declaramos las variables Dim ObjetoMail ' Creamos el CDO Set ObjetoMail=CreateObject("CDO.Message") ' Configuramos el email ObjetoMail.To = " usuario@miweb.com " ObjetoMail.From = "PWeb < ne@pweb.net >" ObjetoMail.Subject = "Asunto del mensaje" ObjetoMail.HTMLBody = "Soy el cuerpo del <b>mensaje</b>" 'especificamos la configuracion de envio en particular ObjetoMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjetoMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail arroba unlugar.com" ObjetoMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjetoMail.Configuration.Fields.Update ' Enviamos el mensaje ObjetoMail.Send ' Destruimos el CDO Set ObjetoMail=Nothing %> |
||
|
||
| Este es un ejemplo sencillo que podremos configurar ampliamente para mandar emails a nuestros visitantes para recuperar contraseñas, avisar de mensajes y contenidos nuevos... hemos visto como usamos. HTMLBody para definir el cuerpo del mensaje, pero si queremos enviar un mensaje en texto plano, usaremos TextBody. Asimismo, si queremos enviar el email en formato HTML pero queremos que el cuerpo del email sea un determinado documento HTML, entonces usaremos CreateMHTMLBody en lugar de HTMLBody: |
||
| <% Option Explicit Dim ObjetoMail Set ObjetoMail=CreateObject("CDO.Message") ObjetoMail.To = " usuario@miweb.com " ObjetoMail.From = "PWeb < ne@pweb.net >" ObjetoMail.Subject = "Asunto del mensaje" ObjetoMail.CreateHTMLBody = " http://w3c.com " ObjetoMail.Send Set ObjetoMail=Nothing %> |
||
|
||
| Vamos a ver cómo podemos añadirle un archivo adjunto a este email gracias al método AddAttachment: | ||
| <% Option Explicit Dim ObjetoMail Set ObjetoMail=CreateObject("CDO.Message") ObjetoMail.To = " usuario@miweb.com " ObjetoMail.From = "PWeb < ne@pweb.net >" ObjetoMail.Subject = "Asunto del mensaje" ObjetoMail.CreateHTMLBody = " http://w3c.com " ObjetoMail.AddAttachment "c:\mydocuments\prueba.txt" ObjetoMail.Send Set ObjetoMail=Nothing %> |
||
