[Sommaire] [Imprimer]

   1  <?PHP
   2  /* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
   3   *
   4   * This program is free software; you can redistribute it and/or modify
   5   * it under the terms of the GNU General Public License as published by
   6   * the Free Software Foundation; either version 2 of the License, or
   7   * (at your option) any later version.
   8   *
   9   * This program is distributed in the hope that it will be useful,
  10   * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12   * GNU General Public License for more details.
  13   *
  14   * You should have received a copy of the GNU General Public License
  15   * along with this program; if not, write to the Free Software
  16   * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17   *
  18   * $Id: mailing-prepare.php,v 1.4 2005/10/18 14:03:06 eldy Exp $
  19   * $Source: /cvsroot/dolibarr/dolibarr/scripts/mailing-prepare.php,v $
  20   *
  21   *
  22   * Export simple des contacts
  23   *
  24   * L'utilisation d'adresses de courriers électroniques dans les opérations
  25   * de prospection commerciale est subordonnée au recueil du consentement 
  26   * préalable des personnes concernées.
  27   *
  28   * Le dispositif juridique applicable a été introduit par l'article 22 de 
  29   * la loi du 21 juin 2004  pour la confiance dans l'économie numérique.
  30   *
  31   * Les dispositions applicables sont définies par les articles L. 34-5 du 
  32   * code des postes et des télécommunications et L. 121-20-5 du code de la 
  33   * consommation. L'application du principe du consentement préalable en 
  34   * droit français résulte de la transposition de l'article 13 de la Directive 
  35   * européenne du 12 juillet 2002 « Vie privée et communications électroniques ». 
  36  
  37   */
  38  
  39  /**
  40          \file       scripts/mailing-prepare.php
  41          \ingroup    mailing
  42          \brief      Script pour préparer les destinataires d'un mailing
  43  */
  44  
  45  require_once ("../htdocs/master.inc.php");
  46  
  47  $error = 0;
  48  
  49  $sql = "SELECT m.rowid, m.cible";
  50  $sql .= " FROM ".MAIN_DB_PREFIX."mailing as m";
  51  $sql .= " WHERE m.statut in (0,1)";
  52  
  53  if ( $db->query($sql) ) 
  54  {
  55    $num = $db->num_rows();
  56    $i = 0;
  57    
  58    while ($i < $num)
  59      {
  60        $row = $db->fetch_row();
  61  
  62        dolibarr_syslog("mailing-prepare: mailing $row[0]");
  63        dolibarr_syslog("mailing-prepare: mailing module $row[1]");
  64  
  65        require_once(DOL_DOCUMENT_ROOT.'/includes/modules/mailings/'.$row[1].'.modules.php');
  66  
  67        $classname = "mailing_".$row[1];
  68  
  69        $obj = new $classname($db);
  70        $obj->add_to_target($row[0]);
  71  
  72        $i++;
  73        
  74      }
  75  }
  76  
  77  ?>