09/08/2006, 11:10
|
| | | Fecha de Ingreso: junio-2006
Mensajes: 104
Antigüedad: 18 años, 10 meses Puntos: 1 | |
| continuamos con el mail
Aquí te pongo un codigo que encontre, hace unos meses lo utilice para el envio de formulario via mail.
forma.htm
Código:
<html>
<head>
<title>Forma de Contácto</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form" method="post" action="forma.asp">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="95" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Nombre:</font></b></div>
</td>
<td width="161" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="nombre" size="20" maxlength="50">
</font></b></div>
</td>
<td width="74" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">E-Mail:
</font></b></div>
</td>
<td width="170" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="correo" size="20" maxlength="50">
</font></b></div>
</td>
</tr>
<tr valign="top">
<td width="95" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Empresa:</font></b></div>
</td>
<td width="161" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="empresa" size="20" maxlength="50">
</font></b></div>
</td>
<td width="74" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Teléfono:</font></b></div>
</td>
<td width="170" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="telefono" size="20" maxlength="50">
</font></b></div>
</td>
</tr>
<tr valign="top">
<td width="95" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Asunto:</font></b></div>
</td>
<td colspan="3" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<select name="asunto">
<option>Sugerencia</option>
<option>Comentario</option>
<option>Queja</option>
<option>Cotizacion</option>
<option selected>Seleccione...</option>
</select>
</font></b></div>
</td>
</tr>
<tr valign="top">
<td width="95" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Comentarios:</font></b></div>
</td>
<td colspan="3" height="34">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<textarea name="comentarios" cols="45" rows="3"></textarea>
</font></b></div>
</td>
</tr>
<tr valign="top">
<td colspan="4" height="34">
<div align="center"><br>
<input type="submit" name="envia" value="Enviar Forma">
<input type="reset" name="borrar" value="Borrar Datos">
</div>
</td>
</tr>
</table>
</form>
</body>
</html>
forma.asp
Código:
<%
'Modificar este valor con su direccion de correo a la que se enviara el formulario
var_destinatario = "[email protected]"
'No es necesario modificar el codigo restante
'Creacion de variables para almacenar los campos del formulario
var_nombre = Request.Form("nombre")
var_correo = Request.Form("correo")
var_empresa = Request.Form("empresa")
var_telefono = Request.Form("telefono")
var_asunto = Request.Form("asunto")
var_comentarios = Request.Form("comentarios")
'Creacion del cuerpo del mensaje
var_mensaje = "Mensaje enviado desde el formulario web: " & nombre & chr(10) & chr(10)_
& "Nombre: " & var_nombre & chr(10)_
& "Empresa: " & var_empresa & chr(10)_
& "Telefono: " & var_telefono & chr(10)_
& "Correo Electronico: " & var_correo & chr(10) & chr(10)_
& "Asunto: " & var_asunto & chr(10)_
& "Comentarios: " & var_comentarios
'Procesamiento del envio de correo
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.From = var_nombre & "<" & var_correo & ">"
Mailer.To = var_destinatario
Mailer.Subject = var_asunto
Mailer.Body = var_mensaje
Mailer.BodyFormat = 1
Mailer.MailFormat = 1
Mailer.Importance = 2
Mailer.Send
set Mailer = nothing
%>
<html>
<head>
<title>Gracias por sus Comentarios</title>
</head>
<body bgcolor="#FFFFFF">
<div align="center">
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#0000FF"><b>Gracias
por enviarnos sus comentarios.</b></font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Nos pondremos
en contacto con usted a la brevedad.</font></p>
</div>
</body>
</html>
Saludos, luego avisas que pasa con eso. |