Tutorial
  Código para formulario en ASP
 
CuteFTP® | Dreamweaver®
     
  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
%>