Foro de elhacker.net

Programación => PHP => Mensaje iniciado por: arggos en 28 Abril 2008, 01:14 am



Título: envio correos desde pagina web
Publicado por: arggos en 28 Abril 2008, 01:14 am
Hola a todos basiucamente queria saber si alguien me puede dar un codigo fuente para integrar en mi pagina web para poder crear comentarios en un espacio para escribir texto y luego poniendo un correo enviarse 1 saludo a todos y gracias


Título: Re: envio correos desde pagina web
Publicado por: DarK_FirefoX en 28 Abril 2008, 08:09 am
Aqui te dejo....El código para enviar el mensaje, aunque tienes que crear el formulario y enviar los datos mediante el metodo POST al siguiente Script (puedes hasta adjuntar archivos, lo quitas si quieres)

Código
  1. <html>
  2.   <head>
  3.      <title>ENVIO DE CORREO</title>
  4.      <meta http-equiv="espires" content=0>
  5.      <link rel="stylesheet" href="css/barras.css" type="text/css">
  6.   </head>
  7.  
  8.   <body class="barras" bgcolor="#000000" text="#FFFF00">
  9.  
  10.      <center>
  11.         <font face="Tahoma,Verdana,Arial">
  12.            <h1>Env&iacute;o de mensaje realizado.</h1>
  13.         </font>
  14.      </center>
  15.  
  16.      <?
  17.  
  18. /* Este script está diseñado para gestionar el envío de correo electrónico
  19. con archivos adjuntos incluidos. Los nombres de las siguientes variables
  20. proceden del formulario HTML que llama al script, por lo que, si lo usas, deberás cambiar estas variables por las que tenga tu formulario.
  21.  
  22. $morigen
  23. $mnombre
  24. $medad
  25. $mcorreo
  26. $mconocido
  27. $mespecificar
  28. $mcomentarios
  29. $adjunto
  30.  
  31. La ultima es el fichero adjunto
  32. */
  33.  
  34.  
  35. /*Determinamos si hay un fichero adjunto mediante la clave "size"
  36. de la matriz asociativa HTTP_POST_FILES. Si lo hay, lo leemos y lo
  37. preparamos para luego adjuntarlo al correo.*/
  38.  
  39.         if ($HTTP_POST_FILES['adjunto']['size']!=0)
  40.         {
  41.            $fichero = fopen($adjunto, 'r');
  42.            $contenido = fread($fichero, filesize($adjunto));
  43.            $encoded_attach = chunk_split(base64_encode($contenido));
  44.            fclose($fichero);
  45.         }
  46.  
  47. //Se recogen los datos del formulario para montar el cuerpo del mensaje.
  48.         $mensaje ="ESCRITO DESDE: $morigen\n";
  49.         $mensaje .="NOMBRE: $mnombre\n";
  50.         $mensaje .="EDAD: $medad\n";
  51.         $mensaje .="CONOCIDO: $mconocido\n";
  52.         $mensaje .="ESPECIFICAR: $mespecificar\n";
  53.         $mensaje .="COMENTARIOS: $mcomentarios";
  54.  
  55. // Se monta la cabecera del mensaje.
  56.         $cabeceras = "From:<$mcorreo>\n";
  57. //   $cabeceras .= "Reply-To:$mcorreo \n";
  58.         $cabeceras .= "MIME-version: 1.0\n";
  59.  
  60.         if ($HTTP_POST_FILES['adjunto']['size']!=0)
  61.         {
  62.            $cabeceras .= "Content-type: multipart/form-data; ";
  63.            $cabeceras .= "boundary=\"Message-Boundary\"\n";
  64.            $cabeceras .= "Content-transfer-encoding: 7BIT\n";
  65.  
  66. /*Si hay fichero adjunto, lo adjuntamos ahora.*/
  67.            $cabeceras .= "X-attachments:".$fichero;
  68.  
  69. //Se configuran las propiedades del cuerpo del mensaje
  70.            $body_top = "--Message-Boundary\n";
  71.            $body_top .= "Content-type: text/plain;charset=US-ASCII\n";
  72.            $body_top .= "Content-transfer-encoding: 7BIT\n";
  73.            $body_top .= "Content-description: Mail messagebody\n\n";
  74.         }  
  75.         $cuerpo = $body_top.$mensaje;
  76.         if ($HTTP_POST_FILES['adjunto']['size']!=0)
  77.         {
  78.            $nombref=$HTTP_POST_FILES['adjunto']['name'];
  79.            $cuerpo .= "\n\n--Message-Boundary\n";
  80.            $cuerpo .= "Content-type: Binary;name=\"$nombref\"\n";
  81.            $cuerpo .= "Content-Transfer-Encoding: BASE64\n";
  82.            $cuerpo .= "Content-disposition: attachment;filename=\"$nombref\"\n\n";
  83.            $cuerpo .= "$encoded_attach\n";
  84.            $cuerpo .= "--Message-Boundary--\n";
  85.         } else {
  86.            $nombref="";
  87.         }
  88.  
  89. /*Se establece el destino del mensaje. Aqui pondrás
  90. tu propia dirección de correo electrónico*/
  91.         $destino = "admin@mail.com"; //CORREO DE DESTINO
  92.  
  93.         echo ("<center><font face='Tahoma,Verdana,Arial'><h1>");
  94.  
  95.         if (mail($destino,$morigen,$cuerpo,$cabeceras))
  96.         {
  97.            echo ("REALIZADO CON &Eacute;XITO.");
  98.         } else {
  99.            echo ("SE HA PRODUCIDO UN ERROR");
  100.         }
  101.  
  102.         echo ("</center></font></h1>");
  103.  
  104.      ?>
  105.      <center>
  106.         <input class="botones" type="button" value="CERRAR ESTA PÁGINA" onClick="self.close();">
  107.      </center>
  108.   </body>
  109. </html>
  110.  
  111.  



Título: Re: envio correos desde pagina web
Publicado por: ActiveSheet en 30 Abril 2008, 08:26 am
Que transa y el estilo de cascada? pongalo bien.

jaja na, la verdad es que esta muy bien ese codigo solo le faltaria actualizarlo a la 5.