Ver Mensaje Individual
  #2 (permalink)  
Antiguo 21/10/2008, 21:32
capitank
Invitado
 
Mensajes: n/a
Puntos:
Respuesta: problema para enviar formulario por mail

mira que tal? yo pedi ayuda el otro dia para hacer algo en php y no obtube respuesta,sera tal vez orque nadie sabe hacerlo, bueno al fin, yo te paso 1 ejemplo claro de como enviar algo por mail, tenes que modificarlo solo, te lo paso en .asp que perfecto anda.
te paso todo lo que tengo.
este es el .html dnd se cargan los datos:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
</head>

<body>

<br />
<form action="envio_activa.asp" method="post">
<p><br />
<br />
<br />
<br />
<br />
<br />
<br />
</p>
<table width="223" height="395" border="1" align="center" cellpadding="5" cellspacing="5">
<tr>
<td>Nombre: </td>
<td><input name="txtNombre" type="text" id="txtNombre" /></td>
</tr>
<tr>
<td>Apellido: </td>
<td><input name="txtApellido" type="text" id="txtApellido" /></td>
</tr>
<tr>
<td>Caracter: </td>
<td><input name="txtCaracter" type="text" id="txtCaracter" /></td>
</tr>
<tr>
<td>Edad: </td>
<td><input name="txtEdad" type="text" id="txtEdad" /></td>
</tr>
<tr>
<td>Signo: </td>
<td><input name="txtSigno" type="text" id="txtSigno" /></td>
</tr>
<tr>

<td>Descripcion: </td>
<td><textarea name="txtDescripcion" id="txtDescripcion"/ ></td>
</tr>
<tr>
<td>&nbsp;</td>
<td><input name="enviar" type="submit" id="enviar" value="enviar" /></td>
</tr>
</table>
<p>&nbsp;</p>
<p>
<label></label>
<br />
<br />
</p>
</form>
</body>
</html>
</td>
</tr>
</table>
<p> </p>
<p>
<label></label>
<br />
<br />
</p>
</form>
</body>
</html>

y este es el .asp que se mete en el servidor de windows obviamente :

<%

txtNombre = request.Form("txtNombre")
txtApellido = request.Form("txtApellido")
txtEdad = request.Form("txtEdad")
txtsigno = request.Form("txtsigno")
txtCaracter = request.Form("txtCaracter")
txtConsulta = request.Form("txtConsulta")
'Envio

Dim objNewMail
Set objNewMail = Server.CreateObject("CDO.message")
objNewMail.From = "[email protected]"
objNewMail.To = "[email protected]"
objNewMail.Subject = "Consulta desde el formulario"

txt = ""
txt = txt & " lo que quiero enviar " & "<br />" & "<br />"
txt = txt & " " & "<br />" & "<br />"
txt = txt & "Nombre: " & txtNombre & "<br />"
txt = txt & "Apellido: " & txtApellido & "<br />"
txt = txt & "Edad: " & txtEdad & "<br />"
txt = txt & "Signo: " & txtsigno & "<br />"
txt = txt & "Caracter: " & txtCaracter & "<br />"
txt = txt & "Consulta: " & txtConsulta & "<br />"
txt = txt & " ----------------------------------------------" & "<br />"

objNewMail.HTMLBody = txt

objNewMail.Send


'response.Write(txt)

response.redirect "envioOK.html"
%>





y luego todo va a una web que dice envio okey (enviook.html) que es quete dice ya llego bien.

ESTO ANDA IMPECABLE, SOLO TENES QUE ADAPTARLO, CUANDO LO HAGAS AVISAME.
Y PONELO AKI SI PODES, UN BESO.