Archivos del servidor, al mail???

[jercer]

Que tal,

Pues de principio todo lo que quitaste en "if ($bHayFicheros == 0)"

Lo que hace es "decir" que el mail será "multiparte", es decir, en tu caso vendrían 2 partes:

1 - El texto del email
2 - El fichero adjunto

Por lo que sería obligatorio.

Por otra parte en el HTML no hace falta que cambies nada.


parece que tienes dudas con la linea "foreach ($_FILES as $vAdjunto)"
Esto lo que hace, es recorrer el array con los archivos enviados, es decir, da igual el nombre con el que venga.

Si lo quieres hacer más personalizado en tu caso con un sólo fichero llamado (ahora) sAdjuntos, podrías hacer algo como:

Código PHP:

if ($_FILES["sAdjuntos"]["size"] > 0)
{
// Viene el fichero
 
// CABECERAS DEL MAIL (Sólo una vez, aunque vengan varios ficheros)
 
// Cabeceras generales del mail 
$sCabeceras .= "Content-type: multipart/mixed;"; 
$sCabeceras .= "boundary=\"".$sSeparador."\"\n"; 
                 
// Cabeceras del texto 
$sCabeceraTexto = "--".$sSeparador."\n"; 
$sCabeceraTexto .= "Content-type: text/plain;charset=iso-8859-1\n"; 
$sCabeceraTexto .= "Content-transfer-encoding: 7BIT\n\n"; 
                 
$sCuerpo = $sCabeceraTexto.$sCuerpo; 
 
 
// SE GUARDA EL FICHERO (una vez por cada fichero)
 
$sAdjuntos .= "\n\n--".$sSeparador."\n"; 
$sAdjuntos .= "Content-type: ".$_FILES["sAdjuntos"]["type"].";name=\"".$_FILES["sAdjuntos"]["name"]."\"\n"; 
$sAdjuntos .= "Content-Transfer-Encoding: BASE64\n"; 
$sAdjuntos .= "Content-disposition: attachment;filename=\"".$_FILES["sAdjuntos"]["name"]."\"\n\n";                  
 
$oFichero = fopen($_FILES["sAdjuntos"]["tmp_name"], 'rb'); 
$sContenido = fread($oFichero, filesize($_FILES["sAdjuntos"]["tmp_name"])); 
$sAdjuntos .= chunk_split(base64_encode($sContenido)); 
fclose($oFichero); 
 
// SE AÑADE EL FICHERO
$sCuerpo .= $sAdjuntos."\n\n--".$sSeparador."--\n";
 
 
}
 

No lo he probado, pero mas o menos esa es la idea.

Por cierto ten en cuenta también que es la variable "$sCuerpo" la que tiene el texto del mensaje, por lo que en tu código original, esto debería ir después de:

$mensaje .= "Idiomas :". $Idiomas." \r\n \r\n";

y en vez de:
$sCuerpo = $sCabeceraTexto.$sCuerpo;
Poner:
$sCuerpo = $sCabeceraTexto.$mensaje;