ASP Usar CDOSYS Enviar correo electrónico

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

Enviar correo electrónico con CDOSYS

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

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

¿Qué hay de CDONTs?

Microsoft ha retirado CDONTs en Windows 2000, Windows XP y Windows 2003. Si ya ha utilizado CDONTs en sus aplicaciones ASP, necesita actualizar su código y utilizar la nueva tecnología CDO.

Ejemplo de uso de CDOSYS

Enviar correo electrónico de texto:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

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

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.Bcc="[email protected]"
myMail.Cc="[email protected]"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

Enviar un correo electrónico HTML:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail=nothing
%>

Enviar un correo electrónico HTML cuyo contenido sea una página web de un sitio web:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.CreateMHTMLBody "http://www.w3cschool.cc/asp/"
myMail.Send
set myMail=nothing
%>

Enviar un correo electrónico HTML cuyo contenido sea una página web de un archivo en su computadora:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%>

Enviar un correo electrónico de texto con un archivo adjunto:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:mydocumentstest.txt"
myMail.Send
set myMail=nothing
%>

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

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>

Otras extensiones