Envío de correo electrónico utilizando CDOSYS en ASP

Enviando correo electrónico desde una aplicación web ASP es una tarea bastante sencilla. Si aloja su aplicación web ASP en un servidor que ejecuta Windows 2000 o posterior, encontrará que usando CDOSYS (Collaboration Data Objects) es su mejor opción para enviar correos electrónicos desde páginas ASP. El siguiente ejemplo de ASP se puede utilizar para enviar correo electrónico desde una página ASP.

Podemos comenzar a construir la página ASP creando un Message y Configuration objeto.

<%
Set msg = Server.CreateObject("CDO.Message")
Set conf= Server.CreateObject("CDO.Configuration")
%>

A continuación, establezca el configuration objeto hacia arriba como se muestra a continuación. Deberá proporcionar el valor correcto para el smtpserver artículo. Estos dos elementos son generalmente la información mínima que se requiere.

Sin embargo, dependiendo de la configuración de su servidor SMTP, debe proporcionar un puerto específico, habilitar SSLo autenticar. Al final de este tutorial, se enumeran algunos elementos de configuración adicionales.

<%
confURL = "http://schemas.microsoft.com/cdo/configuration/"
with conf
    .Fields.Item(confURL & "sendusing") = 2
    .Fields.Item(confURL & "smtpserver") = "smtp.mailserver.com"
    .Fields.Update
end with
%>

El siguiente paso es especificar los destinatarios. Puedes enviar a varios destinatarios separando las direcciones con un punto y coma, como se muestra con el To propiedad a continuación.

<%
with msg
    .From = "[email protected]"
    .To = "[email protected]; [email protected]"
    .Cc = "[email protected]"
    .Bcc = "[email protected]"
end with
%>

Es hora de establecer el asunto y el cuerpo del texto. Para enviar un correo electrónico de texto sin formato, utilice el TextBody método. Para enviar un correo electrónico HTML, utilice el HTMLBody método.

<%
with msg
    .Subject = "My message subject"
    .TextBody = "This is a plain text email"
    .HTMLBody = "<em>This is an HTML email</b>"
end with
%>

El paso final es vincular la configuración al mensaje CDO y enviar el mensaje de correo electrónico.

<%
msg.Configuration = conf
msg.Send
Set conf = Nothing
Set msg = Nothing
%>

Aquí hay algunos elementos de campo opcionales útiles adicionales que puede necesitar usar si su servidor SMTP requiere un puerto diferente, un canal seguro y/o autenticación.