ASP - enviar formulario a Email

 
Vista:

enviar formulario a Email

Publicado por Cass (5 intervenciones) el 02/08/2001 20:13:25
Hola, cómo le puedo hacer para enviar los datos de un formulario a una direccion de correo. Se que la manera más sencilla es con mailto:
pero para eso se necesita tener una cuenta POP3 en la máquina donde la visiten. El hecho es que yo quisiera que cualquiera accediera a ella y enviara sus datos al email. He visto que algunos formularios utilizan una pagina CGI o ASP para procesar la informacion y después en un input utilizan la palabra "recipient" y a continuacion la direccion de correo.
Cómo se hace esto?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:enviar formulario a Email

Publicado por Esthela (9 intervenciones) el 02/08/2001 23:13:27
TE VOY A DAR UN EJEMPLO A VER SI TE SIRVE PRIMERO HACES TU FORMULARIO ASI, YA TU LE ACOMODAS LO QUE QUIERAS
<html>
<head>
</head>
<body>
<form method="post" action="mail.asp">
<p>Nombre:
<input type="text" name="nom">
</p>
<p>Empresa:
<input type="text" name="emp">
</p>
<p>Sugerencias:
<textarea name="sug" cols="35"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
<input type="reset" name="Submit2" value="Limpiar">
</p>
</form>
</body>
</html>

Y PARA MANDAR ELCORREO HACES ESTA PAGINA QUE SE LLAMARA MAIL.ASP
<HTML>
<HEAD>
<TITLE>ENVIAR MAIL</TITLE>
</HEAD>
<BODY>
<%
'Creación de variables para almacenar los campos del formulariopreviamente creas tu formulario
' donde iran los datos que enviaras pór correo

Productos= Request.Form("nuprod")
strTo = "[email protected]" ' Esta es una dirección que corresponda al servidor
strSubject = "Envio de sugerencias de: " & productos

strBody = "<html><body>"
strBody = strBody & "Este es un mensaje generado por el formulario:" &"<br><br>"
strBody = strBody & "Nombre: "& productos &"<br>"
'strBody = strBody & "Empresa: "& Empresa &"<br>"
'strBody = strBody & "Sugerencias: "& Sugerencias &"<br>"
strBody = strBody & "</body></html>"

Set objCDOMail = Ser
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar