Sin duda una de las cuestiones que más me habéis enviado al buzón. Pues aquí está. Tenéis que saber que vamos a utilizar el objeto Collaborative Data Objet (CDO) de Microsoft. La mala noticia es que no se puede utilizar con el PWS, puesto que no tenemos servidor de correo. Sólo funciona con Windows NT o Windows 2000, y con el SMTP (envío de correo electrónico) debidamente configurado.

Si éste es tu caso, ¡adelante!

¿Tan fácil?

Esto es lo que váis a decir cuando terminéis de leer. Enviar correo electrónico con CDO es sumamente sencillo, y para los que hayáis utilizado algún programa de correo en modo texto (como pine en UNIX) más aún.

Aquí tenéis el código, ahora os comento cositas:

<%

'Vamos a mandar un mail!
Dim sDestintatario, sAsunto, sCuerpo
Dim oMail	'el objeto CDO

sAsunto="E-Mail de prueba desde ASP"

'Creamos el cuerpo con varias líneas para facilitar la lectura
sCuerpo = "Este es mi primer mensaje enviado desde ASP." & VbCrLf
sCuerpo = sCuerpo & "Acabaré gestionando una lista de correo algún día!" & VbCrLf
sCuerpo = sCuerpo & VbCrlf & VbCrLf & "Ah! Lo aprendí en www.aspfacil.com"

sDestinatario="alguien@algunsite.com"

'Enviamos el email
set oMail=Server.CreateObject("CDONTS.NewMail")

'Establecemos las propiedades del objeto
oMail.From = "ASPFácil ejemplo de Mail " 'Pon aquí tu mombre y dirección
oMail.To = sDestinatario
oMail.Subject = sAsunto
oMail.Body = sCuerpo

' Enviamos el email!
oMail.Send

set oMail = nothing
Response.Write ("Mensaje enviado.")

%>

¡Y ya está! Un par de apuntes:

• Para enviar email con HTML, hay que especificar oMail.BodyFormat=0, que indica que el cuerpo del mensaje contiene HTML. Además, hay que añadir oMail.MailFormat=0 porque sino Outlook da ciertos problemas. Después incluid marcas HTML en el cuerpo y ya está.
• Si quisiéramos controlar más nuestro mail, sabed que existen estas otras propiedades:
  • oMail.Cc = "yo@misitio.com" envía una copia (carbon copy) a la dirección que especifiquemos.
  • oMail.Bcc = "el@susitio.com" envía una copia "ciega" (blind carbon copy) que no aparece en la lista de destinatarios del mensaje.
  • oMail.Importance = 1 envía el mail con urgencia (0=Baja, 1=Normal, 2=Alta).
  • oMail.AttachFile "c:\MisDocumentos\archivo.doc", "Hoja de Gastos" adjunta el fichero "archivo.doc" con el nombre "Hoja de Gastos".

Un saludo,
MOS

>> ¿Quieres saber cuándo se publicarán nuevos artículos? ¡Suscríbete al Boletín de ASPFácil! <<

>> Comparte tus dudas y comentarios sobre este artículo en el foro Artículos de ASPFácil <<

(Arriba)