25include_once DOL_DOCUMENT_ROOT.
'/core/modules/mailings/modules_mailings.php';
33 public $name =
'DolibarrUsers';
35 public $desc =
'Dolibarr users with emails';
36 public $require_module = array();
37 public $require_admin = 1;
42 public $picto =
'user';
68 $langs->load(
"users");
71 $sql =
"SELECT '".$this->db->escape($langs->trans(
"DolibarrUsers")).
"' as label,";
72 $sql .=
" count(distinct(u.email)) as nb";
73 $sql .=
" FROM ".MAIN_DB_PREFIX.
"user as u";
74 $sql .=
" WHERE u.email != ''";
75 $sql .=
" AND u.entity IN (0,".$conf->entity.
")";
95 $sql =
"SELECT count(distinct(u.email)) as nb";
96 $sql .=
" FROM ".MAIN_DB_PREFIX.
"user as u";
97 $sql .=
" WHERE u.email != ''";
98 $sql .=
" AND u.entity IN (0,".$conf->entity.
")";
99 if (empty($this->evenunsubscribe)) {
100 $sql .=
" AND NOT EXISTS (SELECT rowid FROM ".MAIN_DB_PREFIX.
"mailing_unsubscribe as mu WHERE mu.email = u.email and mu.entity = ".((int) $conf->entity).
")";
104 return parent::getNbOfRecipients($sql);
117 $langs->load(
"users");
120 $s .=
'<select id="filter_pomme"" name="filter" class="flat minwidth100">';
121 $s .=
'<option value="-1">'.$langs->trans(
"Status").
'</option>';
122 $s .=
'<option value="1">'.$langs->trans(
"Enabled").
'</option>';
123 $s .=
'<option value="0">'.$langs->trans(
"Disabled").
'</option>';
128 $s .=
'<select id="filteremployee_pomme" name="filteremployee" class="flat minwidth100">';
129 $s .=
'<option value="-1">'.$langs->trans(
"Employee").
'</option>';
130 $s .=
'<option value="1">'.$langs->trans(
"Yes").
'</option>';
131 $s .=
'<option value="0">'.$langs->trans(
"No").
'</option>';
147 return '<a href="'.DOL_URL_ROOT.
'/user/card.php?id='.$id.
'">'.
img_object(
'',
"user").
'</a>';
161 global $conf, $langs;
162 $langs->load(
"companies");
167 $sql =
"SELECT u.rowid as id, u.email as email, null as fk_contact,";
168 $sql .=
" u.lastname, u.firstname as firstname, u.civility as civility_id, u.login, u.office_phone";
169 $sql .=
" FROM ".MAIN_DB_PREFIX.
"user as u";
170 $sql .=
" WHERE u.email <> ''";
171 $sql .=
" AND u.entity IN (0,".$conf->entity.
")";
172 $sql .=
" AND u.email NOT IN (SELECT email FROM ".MAIN_DB_PREFIX.
"mailing_cibles WHERE fk_mailing=".((int) $mailing_id).
")";
173 if (GETPOSTISSET(
"filter") &&
GETPOST(
"filter") ==
'1') {
174 $sql .=
" AND u.statut=1";
176 if (GETPOSTISSET(
"filter") &&
GETPOST(
"filter") ==
'0') {
177 $sql .=
" AND u.statut=0";
179 if (GETPOSTISSET(
"filteremployee") &&
GETPOST(
"filteremployee") ==
'1') {
180 $sql .=
" AND u.employee=1";
182 if (GETPOSTISSET(
"filteremployee") &&
GETPOST(
"filteremployee") ==
'0') {
183 $sql .=
" AND u.employee=0";
185 if (empty($this->evenunsubscribe)) {
186 $sql .=
" AND NOT EXISTS (SELECT rowid FROM ".MAIN_DB_PREFIX.
"mailing_unsubscribe as mu WHERE mu.email = u.email and mu.entity = ".((int) $conf->entity).
")";
188 $sql .=
" ORDER BY u.email";
191 $result = $this->db->query($sql);
193 $num = $this->db->num_rows($result);
197 dol_syslog(get_class($this).
"::add_to_target mailing ".$num.
" targets found");
201 $obj = $this->db->fetch_object($result);
202 if ($old != $obj->email) {
204 'email' => $obj->email,
205 'fk_contact' => $obj->fk_contact,
206 'lastname' => $obj->lastname,
207 'firstname' => $obj->firstname,
209 ($langs->transnoentities(
"Login").
'='.$obj->login).
';'.
210 ($langs->transnoentities(
"UserTitle").
'='.$obj->civility_id).
';'.
211 ($langs->transnoentities(
"PhonePro").
'='.$obj->office_phone),
212 'source_url' => $this->url($obj->id),
213 'source_id' => $obj->id,
214 'source_type' =>
'user'
224 $this->error = $this->db->error();
228 return parent::addTargetsToDatabase($mailing_id, $cibles);
ajax_combobox($htmlname, $events=array(), $minLengthToAutocomplete=0, $forcefocus=0, $widthTypeOfAutocomplete='resolve', $idforemptyvalue='-1', $morecss='')
Convert a html select field into an ajax combobox.
Parent class of emailing target selectors modules.
Class to offer a selector of emailing targets with Rule 'Pomme'.
formFilter()
Affiche formulaire de filtre qui apparait dans page de selection des destinataires de mailings.
getNbOfRecipients($sql='')
Return here number of distinct emails returned by your selector.
__construct($db)
Constructor.
url($id)
Renvoie url lien vers fiche de la source du destinataire du mailing.
add_to_target($mailing_id)
Ajoute destinataires dans table des cibles.
getSqlArrayForStats()
On the main mailing area, there is a box with statistics.
img_object($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0)
Show a picto called object_picto (generic function)
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.