Enviar correos electrónicos con CDOSYS en ASP

CDOSYS es un componente integrado en ASP. Este componente se utiliza para enviar correos electrónicos a través de ASP.

Enviar correos electrónicos utilizando CDOSYS

CDO (Collaboration Data Objects) es una tecnología de Microsoft diseñada para simplificar la creación de programas de comunicación.

CDOSYS es un componente integrado en ASP. Le mostraremos cómo usar este componente para enviar correos electrónicos.

¿Cómo están los CDONTs?

Microsoft ha eliminado CDONTs en Windows 2000, Windows XP y Windows 2003. Si aún está utilizando CDONTs en aplicaciones, debe actualizar el código y utilizar la nueva tecnología CDO.

Usar la instancia de CDOSYS

Enviar correo electrónico:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando correo electrónico con CDO"
myMail.From="mymail@mydominio.com"
myMail.To="alguien@somedominio.com"
myMail.TextBody="Este es un mensaje."
myMail.Send
set myMail=nothing
%>

Enviar correo electrónico de texto con campos Bcc y CC:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando correo electrónico con CDO"
myMail.From="mymail@mydominio.com"
myMail.To="alguien@somedominio.com"
myMail.Bcc="otroalguien@somedominio.com"
myMail.Cc="otroalguien2@somedominio.com"
myMail.TextBody="Este es un mensaje."
myMail.Send
set myMail=nothing
%>

Enviar correo electrónico HTML:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando correo electrónico con CDO"
myMail.From="mymail@mydominio.com"
myMail.To="alguien@somedominio.com"
myMail.HTMLBody = "<h1>Este es un mensaje.</h1>" 
myMail.Send
set myMail=nothing
%>

Enviar un correo electrónico HTML que contiene una página web desde un sitio web:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando correo electrónico con CDO"
myMail.From="mymail@mydominio.com"
myMail.To="alguien@somedominio.com"
myMail.CreateMHTMLBody "http://www.codew3c.com/asp/" 
myMail.Send
set myMail=nothing
%>

Enviar un correo electrónico HTML que contiene una página web desde el archivo de la computadora:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando correo electrónico con CDO"
myMail.From="mymail@mydominio.com"
myMail.To="alguien@somedominio.com"
myMail.CreateMHTMLBody "file://c:/misdocumentos/test.htm" 
myMail.Send
set myMail=nothing
%>

Enviar un correo electrónico con adjunto:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando correo electrónico con CDO"
myMail.From="mymail@mydominio.com"
myMail.To="alguien@somedominio.com"
myMail.TextBody="Este es un mensaje."
myMail.AddAttachment "c:\misdocumentos\test.txt"
myMail.Send
set myMail=nothing
%>

Enviar un correo electrónico de texto utilizando el servidor remoto:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando correo electrónico con CDO"
myMail.From="mymail@mydominio.com"
myMail.To="alguien@somedominio.com"
myMail.TextBody="Este es un mensaje."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'IP o nombre del servidor SMTP remoto'
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'puerto del servidor'
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>