Código de ASP - Enviar por correo la información de un formulario

<<>>
Imágen de perfil

Enviar por correo la información de un formulariográfica de visualizaciones


ASP

estrellaestrellaestrellaestrellaestrella(2)
Publicado el 04 de Febrero del 2002 por Administrador
19.417 visualizaciones desde el 04 de Febrero del 2002. Una media de 28 por semana
Este código, recibe la información de un formulario, y la envia el correo indicado. Es similar al CGI formmail.pl realizado en Perl.

Versión 1
estrellaestrellaestrellaestrellaestrella(2)

Publicado el 04 de Febrero del 2002gráfica de visualizaciones de la versión: Versión 1
19.418 visualizaciones desde el 04 de Febrero del 2002. Una media de 28 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Copia el código en un archivo denominado formmail.asp y ejecutalo desde el servidor, te indicara las opciones para su buen funcionamiento.
Tienes que modificar : correo1@correo1, correo2@correo2, .... por los correos que quieras permitir a traves de este archivo. Esto es para que nadie copie tu codigo, y lo utilice para enviar archivos a traves de el.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
<%
'www.lawebdelprogramador.com
if Request.QueryString()="" then
	%>
	<html>
	<head><title>FUNCIONAMIENTO DEL FORMMAIL.ASP</title></head>
	<body>
	<font face="Arial" size=2>
	Se tienen que enviar los siguiente parametros utilizando el metodo GET.
	<li>email = direccion de correo de quien envia el correo</li>
	<li>recipient = direccion de correo donde se envia el correo</li>
	<li>subject = titulo del correo</li>
	<li>redirect = direccion URL de la pagina que se tiene que mostrar una vez enviado el correo.</li>
	<P>Cualquier otra informacion recibida, aparecera en el cuerpo del correo.
	<P><form method="GET" action="formmail.asp">
	<br><input type="hidden" name="recipient" value="direccion de correo">
	<br><input type="hidden" name="subject" value="TITULO DEL MENSAJE">
	<BR><input type="hidden" name="redirect" value="pagina a mostrar al enviar el correo">
	<br>Direccion de correo <input type="text" name="email">
	<br><input type="submit" value="Enviar Correo">
	<br></form>
	<%
else
	if len(Request.QueryString("email"))>0 then
		if Request.QueryString("recipient")="correo1@correo1" or Request.QueryString("recipient")="correo2@correo2" or Request.QueryString("recipient")="correo3@correo3" or Request.QueryString("recipient")="correo4@correo4" or Request.QueryString("recipient")="correo5@correo5" or Request.QueryString("recipient")="correo6@correo6" then
			'recoge los valores
			For Each item In Request.QueryString()
				if item<>"recipient" and item<>"subject" and item<>"redirect" then
					txtcuerpo = txtcuerpo & item & " = " & Request.QueryString(item) & vbcrlf & vbcrlf
				end if
			Next
 
			Set objMail = Server.CreateObject("CDONTS.NewMail")
			objMail.From = Request.QueryString("email")
			objMail.To = Request.QueryString("recipient")
			objMail.Subject = Request.QueryString("subject")
			objMail.Body = txtcuerpo
			objMail.Send
			Set objMail = nothing
 
			if Request.QueryString("redirect")="" then
				Response.Redirect("http://www.lawebdelprogramador.com")
			else
				Response.Redirect(Request.QueryString("redirect"))
			end if
		else
			Response.Redirect("http://www.lawebdelprogramador.com")
		end if
	else
		if Request.QueryString("recipient")="niunafoto@hotmail.com" then
			Response.Redirect("http://orbita.starmedia.com/~niunafoto/opinion.htm")
		else
			Response.Redirect("http://www.lawebdelprogramador.com")
		end if
	end if
end if
%>



Comentarios sobre la versión: Versión 1 (2)

Pablo
14 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
No entendi nada tu código, creo que funciona pero no hace nada de lo que dice en la presentación o introducción al codigo fuente.

Malo.
Saludos
Pablo
Responder
Juan
07 de Enero del 2016
estrellaestrellaestrellaestrellaestrella
Exelente!
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s27