Código Fuente >> asp >> Enviar por correo la información de un formulario

Comunidad de Programadores

LWP >> Código Fuente >> asp >> Enviar por correo la información de un formulario



	Información

Cursos

Biblioteca de Temas

Código Fuente

Diccionario

Noticias/Artículos

Encuestas/Estadísticas


	Buscar

Buscador para Prog.

Buscar en Internet

Direcciones Interés


	Servicios

Foros de Consulta

Preguntas/Respuestas

Tablón de Notas

Drivers

Iconos y Cursores

Postales

Libros


	Programadores

Programadores

Ofertas de Trabajo

Lista de Correo


	Programas

Programas/Utilidades

Nuestros Programas

Solicitudes


	Otros

Mercadillo

Chat

Colaboradores

Tienda OnLine

Contactar

Enviar por correo la información de un formulario

Comentarios: 1

100%

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.

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.

<%
'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
%>