Formularios de Correo simples en ASP

Invitado

Un servicio mínimo de una web para poder comunicarse con sus usuarios. O con otros miembros de la web. Es el servicio de correo.

Los lenguajes de programación de scripts para webs, permiten crear mensajes de correo como desde el cliente de nuestro ordenador.
Para ello, el servidor o sitio web, tiene que tener habilitado el servicio de mail. Y no estar limitado.

Un sencillo ejemplo ASP de cómo podemos recibir y enviar un correo desde un formulario

Enviar un correo desde un formulario web utilizando el servicio ASPEMAIL

<%
'podemos llamar a este trozo de código mail.asp
Dim strEmail, strName, strComments, ServicioMail
' recibimos los datos desde un formulario con los nombres de los campos input igual que los de las comillas. Email,Nombre,Comentarios
' los cargamos en unas variables auxiliares
strEmail = request.form("Email")
strName = request.form("Nombre")
strComments = request.form("Comentarios")

Set ServicioMail = Server.CreateObject("Persits.MailSender") 'Crear un Objeto de correo
ServicioMail.Host = "Mail.tudominio.com" 'servidor mail del sitio. Cambiar si tiene otro nombre
ServicioMail.From = strEmail 'correo del remitente
ServicioMail.AddAddress "correo del receptor"
ServicioMail.Subject = "Encabezado del correo"
ServicioMail.Body = "Email: " & strEmail & vbCrLf & "Name: " & strName & vbCrLf & "Comments: " & vbCrLf & strComments 'construir el cuerpo del mensaje
On Error Resume Next
ServicioMail.Send 'Enviar el correo
Set ServicioMail = Nothing 'Vaciar el objeto
IF Err <> 0 THEN Response.Write "Sorry, there was an error and your email was not sent." & Err.Description
END IF
'Ahora, se suele redireccionar a otra página de gracias por ejemplo
%>

Enviar un correo desde un formulario web utilizando el servicio ASPMAIL
<%
'podemos llamar a este trozo de código mail.asp
Dim strEmail, strName, strComments, ServicioMail
' recibimos los datos desde un formulario con los nombres de los campos input igual que los de las comillas. Email,Nombre,Comentarios
' los cargamos en unas variables auxiliares
strEmail = request.form("Email")
strName = request.form("Name")
strComments = request.form("Comments")

Set ServicioMail = Server.CreateObject("SMTPsvg.Mailer")
ServicioMail.FromAddress= strEmail 'correo del remitente
ServicioMail.RemoteHost = "yourdomain.com" ' no es necesario
ServicioMail.AddRecipient "correo del receptor"
ServicioMail.Subject = "Encabezado del correo"
ServicioMail.BodyText = "Email: " & strEmail & vbCrLf & "Name: " & strName & vbCrLf & "Comments: " & vbCrLf & strComments 'cuerpo
'no hay posibilidad de hacer nada mas
'Ahora, se suele redireccionar a otra página de gracias por ejemplo
%>



<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Formulario de Correo</title>
</head><body>
<form name="formulario" method="post" action="mail.asp">
Nombre
<input name="nombre" type="text" size="42">
<br>
Email
<input name="email" type="text" size="42">
<br>
Comentarios<br>
<textarea name="comentarios" cols="64" rows="3"></textarea>
<br>
<input type="submit" name="Submit" value="Enviar">
</form>
</body></html>