Comberti un file en una cadena MIME, ahora como la envio por mail?.

[Anarko]

Cordial saludo,

Hice esto:

Código PHP:

  # Proceso del archivo adjunto:
    if(!empty($_FILES['archivo']) AND !empty($_FILES['archivo']['name'])){
    $file=$_FILES['archivo']['tmp_name'];
    if(is_uploaded_file($file))move_uploaded_file($file,$_SERVER['DOCUMENT_ROOT'].dirname($_SERVER['PHP_SELF']).'/'.$_FILES['archivo']['name']);
 
    function EncodeString ($str, $encoding = "base64") {
        $encoded = "";
        switch(strtolower($encoding)) {
          case "base64":
              // chunk_split is found in PHP >= 3.0.6
              $encoded = chunk_split(base64_encode($str), 76);
              break;
          case "7bit":
          case "8bit":
              $encoded = $this->FixEOL($str);
              if (substr($encoded, -(strlen($this->LE))) != $this->LE)
                $encoded .= $this->LE;
              break;
          case "binary":
              $encoded = $str;
              break;
          case "quoted-printable":
              $encoded = $this->EncodeQP($str);
              break;
          default:
              $this->SetError($this->Lang("encoding") . $encoding);
              break;
        }
        return $encoded;
    }
 
    function EncodeFile ($path, $encoding = "base64") {
        if(!@$fd = fopen($path, "rb")){echo 'Error'; exit;}
        $file_buffer = fread($fd, filesize($path));
        $file_buffer = EncodeString($file_buffer, $encoding);
        fclose($fd);
        return $file_buffer;
    }
    $qqq=EncodeFile($_SERVER['DOCUMENT_ROOT'].dirname($_SERVER['PHP_SELF']).'/'.$_FILES['archivo']['name']);
Echo $qqq; 
   

Desde un form con campo file de nombre archivo envio la imagen.

Las cabeceras del mail to2 las conocemos...

Código PHP:

      $encoding='base64';
    @mail(Mi Nombre <[e-mail]>',$asunto,$mensaje,"Mime-Version: 1.0\nContent-type: $tipo\nFrom: $remite <$desde>\nReply-To: $remite <$desde>\nX-Mailer: PHP\nErrors-To: $remite <$desde>\nContent-Type: application/octet-stream; name=".$_FILES['archivo']['name']."\nContent-Transfer-Encoding: $encoding\nContent-Description: ".$_FILES['archivo']['name']."\nContent-Disposition: attachment; filename=".$_FILES['archivo']['name]."\n$qqq");} 
   

Y me llega a yahoo todo buenito... Sale el clip de papeles inclusive, el correo pesa un monton de KB, (los KB del file), pero al abrir el mail esta en blanco: Ni mensaje ni file a pesar de que pesa xxx KB.

Que hago?, es correcto enviar $qqq al final de mail() sin colocar una cabecera como datos=$qqq ?.

No vamos a reinventar como generar un PDF si ya esta la clase o la funcion, etc, pero mi pregunta es es demasiado lo que falta para enviar el file?, o solo es cosa de XXX y ya queda bueno el script?

Nota: (El file se ha subido exitosamente).
Salu2!.