lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ajout champ date_envoi et statut sur table des destinataires de mails

Browse Source
This commit is contained in:
Laurent Destailleur 2005-04-20 23:01:30 +00:00
parent f537e15a98
commit 9d7e6ff332
1 changed files with 78 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
scripts/mailing-send.php
View File

@ -38,10 +38,11 @@
*/ */
// Test si mode batch // Test si mode batch
$sapi_type = php_sapi_name(); $sapi_type = php_sapi_name();
if (substr($sapi_type, 0, 3) == 'cgi') { if (substr($sapi_type, 0, 3) == 'cgi') {
echo "Erreur: Vous utilisez l'interpreteur PHP pour le mode CGI. Pour executer mailing-send.php en ligne de commande, vous devez utiliser l'interpreteur PHP pour le mode CLI.\n"; echo "Erreur: Vous utilisez l'interpreteur PHP pour le mode CGI. Pour executer mailing-send.php en ligne de commande, vous devez utiliser l'interpreteur PHP pour le mode CLI.\n";
exit; exit;
} }
@ -56,6 +57,8 @@ require_once (DOL_DOCUMENT_ROOT."/lib/dolibarrmail.class.php");
$error = 0; $error = 0;
// On récupère données du mail
$sql = "SELECT m.rowid, m.titre, m.sujet, m.body"; $sql = "SELECT m.rowid, m.titre, m.sujet, m.body";
$sql .= " , m.email_from, m.email_replyto, m.email_errorsto"; $sql .= " , m.email_from, m.email_replyto, m.email_errorsto";
$sql .= " FROM ".MAIN_DB_PREFIX."mailing as m"; $sql .= " FROM ".MAIN_DB_PREFIX."mailing as m";
@ -63,14 +66,15 @@ $sql .= " WHERE m.statut >= 1";
$sql .= " AND m.rowid= ".$id; $sql .= " AND m.rowid= ".$id;
$sql .= " LIMIT 1"; $sql .= " LIMIT 1";
if ( $db->query($sql) ) $resql=$db->query($sql);
if ($resql)
{ {
$num = $db->num_rows(); $num = $db->num_rows($resql);
$i = 0; $i = 0;
if ($num == 1) if ($num == 1)
{ {
$obj = $db->fetch_object(); $obj = $db->fetch_object($resql);
dolibarr_syslog("mailing-send: mailing ".$id); dolibarr_syslog("mailing-send: mailing ".$id);
@ -81,46 +85,89 @@ if ( $db->query($sql) )
$errorsto = $obj->email_errorsto; $errorsto = $obj->email_errorsto;
$i++; $i++;
} }
} }
$sql = "SELECT mc.nom, mc.prenom, mc.email";
$nbok=0; $nbko=0;
// On choisit les mails non déjà envoyés pour ce mailing (statut=0)
// ou envoyés en erreur (statut=-1)
$sql = "SELECT mc.rowid, mc.nom, mc.prenom, mc.email";
$sql .= " FROM ".MAIN_DB_PREFIX."mailing_cibles as mc"; $sql .= " FROM ".MAIN_DB_PREFIX."mailing_cibles as mc";
$sql .= " WHERE mc.fk_mailing = ".$id; $sql .= " WHERE mc.statut < 1 AND mc.fk_mailing = ".$id;
if ( $db->query($sql) ) $resql=$db->query($sql);
if ($resql)
{ {
$num = $db->num_rows(); $num = $db->num_rows($resql);
$i = 0;
dolibarr_syslog("mailing-send: mailing $num cibles");
while ($i < $num ) if ($num)
{ {
$obj = $db->fetch_object(); dolibarr_syslog("mailing-send: mailing $num cibles");
$sendto = stripslashes($obj->prenom). " ".stripslashes($obj->nom) ."<".$obj->email.">"; // Positionne date debut envoi
$sql="UPDATE ".MAIN_DB_PREFIX."mailing SET date_envoi=SYSDATE WHERE rowid=".$id;
$resql2=$db->query($sql);
if (! $resql2)
{
dolibarr_print_error($db);
}
// Boucle sur chaque adresse et envoie le mail
$i = 0;
while ($i < $num )
{
$obj = $db->fetch_object($resql);
$mail = new DolibarrMail($subject, $sendto = stripslashes($obj->prenom). " ".stripslashes($obj->nom) ."<".$obj->email.">";
$sendto, $mail = new DolibarrMail($subject, $sendto, $from, $message);
$from,
$message); $mail->errors_to = $errorsto;
$mail->errors_to = $errorsto; if ( $mail->sendfile() )
{
if ( $mail->sendfile() ) // Mail envoye avec succes
{ $nbok++;
$sql="UPDATE ".MAIN_DB_PREFIX."mailing_cibles SET statut=1, date_envoi=SYSDATE WHERE rowid=".$obj->rowid;
$resql2=$db->query($sql);
if (! $resql2)
{
dolibarr_print_error($db);
}
}
else
{
// Mail en echec
$nbko++;
$sql="UPDATE ".MAIN_DB_PREFIX."mailing_cibles SET statut=1, date_envoi=SYSDATE WHERE rowid=".$obj->rowid;
$resql2=$db->query($sql);
if (! $resql2)
{
dolibarr_print_error($db);
}
}
$i++;
}
} // Met a jour statut global du mail et date envoi
$statut=2;
$i++; $sql="UPDATE ".MAIN_DB_PREFIX."mailing SET statut=".$statut." WHERE rowid=".$id;
$resql2=$db->query($sql);
if (! $resql2)
{
dolibarr_print_error($db);
}
} }
} }
else else
{ {
dolibarr_syslog($db->error()); dolibarr_syslog($db->error());
dolibarr_print_error($db);
} }
?> ?>