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

Can have 5 other fields in emailing

Browse Source
This commit is contained in:
Laurent Destailleur 2009-02-18 22:05:21 +00:00
parent a00f87a28c
commit 071c66ea4a
1 changed files with 39 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
scripts/mailing/mailing-send.php
View File

@ -24,17 +24,17 @@
* !!! Envoi mailing !!! * !!! Envoi mailing !!!
* *
* L'utilisation d'adresses de courriers <EFBFBD>lectroniques dans les op<EFBFBD>rations * L'utilisation d'adresses de courriers <EFBFBD>lectroniques dans les op<EFBFBD>rations
* de prospection commerciale est subordonn<EFBFBD>e au recueil du consentement * de prospection commerciale est subordonn<EFBFBD>e au recueil du consentement
* pr<EFBFBD>alable des personnes concern<EFBFBD>es. * pr<EFBFBD>alable des personnes concern<EFBFBD>es.
* *
* Le dispositif juridique applicable a <EFBFBD>t<EFBFBD> introduit par l'article 22 de * Le dispositif juridique applicable a <EFBFBD>t<EFBFBD> introduit par l'article 22 de
* la loi du 21 juin 2004 pour la confiance dans l'<EFBFBD>conomie num<EFBFBD>rique. * la loi du 21 juin 2004 pour la confiance dans l'<EFBFBD>conomie num<EFBFBD>rique.
* *
* Les dispositions applicables sont d<EFBFBD>finies par les articles L. 34-5 du * Les dispositions applicables sont d<EFBFBD>finies par les articles L. 34-5 du
* code des postes et des t<EFBFBD>l<EFBFBD>communications et L. 121-20-5 du code de la * code des postes et des t<EFBFBD>l<EFBFBD>communications et L. 121-20-5 du code de la
* consommation. L'application du principe du consentement pr<EFBFBD>alable en * consommation. L'application du principe du consentement pr<EFBFBD>alable en
* droit fran<EFBFBD>ais r<EFBFBD>sulte de la transposition de l'article 13 de la Directive * droit fran<EFBFBD>ais r<EFBFBD>sulte de la transposition de l'article 13 de la Directive
* europ<EFBFBD>enne du 12 juillet 2002 <EFBFBD> Vie priv<EFBFBD>e et communications <EFBFBD>lectroniques <EFBFBD>. * europ<EFBFBD>enne du 12 juillet 2002 <EFBFBD> Vie priv<EFBFBD>e et communications <EFBFBD>lectroniques <EFBFBD>.
*/ */
@ -53,7 +53,7 @@ if (substr($sapi_type, 0, 3) == 'cgi') {
} }
if (! isset($argv[1]) || ! $argv[1]) { if (! isset($argv[1]) || ! $argv[1]) {
print "Usage: mailing-send.php ID_MAILING\n"; print "Usage: mailing-send.php ID_MAILING\n";
exit; exit;
} }
$id=$argv[1]; $id=$argv[1];
@ -78,7 +78,7 @@ $sql .= " AND m.rowid= ".$id;
$sql .= " LIMIT 1"; $sql .= " LIMIT 1";
$resql=$db->query($sql); $resql=$db->query($sql);
if ($resql) if ($resql)
{ {
$num = $db->num_rows($resql); $num = $db->num_rows($resql);
$i = 0; $i = 0;
@ -97,8 +97,8 @@ if ($resql)
// Le message est-il en html // Le message est-il en html
$msgishtml=-1; // Inconnu par defaut $msgishtml=-1; // Inconnu par defaut
if (eregi('[ \t]*<html>',$message)) $msgishtml=1; if (eregi('[ \t]*<html>',$message)) $msgishtml=1;
$i++; $i++;
} }
} }
@ -117,7 +117,7 @@ if ($resql)
{ {
$num = $db->num_rows($resql); $num = $db->num_rows($resql);
if ($num) if ($num)
{ {
dolibarr_syslog("mailing-send: nb of targets = ".$num, LOG_DEBUG); dolibarr_syslog("mailing-send: nb of targets = ".$num, LOG_DEBUG);
@ -128,37 +128,48 @@ if ($resql)
{ {
dolibarr_print_error($db); dolibarr_print_error($db);
} }
// Boucle sur chaque adresse et envoie le mail // Boucle sur chaque adresse et envoie le mail
$i = 0; $i = 0;
while ($i < $num) while ($i < $num)
{ {
$res=1; $res=1;
$obj = $db->fetch_object($resql); $obj = $db->fetch_object($resql);
// sendto en RFC2822 // sendto en RFC2822
$sendto = stripslashes($obj->prenom). " ".stripslashes($obj->nom) ." <".$obj->email.">"; $sendto = eregi_replace(',',' ',$obj->prenom." ".$obj->nom) ." <".$obj->email.">";
// Pratique les substitutions sur le sujet et message // Make subtsitutions on topic and body
$substitutionarray=array( $other=split(';',$obj->other);
$other1=$other[0];
$other2=$other[1];
$other3=$other[2];
$other4=$other[3];
$other5=$other[4];
$substitutionarray=array(
'__ID__' => $obj->rowid, '__ID__' => $obj->rowid,
'__EMAIL__' => $obj->email, '__EMAIL__' => $obj->email,
'__LASTNAME__' => $obj->nom, '__LASTNAME__' => $obj->nom,
'__FIRSTNAME__' => $obj->prenom '__FIRSTNAME__' => $obj->prenom,
'__OTHER1__' => $other1,
'__OTHER2__' => $other2,
'__OTHER3__' => $other3,
'__OTHER4__' => $other4,
'__OTHER5__' => $other5
); );
$substitutionisok=true; $substitutionisok=true;
$newsubject=make_substitutions($subject,$substitutionarray); $newsubject=make_substitutions($subject,$substitutionarray);
$newmessage=make_substitutions($message,$substitutionarray); $newmessage=make_substitutions($message,$substitutionarray);
// Fabrication du mail // Fabrication du mail
$mail = new CMailFile($newsubject, $sendto, $from, $newmessage, $mail = new CMailFile($newsubject, $sendto, $from, $newmessage,
array(), array(), array(), array(), array(), array(),
'', '', 0, $msgishtml); '', '', 0, $msgishtml);
$mail->errors_to = $errorsto; $mail->errors_to = $errorsto;
if ($mail->error) if ($mail->error)
{ {
$res=0; $res=0;
@ -174,12 +185,12 @@ if ($resql)
{ {
$res=$mail->sendfile(); $res=$mail->sendfile();
} }
if ($res) if ($res)
{ {
// Mail envoye avec succes // Mail envoye avec succes
$nbok++; $nbok++;
dolibarr_syslog("mailing-send: ok for #".$i.($mail->error?' - '.$mail->error:''), LOG_DEBUG); dolibarr_syslog("mailing-send: ok for #".$i.($mail->error?' - '.$mail->error:''), LOG_DEBUG);
$sql="UPDATE ".MAIN_DB_PREFIX."mailing_cibles"; $sql="UPDATE ".MAIN_DB_PREFIX."mailing_cibles";
@ -187,14 +198,14 @@ if ($resql)
$resql2=$db->query($sql); $resql2=$db->query($sql);
if (! $resql2) if (! $resql2)
{ {
dolibarr_print_error($db); dolibarr_print_error($db);
} }
} }
else else
{ {
// Mail en echec // Mail en echec
$nbko++; $nbko++;
dolibarr_syslog("mailing-send: error for #".$i.($mail->error?' - '.$mail->error:''), LOG_DEBUG); dolibarr_syslog("mailing-send: error for #".$i.($mail->error?' - '.$mail->error:''), LOG_DEBUG);
$sql="UPDATE ".MAIN_DB_PREFIX."mailing_cibles"; $sql="UPDATE ".MAIN_DB_PREFIX."mailing_cibles";
@ -202,10 +213,10 @@ if ($resql)
$resql2=$db->query($sql); $resql2=$db->query($sql);
if (! $resql2) if (! $resql2)
{ {
dolibarr_print_error($db); dolibarr_print_error($db);
} }
} }
$i++; $i++;
} }
} }