Si deseamos que, al pulsar el botón de envío de un formulario, se manden los datos por E-mail utilizando el servidor y sin estar supeditados a la configuración del cliente para saber si ciertamente ese mensaje se pudo enviar, debemos utilizar alguna tecnología de programación de páginas del lado del servidor. En este artículo vamos a presentar un ejemplo sobre cómo hacer esta tarea con ASP.
A continuación vamos a dejar un ejemplo de como poder enviar un correo con este componente a través de un formulario en tu web, para ello vamos a crear dos archivos.
El primero llamado index.asp tiene el siguiente código:
<% if request.form="" then %> <h1>Formulario ASP para envio de mails</h1> <table> <tr> <form action="enviar.asp" method="POST"> <td>Nombre:</td> <td><input type="Text" name="nombre" size="12" maxlength="200"></td> </tr> <tr> <td>Email:</td> <td><input type="Text" name="email" size="12" maxlength="200"></td> </tr> <tr> <td></td><td><input type="submit" value="Enviar"></td> </form> </tr> </table> <% else response.write "Gracias por rellenar el formulario. Se ha enviado correctamente." end if %>
Por ultimo para procesar el formulario creamos el archivo con nombre enviar.asp y le ponemos el siguiente código:
<%
set mail = server.createObject("Persits.MailSender")
strHost = "smtp.tudominio.com"
mail.host = strHost
mail.from = "cuenta@tudominio.com"
mail.addAddress "cuenta@destino.com"
mail.Username = "cuenta@tudominio.com"
mail.Password = "ClaveDeTuCuenta"
mail.TLS = True
mail.Port = 25
nombre = request.form("nombre")
email = request.form("email")
cuerpo = "Formulario recibido" & VBNEWLINE & VBNEWLINE
cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE
cuerpo = cuerpo & "Email: " & email
Mail.Subject = "Envio de Asp Persist Mail"
mail.body = cuerpo
On Error Resume Next
mail.send
if Err ><0 then
response.write "Error, no se ha podido completar la operación"
else
response.write "Gracias por rellenar el formulario. Se ha enviado correctamente." end if
%>
