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