Mirrors/dolibarr
1
0
Fork 0
mirror of https://github.com/Dolibarr/dolibarr.git synced 2025-02-20 13:46:52 +01:00
Code Issues 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
$sapi_type = php_sapi_name();
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";
$sapi_type = php_sapi_name();
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";
exit;
}
@ -56,6 +57,8 @@ require_once (DOL_DOCUMENT_ROOT."/lib/dolibarrmail.class.php");
$error = 0;
// On récupère données du mail
$sql = "SELECT m.rowid, m.titre, m.sujet, m.body";
$sql .= " , m.email_from, m.email_replyto, m.email_errorsto";
$sql .= " FROM ".MAIN_DB_PREFIX."mailing as m";
@ -63,14 +66,15 @@ $sql .= " WHERE m.statut >= 1";
$sql .= " AND m.rowid= ".$id;
$sql .= " LIMIT 1";
if ( $db->query($sql) )
$resql=$db->query($sql);
if ($resql)
{
$num = $db->num_rows();
$num = $db->num_rows($resql);
$i = 0;
if ($num == 1)
{
$obj = $db->fetch_object();
$obj = $db->fetch_object($resql);
dolibarr_syslog("mailing-send: mailing ".$id);
@ -81,46 +85,89 @@ if ( $db->query($sql) )
$errorsto = $obj->email_errorsto;
$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 .= " 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();
$i = 0;
dolibarr_syslog("mailing-send: mailing $num cibles");
$num = $db->num_rows($resql);
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,
$from,
$message);
$mail->errors_to = $errorsto;
if ( $mail->sendfile() )
{
$sendto = stripslashes($obj->prenom). " ".stripslashes($obj->nom) ."<".$obj->email.">";
$mail = new DolibarrMail($subject, $sendto, $from, $message);
$mail->errors_to = $errorsto;
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++;
}
}
$i++;
// Met a jour statut global du mail et date envoi
$statut=2;
$sql="UPDATE ".MAIN_DB_PREFIX."mailing SET statut=".$statut." WHERE rowid=".$id;
$resql2=$db->query($sql);
if (! $resql2)
{
dolibarr_print_error($db);
}
}
}
else
{
dolibarr_syslog($db->error());
dolibarr_syslog($db->error());
dolibarr_print_error($db);
}
?>