escribir en fichero

[Roly]

este codigo toma de un fichero, las direcciones estan separadas por retornos de carro(\n):

<?
$archivo="ruta/archivo.txt";

//Datos del Mail
$remite="[email protected]";
$responder="[email protected]";

$remitente="Tu nombre";

$cabecera ="Date: ".date("l j F Y, G:i")."\n";
$cabecera .="MIME-Version: 1.0\n";
$cabecera .="From: ".$remitente."<".$remite.">\n";
$cabecera .="Return-path: ". $remite."\n";
$cabecera .="Reply-To: ".$responder."\n";
$cabecera .="X-Mailer: PHP/". phpversion()."\n";
$cabecera .="Content-Type: text/html; charset=\"ISO-8859-1\"\n";


$titulo="titulo del mail";

//Abre el archivo y lo guarda en una variable
$fp = fopen ($archivo ,"r");
$direcciones = fread($fp, filesize($archivo));
fclose($fp);

//Convierte la direcciones
$dir=explode("\n",$direcciones);
for($i=0;$i<=count($direcciones);$i++){

$dest=trim($dir[$i]);
if($dest!=""){
mail($dest, $titulo, $mensaje,$cabecera);
}
}




?>