Envio de emails con CDONTS
A través de las páginas ASP es posible enviar emails,
en la actualidad existen varios componentes para realizar esta tarea, pero el que viene
incluido con NT es el objeto CDONTS. Este requiere tener instalado en el servidor, el
Microsoft SMTP Service instalado.
Lo bueno que el objeto CDTONS no necesita que
especifiquemos algún servidor SMTP para poder enviar emails, sino que toma el del mismo
servidor.
El proceso es sencillo, vamos a ver un ejemplo de como
enviar los datos de un formulario a un email predeterminado:
formulario.asp
<form method="post"
action="enviar.asp">
<br><b>Para:</b> <input name="para" type="text"
size="30">
<br><b>Asunto: <input name="asunto" type="text"
size="30">
<br><b>Mensaje:</b>
<br><textarea name="mensaje" cols=40 rows=10></textarea>
<br><input type="submit" value="Enviar">
</form>
El formulario envía los datos a la página enviar.asp
para que este los procese y envíe el email. El código a utilizar para enviarlo a través
de CDTONS es:
enviar.asp
<%
' Recogemos los datos del formulario
para = TRIM( Request( "para" ) )
asunto = TRIM( Request( "asunto" ) )
mensaje = TRIM( Request( "mensaje" ) )
' Comprobamos y enviamos el mail
IF para <> "" THEN
Set myMail = Server.CreateObject( "CDONTS.Newmail" )
myMail.From = "webmaster@webexperto.com"
myMail.To = para
myMail.Subject = asunto
myMail.Body = mensaje
myMail.Send
Set myMail = Nothing
Response.Write "Email enviado con éxito"
ELSE
Response.Write "Debes incluir una dirección de email"
END IF
%>
|