Ver Mensaje Individual
  #8 (permalink)  
Antiguo 02/12/2009, 08:23
sander
 
Fecha de Ingreso: julio-2003
Ubicación: Cochabamba Bolivia
Mensajes: 300
Antigüedad: 20 años, 10 meses
Puntos: 14
De acuerdo Respuesta: Formulario que recoge la IP del que lo completa

Bueno, bueno amigos ya no compliquen mas a la amiga ya que se nota que esta un poco desentendida en esto mira agregue ese valor a tu codigo quedaria asi:

Código php:
Ver original
  1. <?php
  2.  
  3. $To = $_POST['para'];
  4.  
  5. //Ejemplo de como usar:
  6. if (form_mail($To,
  7. "Intranet | Formulario de contacto",
  8. "Los datos introducidos en el formulario son:\n\n",
  9. "Intranet"
  10. )
  11. )
  12. echo "Gracias por su comentario y/o sugerencia.";
  13.  
  14.  
  15. //Copyright &Acirc;&copy; McAnam.com
  16. function form_mail($sPara, $sAsunto, $sTexto, $sDe){
  17.  
  18. $ip=$_SERVER['REMOTE_ADDR'];
  19. $bHayFicheros = 0;
  20. $sCabeceraTexto = "";
  21. $sAdjuntos = "";
  22.  
  23. if ($sDe)$sCabeceras = "From:".$sDe."\n"; else $sCabeceras = "";
  24. $sCabeceras .= "MIME-version: 1.0\n";
  25.  
  26. foreach ($_POST as $sNombre => $sValor)
  27. $sTexto = $sTexto."\n".$sNombre." = ".$sValor;
  28.  
  29. foreach ($_FILES as $vAdjunto){
  30.  
  31. if ($bHayFicheros == 0){
  32.  
  33. $bHayFicheros = 1;
  34.  
  35. $sCabeceras .= "Content-type: multipart/mixed;";
  36. $sCabeceras .= "boundary=\"--_Separador-de-mensajes_--\"\n";
  37.  
  38. $sCabeceraTexto = "----_Separador-de-mensajes_--\n";
  39. $sCabeceraTexto .= "Content-type: text/plain;charset=iso-8859-1\n";
  40. $sCabeceraTexto .= "Content-transfer-encoding: 7BIT\n";
  41.  
  42. $sTexto = $sCabeceraTexto.$sTexto."Mail enviado desde la IP=".$ip;
  43.  
  44. }
  45.  
  46. if ($vAdjunto["size"] > 0){
  47.  
  48. $sAdjuntos .= "\n\n----_Separador-de-mensajes_--\n";
  49. $sAdjuntos .= "Content-type: ".$vAdjunto["type"].";name=\"".$vAdjunto["name"]."\"\n";;
  50. $sAdjuntos .= "Content-Transfer-Encoding: BASE64\n";
  51. $sAdjuntos .= "Content-disposition: attachment;filename=\"".$vAdjunto["name"]."\"\n\n";
  52.  
  53. $oFichero = fopen($vAdjunto["tmp_name"], 'r');
  54. $sContenido = fread($oFichero, filesize($vAdjunto["tmp_name"]));
  55. $sAdjuntos .= chunk_split(base64_encode($sContenido));
  56. fclose($oFichero);
  57. }
  58.  
  59. }
  60.  
  61. if ($bHayFicheros)
  62. $sTexto .= $sAdjuntos."\n\n----_Separador-de-mensajes_----\n";
  63.  
  64. return(mail($sPara, $sAsunto, $sTexto, $sCabeceras));
  65. }
  66.  
  67. ?>

Las agregue en las lineas 18 y 42.

Pruebalo y luego nos cuentas como te fue, y te recomiendo que te leas un manual de php ya que estas un poco perdida.

Saludos.
__________________
:policia: Uno para todos y todos para uno.

Última edición por sander; 02/12/2009 a las 08:32 Razón: ortografia