¿Cómo enviar un mail con el componente CDO con autenticación?

18 May

Para el manejo de la app solo tendra contener dos faciles archivos.

Al 1° lo llamaremos mail.asp, en el cual definimos los inputs que pasarán al otro archivo
(cdo.asp) por “POST”.
El codigo para el 1° archivo es el siguiente:

<HTML>
<HEAD>
<TITLE>Prueba CDO para envio de Mails</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<center><h1>Prueba Envio de Mails con CDO</h1></center>
<font size="4" style="arial"><u> Ingreso de Datos</font></u>
<form action="cdo.asp" method="post">
<table>
<tr><td>From:</td><td><INPUT TYPE="text" NAME="de" ></td></tr>
<tr><td>To:</td><td><INPUT TYPE="text" NAME="para"></td></tr>
<tr><td>Subject:</td><td><INPUT TYPE="text" NAME="titulo"></td>
<tr><td>Comentario:</td><td><textarea cols="40" rows="5" NAME="com"></textarea><br>
<tr><td></td><td><INPUT TYPE="submit" NAME="accion" VALUE="Enviar email"></td>
</form>
<hr>
</BODY>
</HTML>

Ahora, bien. Una vez que se haya conformado el 1° archivo pasamos a armar el 2° que llevará el nombre cdo.asp

El codigo sería el siguiente:


<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")

'This section provides the configuration information for the remote SMTP server.

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = dos 'Envia el mensage usando la red (SMTP) thenetwork).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp_dominio" 'Servidor smtp del dominio
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Puerto
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Usar SSL(Certificado) (dejar FALSE)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' Tiempo de espera de conexion al servidor SMTP

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Tipo de autenticacion basica
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="cuenta_correo" ' Cuenta de Correo que va a autentificar
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="clave_correo" ' Clave correcta de la cuenta de correo que va a autentificar
ObjSendMail.Configuration.Fields.Update


ObjSendMail.To = Request.Form("para")
ObjSendMail.Subject = Request.Form("titulo")
ObjSendMail.From = Request.Form("de")

ObjSendMail.TextBody = Request.Form("com")

ObjSendMail.Send

Set ObjSendMail = Nothing
response.redirect ("mail.asp") ' Redirecciona a la pagina del formulario
%>

¡Esperamos esta información te haya sido de ayuda! Cualquier desconfianza comunicate con vuestro servicio de interés al usuario las 24hs los 365 días del año.


El blogger de Towebs



Recuerden que todo el contenido de este articulo tanto texto y multimedia pertenece originalmente a la fuente (enlace) que aparece arriba y no a PreciosHosting.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *