diff --git a/scripts/mailing-send.php b/scripts/mailing-send.php new file mode 100644 index 0000000000000000000000000000000000000000..b6dbe2ac1f5e679a02914404c81a758bdca21e5f --- /dev/null +++ b/scripts/mailing-send.php @@ -0,0 +1,120 @@ +<?PHP +/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org> + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + * + * $Id$ + * $Source$ + * + * + * Export simple des contacts + * + * L'utilisation d'adresses de courriers �lectroniques dans les op�rations + * de prospection commerciale est subordonn�e au recueil du consentement + * pr�alable des personnes concern�es. + * + * Le dispositif juridique applicable a �t� introduit par l'article 22 de + * la loi du 21 juin 2004 pour la confiance dans l'�conomie num�rique. + * + * Les dispositions applicables sont d�finies par les articles L. 34-5 du + * code des postes et des t�l�communications et L. 121-20-5 du code de la + * consommation. L'application du principe du consentement pr�alable en + * droit fran�ais r�sulte de la transposition de l'article 13 de la Directive + * europ�enne du 12 juillet 2002 � Vie priv�e et communications �lectroniques �. + + */ + +require ("../htdocs/master.inc.php"); + +require_once (DOL_DOCUMENT_ROOT."/lib/dolibarrmail.class.php"); + +$error = 0; + +$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"; +$sql .= " WHERE m.statut = 2"; +$sql .= " LIMIT 1"; + +if ( $db->query($sql) ) +{ + $num = $db->num_rows(); + $i = 0; + + if ($num == 1) + { + $obj = $db->fetch_object(); + + dolibarr_syslog("mailing-send: mailing $row[0]"); + dolibarr_syslog("mailing-send: mailing module $row[1]"); + + $id = $obj->rowid; + $subject = $obj->sujet; + $message = $obj->body; + $from = $obj->email_from; + $errorsto = $obj->email_errorsto; + + $i++; + + } +} + +$sql = "SELECT mc.nom, mc.prenom, mc.email"; +$sql .= " FROM ".MAIN_DB_PREFIX."mailing_cibles as mc"; +$sql .= " WHERE mc.fk_mailing = ".$id; + +if ( $db->query($sql) ) +{ + $num = $db->num_rows(); + $i = 0; + + dolibarr_syslog("mailing-send: mailing $num cibles"); + + while ($i < $num ) + { + $obj = $db->fetch_object(); + + $sendto = stripslashes($obj->prenom). " ".stripslashes($obj->nom) ."<".$obj->email.">"; + + $mail = new DolibarrMail($subject, + $sendto, + $from, + $message); + + $mail->errors_to = $errorsto; + + if ( $mail->sendfile() ) + { + + } + + $i++; + + } +} +else +{ + dolibarr_syslog($db->error()); +} + + + + + + + + + +?>