Fallos en la funcion mail()

[execon]

Hola, no sé si te sirva de algo, pero éste código que desarrollé usando funciones de una y otra parte trabaja en un 100% bien, revisalo y tal vez te sirva de algo.

Código PHP:

  <? $HTTP_REQUEST_VARS['Subject'];
   $HTTP_REQUEST_VARS['From'];
   $HTTP_REQUEST_VARS['imagen'];
 
   set_time_limit(0);
 $dayarray=array("Domingo","Lunes","Martes","Miercoles","Jueves","Viernes","Sábado","Domingo");
 $montharray=array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre");
 $diasemana= date("w");
 $diames= gmdate("d");
 $mes= gmdate("m");
 $ano= gmdate("Y");
 
 $lafecha=$dayarray[$diasemana].", ".$montharray[$mes-1]." ".$diames." de ".$ano;
 $eventosmes=$montharray[$mes-1];
 $newmes=$mes-1;
 $eventomesiguiente=$montharray[$newmes+0];
 
if ($send=="ok") {
### Leer archivo de mail
function mostrarTemplate($tema, $variables) 
{   
    $cod = implode("", @file($tema)); 
    ob_start(); 
    extract($variables); 
    eval('?>'.$cod.'<?'); 
    $temp=ob_get_contents(); 
    ob_end_clean(); 
    return $temp; 
} 
 
$archivo = "../mails/plantilla.php";
$variablesmensaje= array ("lafecha" => $lafecha,
                          "promocion" => $promocion,
                          "lista" => $lista);
$Mensaje=mostrarTemplate($archivo, $variablesmensaje);
 
### Escribir el archivo correspondiente al tipo de promoción
 
$archivo = "../mails/".$promocion.".html";
$fp = fopen($archivo, "w+");
$contenido = $Mensaje;
$write = fputs($fp, $contenido);
fclose($fp);
 
###
 
$BaseUsr=mysql_connect("***","***","***");
mysql_select_db("oba_obadat",$BaseUsr);
$SQLregistro=mysql_query("SELECT * FROM obamail",$BaseUsr);
$mails_enviados=0;
?>
<span class="tableenc"><strong>&nbsp;<font face="Arial, Helvetica, sans-serif">- 
Enviando...</font></strong><font face="Arial, Helvetica, sans-serif"> </font> 
<?
while ($Registro=mysql_fetch_array($SQLregistro)) { 
$Contacto_CorreoElectronico=$Registro["mail"];
sleep(1);
// 
$Nombre =$Registro["nombres"];
$apellidos=$Registro["apellidos"];
 
$headers  = "MIME-Version: 1.0\r\n";
$headers .= "Content-type: text/html; charset=iso-8859-1\r\n";
$headers .= "From: ".$From." <[email protected]>\r\n";
$headers .= "Reply-To: <[email protected]>\r\n";
$headers .= "X-Mailer: PHP/" . phpversion();
 if (mail($Contacto_CorreoElectronico, $Subject, $Mensaje,$headers))
 {
    $mails_enviados++;
  }
 else { echo "<b>No enviado a ".$Contacto_CorreoElectronico."</b>"; }
 flush();
} ?>
<img src="images/good.gif"> [Total mails enviados: 
<?=$mails_enviados?>
]</span> 
<?
echo $Mensaje;
} ?>   

Cómo funciona ?? Simple, rescato las variables Subject, From e imagen, utilizo una plantilla que leo en mostrartemplate(), descargo los correos de una base de datos y envío. El proceso de envío es un poco lento a veces, pero depende del servidor y de la cantidad de mails que envíes, la he probado hasta con 3000 cuentas de correo.

Si te sirve y encuentras que se puede mejorar, adelante, eso si, espero me lo comuniques

Saludos.