ASP utiliza CDOSYS para 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.
Utilizar CDOSYS para enviar correo electrónico
CDO (Collaboration Data Objects) es una tecnología de Microsoft, diseñado para simplificar la creación de aplicaciones de comunicaciones.
CDOSYS es un componente integrado en ASP. Le mostraremos cómo utilizar el componente ASP para enviar correo electrónico.
CDONTS ¿cómo?
Microsoft tiene CDONTS Windows 2000, Windows XP y Windows 2003 son eliminados. Si ya utiliza CDONTS la aplicación ASP, que necesita para actualizar su código, y el uso de la nueva tecnología de CDO.
Ejemplo de CDOSYS
Enviar mensajes de texto e-mail:
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 correo electrónico de texto con campos CCO 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 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 contenido de una página de correo electrónico HTML de un sitio:
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 contenido de una página en su ordenador en un archivo en HTML e-mail:
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 correo electrónico de texto con archivos adjuntos:
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
%>
Utilizar un servidor remoto para enviar un texto del correo electrónico:
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
%>