 
			
				19/04/2004, 14:31
			
			
			     |  
        |     |    |    Fecha de Ingreso: marzo-2004  Ubicación: Capital Federal  
						Mensajes: 124
					  Antigüedad: 21 años, 7 meses Puntos: 0     |        |  
      Despues de probar un par de cosas he decidido usar esto que es mejor...   Código PHP:     /*
 This might be some useful stuff to send out emails in either text
 or html or multipart version, and attach one or more files or even
 none to it. Inspired by Kieran's msg above, I thought it might be 
 useful to have a complete function for doing this, so it can be used 
 wherever it's needed. Anyway I am not too sure how this script will
 behave under Windows.
   {br} represent the HTML-tag for line break and should be replaced,
 but I did not know how to not get the original tag  parsed here.
   function SendMail($From, $FromName, $To, $ToName, $Subject, $Text, $Html, $AttmFiles)
 $From      ... sender mail address like "[email protected]"
 $FromName  ... sender name like "My Name"
 $To        ... recipient mail address like "[email protected]"
 $ToName    ... recipients name like "Your Name"
 $Subject  ... subject of the mail like "This is my first testmail"
 $Text      ... text version of the mail
 $Html      ... html version of the mail
 $AttmFiles ... array containing the filenames to attach like array("file1","file2")
 */
   $TEXT="This is the first test\n in text format\n.";
 $HTML="<font color=red>This is the first test in html format.</font>";
 $ATTM=array("/home/myself/test/go.jpg",
            "/home/myself/test/SomeDoc.pdf");
   SendMail(
    "[email protected]","PHP Apache Webmailer",        //sender
    "[email protected]","Recipients Name",    //recipient
    "Testmail",                              //subject
    $TEXT,$HTML,$ATTM);                      //body and attachment(s)
    
 function SendMail($From,$FromName,$To,$ToName,$Subject,$Text,$Html,$AttmFiles){
  $OB="----=_OuterBoundary_000";
  $IB="----=_InnerBoundery_001";
  $Html=$Html?$Html:preg_replace("/\n/","{br}",$Text) 
   or die("neither text nor html part present.");
  $Text=$Text?$Text:"Sorry, but you need an html mailer to read this mail.";
  $From or die("sender address missing");
  $To or die("recipient address missing");
    
  $headers ="MIME-Version: 1.0\r\n"; 
  $headers.="From: ".$FromName." <".$From.">\n"; 
  $headers.="To: ".$ToName." <".$To.">\n"; 
  $headers.="Reply-To: ".$FromName." <".$From.">\n"; 
  $headers.="X-Priority: 1\n"; 
  $headers.="X-MSMail-Priority: High\n"; 
  $headers.="X-Mailer: My PHP Mailer\n"; 
  $headers.="Content-Type: multipart/mixed;\n\tboundary=\"".$OB."\"\n";
    //Messages start with text/html alternatives in OB
  $Msg ="This is a multi-part message in MIME format.\n";
  $Msg.="\n--".$OB."\n";
  $Msg.="Content-Type: multipart/alternative;\n\tboundary=\"".$IB."\"\n\n";
    //plaintext section 
  $Msg.="\n--".$IB."\n";
  $Msg.="Content-Type: text/plain;\n\tcharset=\"iso-8859-1\"\n";
  $Msg.="Content-Transfer-Encoding: quoted-printable\n\n";
  // plaintext goes here
  $Msg.=$Text."\n\n";
    // html section 
  $Msg.="\n--".$IB."\n";
  $Msg.="Content-Type: text/html;\n\tcharset=\"iso-8859-1\"\n";
  $Msg.="Content-Transfer-Encoding: base64\n\n";
  // html goes here 
  $Msg.=chunk_split(base64_encode($Html))."\n\n";
    // end of IB
  $Msg.="\n--".$IB."--\n";
    // attachments
  if($AttmFiles){
   foreach($AttmFiles as $AttmFile){
    $patharray = explode ("/", $AttmFile); 
    $FileName=$patharray[count($patharray)-1];
    $Msg.= "\n--".$OB."\n";
    $Msg.="Content-Type: application/octetstream;\n\tname=\"".$FileName."\"\n";
    $Msg.="Content-Transfer-Encoding: base64\n";
    $Msg.="Content-Disposition: attachment;\n\tfilename=\"".$FileName."\"\n\n";
            
    //file goes here
    $fd=fopen ($AttmFile, "r");
    $FileContent=fread($fd,filesize($AttmFile));
    fclose ($fd);
    $FileContent=chunk_split(base64_encode($FileContent));
    $Msg.=$FileContent;
    $Msg.="\n\n";
   }
  }
    
  //message ends
  $Msg.="\n--".$OB."--\n";
  mail($To,$Subject,$Msg,$headers);    
  //syslog(LOG_INFO,"Mail: Message sent to $ToName <$To>");
 } 
             
				__________________  que el erlenmeyer carezca de tapa no es un problema que me aconte           |