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

<<>>

Versión 1
estrellaestrellaestrellaestrellaestrella(4)

Publicado el 4 de Febrero del 2002gráfica de visualizaciones de la versión: Versión 1
22.094 visualizaciones desde el 4 de Febrero del 2002
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 (4)

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
7 de Enero del 2016
estrellaestrellaestrellaestrellaestrella
Exelente!
Responder
omar
22 de Febrero del 2017
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder
Eduardo
19 de Octubre del 2018
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder

Comentar la versión: Versión 1

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

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s27