No hablo mucho ingles , ojala alhuien entienda esto en espa�ol,
Escribi una pagina en .php que retorna los correos malos de la carpeta
failures a la persona que se los origino, (no se porque sambar no lo
hace ??), deseo que este scrip se ejecute cada 10 minutos o algo asi,
como hago para que en CRON Task Scheduler se ejecute un .php, ya php4
esta instalado y funcionando, si ejecuto el scrip manualmente funciona
pero la idea es automatizar ese proceso y asi quitarme de encima el
problema de los correos malos.

A quie le interese este es el scrip :

<?
function analisis_mail($archivo,&$lo_envio,&$era_para,&$se_trata)
{
 $linea = "";
 $era_para = "";//para validar los fallos si enviados
 $fp = fopen($archivo,"r");
 $linea= fgets($fp,1024);
 $inicio= strpos ($linea,"<")+1;
 $fin= strpos ($linea,">");
 $lo_envio= substr ($linea,$inicio,$fin-$inicio);
 $buscada= substr($linea,0,4);
 while ($buscada!="From")
           {
                if ($buscada=="RCPT")
                        {
                        $inicio= strpos ($linea,"<")+1;
                        $fin= strpos ($linea,">");
                        $linea= substr ($linea,$inicio,$fin-$inicio);
                        $era_para.=$linea;
                        }
                $linea= fgets($fp,1024);
                $buscada= substr($linea,0,4);
           }
 while (substr($linea,0,7)!="Subject")
           {
                $linea= fgets($fp,1024);
       }
 $se_trata=substr($linea,8);
  fclose($fp);
}
function failures($dir_sambar_failures)
{
 $d = dir($dir_sambar_failures);
 while($entrada=$d->read())
      {
       if ($entrada!="." & $entrada!="..")
          {
           $falla=$d->path."\\".$entrada;
               analisis_mail($falla,$origen,$destino,$asunto);
                   $mensaje ="El correo enviado ha estos destinatarios
:\n\r $destino \n\r Con el siguiente asunto : \n\r $asunto \n\r No pudo
ser enviado por problemas en la comunicaci�n, favor reenvielo. \n\r Si
el problema persiste favor comunicarse con el administrador de Sambar";
           mail($origen,"Correo no enviado",$mensaje);

               unlink ($falla);
          }
      }
 $d->close();
}
?>
<html>
<head>
<title>proceso de failures</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<?php
failures("C:\sambar50\mail\failures");
?>
</body>
</html>



--------------------------------------------------------------------------------
For unsubscription of this list send an email to [EMAIL PROTECTED] with email
data containing unsubscribe emailadd sambar

Reply via email to