28if (!defined(
'NOSTYLECHECK')) {
29 define(
'NOSTYLECHECK',
'1');
33require
'../../main.inc.php';
34require_once DOL_DOCUMENT_ROOT.
'/core/lib/emailing.lib.php';
35require_once DOL_DOCUMENT_ROOT.
'/core/lib/files.lib.php';
36require_once DOL_DOCUMENT_ROOT.
'/core/class/CMailFile.class.php';
37require_once DOL_DOCUMENT_ROOT.
'/core/lib/functions2.lib.php';
38require_once DOL_DOCUMENT_ROOT.
'/comm/mailing/class/mailing.class.php';
39require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formother.class.php';
40require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formmail.class.php';
41require_once DOL_DOCUMENT_ROOT.
'/core/class/extrafields.class.php';
44$langs->loadLangs(array(
"mails",
"admin"));
48$action =
GETPOST(
'action',
'aZ09');
49$confirm =
GETPOST(
'confirm',
'alpha');
50$cancel =
GETPOST(
'cancel',
'aZ09');
52$backtopageforcancel =
GETPOST(
'backtopageforcancel');
57$hookmanager->initHooks(array(
'mailingcard',
'globalcard'));
60$extrafields->fetch_name_optionals_label(
$object->table_element);
63include DOL_DOCUMENT_ROOT.
'/core/actions_fetchobject.inc.php';
70$signature = ((!empty($user->signature) && !
getDolGlobalString(
'MAIN_MAIL_DO_NOT_USE_SIGN')) ? $user->signature :
'');
74$parameters = array(
'mode' =>
'emailing');
77$object->substitutionarrayfortest = $substitutionarray;
80$listofmethods = array();
82$listofmethods[
'mail'] =
'PHP mail function';
84$listofmethods[
'smtps'] =
'SMTP/SMTPS socket library';
85if (version_compare(phpversion(),
'7.0',
'>=')) {
86 $listofmethods[
'swiftmailer'] =
'Swift Mailer socket library';
90if (!$user->hasRight(
'mailing',
'lire') || (!
getDolGlobalString(
'EXTERNAL_USERS_ARE_AUTHORIZED') && $user->socid > 0)) {
93if (empty($action) && empty(
$object->id)) {
100$permissiontocreate = $user->hasRight(
'mailing',
'creer');
101$permissiontovalidatesend = $user->hasRight(
'mailing',
'valider');
102$permissiontodelete = $user->hasRight(
'mailing',
'supprimer');
109$parameters = array();
110$reshook = $hookmanager->executeHooks(
'doActions', $parameters,
$object, $action);
115if (empty($reshook)) {
118 $backurlforlist = DOL_URL_ROOT.
'/comm/mailing/list.php';
120 if (empty($backtopage) || ($cancel && empty($id))) {
121 if (empty($backtopage) || ($cancel && strpos($backtopage,
'__ID__'))) {
122 if (empty($id) && (($action !=
'add' && $action !=
'create') || $cancel)) {
123 $backtopage = $backurlforlist;
125 $backtopage = DOL_URL_ROOT.
'/comm/mailing/card.php?id='.((!empty($id) && $id > 0) ? $id :
'__ID__');
132 if (!empty($backtopageforcancel)) {
133 header(
"Location: ".$backtopageforcancel);
135 } elseif (!empty($backtopage)) {
136 header(
"Location: ".$backtopage);
143 if ($action ==
'confirm_clone' && $confirm ==
'yes' && $permissiontocreate) {
144 if (!
GETPOST(
"clone_content",
'alpha') && !
GETPOST(
"clone_receivers",
'alpha')) {
149 header(
"Location: ".$_SERVER[
'PHP_SELF'].
'?id='.$result);
159 if ($action ==
'sendallconfirmed' && $confirm ==
'yes' && $permissiontovalidatesend) {
163 setEventMessages(
'<textarea cols="70" rows="'.ROWS_2.
'" wrap="soft">php ./scripts/emailings/mailing-send.php '.
$object->id.
'</textarea>',
null,
'warnings');
179 $replyto =
$object->email_replyto;
180 $errorsto =
$object->email_errorsto;
183 if (preg_match(
'/[\s\t]*<html>/i', $message)) {
195 $sql =
"SELECT mc.rowid, mc.fk_mailing, mc.lastname, mc.firstname, mc.email, mc.other, mc.source_url, mc.source_id, mc.source_type, mc.tag";
196 $sql .=
" FROM ".MAIN_DB_PREFIX.
"mailing_cibles as mc";
197 $sql .=
" WHERE mc.statut < 1 AND mc.fk_mailing = ".((int)
$object->id);
198 $sql .=
" ORDER BY mc.statut DESC";
200 dol_syslog(
"card.php: select targets", LOG_DEBUG);
201 $resql = $db->query($sql);
203 $num = $db->num_rows($resql);
206 dol_syslog(
"comm/mailing/card.php: nb of targets = ".$num, LOG_DEBUG);
211 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"mailing SET date_envoi='".$db->idate($now).
"' WHERE rowid=".((int)
$object->id);
212 $resql2 = $db->query($sql);
217 $thirdpartystatic =
new Societe($db);
221 while ($iforemailloop < $num && $iforemailloop < $conf->global->MAILING_LIMIT_SENDBYWEB) {
226 $obj = $db->fetch_object($resql);
229 $sendto = str_replace(
',',
' ',
dolGetFirstLastname($obj->firstname, $obj->lastname)).
" <".$obj->email.
">";
232 $other = explode(
';', $obj->other);
233 $tmpfield = explode(
'=', $other[0], 2);
234 $other1 = (isset($tmpfield[1]) ? $tmpfield[1] : $tmpfield[0]);
235 $tmpfield = explode(
'=', $other[1], 2);
236 $other2 = (isset($tmpfield[1]) ? $tmpfield[1] : $tmpfield[0]);
237 $tmpfield = explode(
'=', $other[2], 2);
238 $other3 = (isset($tmpfield[1]) ? $tmpfield[1] : $tmpfield[0]);
239 $tmpfield = explode(
'=', $other[3], 2);
240 $other4 = (isset($tmpfield[1]) ? $tmpfield[1] : $tmpfield[0]);
241 $tmpfield = explode(
'=', $other[4], 2);
242 $other5 = (isset($tmpfield[1]) ? $tmpfield[1] : $tmpfield[0]);
244 $signature = ((!empty($user->signature) && !
getDolGlobalString(
'MAIN_MAIL_DO_NOT_USE_SIGN')) ? $user->signature :
'');
246 $parameters = array(
'mode' =>
'emailing');
250 $substitutionarray[
'__ID__'] = $obj->source_id;
251 if ($obj->source_type ==
"thirdparty") {
252 $result = $thirdpartystatic->fetch($obj->source_id);
255 $substitutionarray[
'__THIRDPARTY_CUSTOMER_CODE__'] = $thirdpartystatic->code_client;
257 $substitutionarray[
'__THIRDPARTY_CUSTOMER_CODE__'] =
'';
260 $substitutionarray[
'__EMAIL__'] = $obj->email;
261 $substitutionarray[
'__LASTNAME__'] = $obj->lastname;
262 $substitutionarray[
'__FIRSTNAME__'] = $obj->firstname;
263 $substitutionarray[
'__MAILTOEMAIL__'] =
'<a href="mailto:'.$obj->email.
'">'.$obj->email.
'</a>';
264 $substitutionarray[
'__OTHER1__'] = $other1;
265 $substitutionarray[
'__OTHER2__'] = $other2;
266 $substitutionarray[
'__OTHER3__'] = $other3;
267 $substitutionarray[
'__OTHER4__'] = $other4;
268 $substitutionarray[
'__OTHER5__'] = $other5;
269 $substitutionarray[
'__USER_SIGNATURE__'] = $signature;
270 $substitutionarray[
'__SENDEREMAIL_SIGNATURE__'] = $signature;
271 $substitutionarray[
'__CHECK_READ__'] =
'<img src="'.DOL_MAIN_URL_ROOT.
'/public/emailing/mailing-read.php?tag='.urlencode($obj->tag).
'&securitykey='.
dol_hash(
getDolGlobalString(
'MAILING_EMAIL_UNSUBSCRIBE_KEY').
'-'.$obj->tag.
'-'.$obj->email.
'-'.$obj->rowid,
"md5").
'&email='.urlencode($obj->email).
'&mtid='.((int) $obj->rowid).
'" width="1" height="1" style="width:1px;height:1px" border="0"/>';
272 $substitutionarray[
'__UNSUBSCRIBE__'] =
'<a href="'.DOL_MAIN_URL_ROOT.
'/public/emailing/mailing-unsubscribe.php?tag='.urlencode($obj->tag).
'&unsuscrib=1&securitykey='.
dol_hash(
getDolGlobalString(
'MAILING_EMAIL_UNSUBSCRIBE_KEY').
'-'.$obj->tag.
'-'.$obj->email.
'-'.$obj->rowid,
"md5").
'&email='.urlencode($obj->email).
'&mtid='.((int) $obj->rowid).
'" target="_blank" rel="noopener noreferrer">'.$langs->trans(
"MailUnsubcribe").
'</a>';
273 $substitutionarray[
'__UNSUBSCRIBE_URL__'] = DOL_MAIN_URL_ROOT.
'/public/emailing/mailing-unsubscribe.php?tag='.urlencode($obj->tag).
'&unsuscrib=1&securitykey='.
dol_hash(
getDolGlobalString(
'MAILING_EMAIL_UNSUBSCRIBE_KEY').
'-'.$obj->tag.
'-'.$obj->email.
'-'.$obj->rowid,
"md5").
'&email='.urlencode($obj->email).
'&mtid='.((int) $obj->rowid);
275 $onlinepaymentenabled = 0;
276 if (isModEnabled(
'paypal')) {
277 $onlinepaymentenabled++;
279 if (isModEnabled(
'paybox')) {
280 $onlinepaymentenabled++;
282 if (isModEnabled(
'stripe')) {
283 $onlinepaymentenabled++;
286 require_once DOL_DOCUMENT_ROOT.
'/core/lib/payments.lib.php';
287 $substitutionarray[
'__ONLINEPAYMENTLINK_MEMBER__'] = getHtmlOnlinePaymentLink(
'member', $obj->source_id);
288 $substitutionarray[
'__ONLINEPAYMENTLINK_DONATION__'] = getHtmlOnlinePaymentLink(
'donation', $obj->source_id);
289 $substitutionarray[
'__ONLINEPAYMENTLINK_ORDER__'] = getHtmlOnlinePaymentLink(
'order', $obj->source_id);
290 $substitutionarray[
'__ONLINEPAYMENTLINK_INVOICE__'] = getHtmlOnlinePaymentLink(
'invoice', $obj->source_id);
291 $substitutionarray[
'__ONLINEPAYMENTLINK_CONTRACTLINE__'] = getHtmlOnlinePaymentLink(
'contractline', $obj->source_id);
301 $substitutionarray[
'__SECUREKEYPAYMENT_MEMBER__'] =
dol_hash(
getDolGlobalString(
'PAYMENT_SECURITY_TOKEN') .
'member'.$obj->source_id, 2);
302 $substitutionarray[
'__SECUREKEYPAYMENT_DONATION__'] =
dol_hash(
getDolGlobalString(
'PAYMENT_SECURITY_TOKEN') .
'donation'.$obj->source_id, 2);
303 $substitutionarray[
'__SECUREKEYPAYMENT_ORDER__'] =
dol_hash(
getDolGlobalString(
'PAYMENT_SECURITY_TOKEN') .
'order'.$obj->source_id, 2);
304 $substitutionarray[
'__SECUREKEYPAYMENT_INVOICE__'] =
dol_hash(
getDolGlobalString(
'PAYMENT_SECURITY_TOKEN') .
'invoice'.$obj->source_id, 2);
305 $substitutionarray[
'__SECUREKEYPAYMENT_CONTRACTLINE__'] =
dol_hash(
getDolGlobalString(
'PAYMENT_SECURITY_TOKEN') .
'contractline'.$obj->source_id, 2);
309 $substitutionarray[
'__PUBLICLINK_NEWMEMBERFORM__'] =
'<a target="_blank" rel="noopener noreferrer" href="'.DOL_MAIN_URL_ROOT.
'/public/members/new.php'.((isModEnabled(
'multicompany')) ?
'?entity='.$conf->entity :
'').
'">'.$langs->trans(
'BlankSubscriptionForm').
'</a>';
318 $substitutionarray[
'__SECUREKEYPAYPAL_MEMBER__'] =
dol_hash(
getDolGlobalString(
'PAYPAL_SECURITY_TOKEN') .
'membersubscription'.$obj->source_id, 2);
324 $substitutionarray[
'__SECUREKEYPAYPAL_ORDER__'] =
dol_hash(
getDolGlobalString(
'PAYPAL_SECURITY_TOKEN') .
'order'.$obj->source_id, 2);
330 $substitutionarray[
'__SECUREKEYPAYPAL_INVOICE__'] =
dol_hash(
getDolGlobalString(
'PAYPAL_SECURITY_TOKEN') .
'invoice'.$obj->source_id, 2);
336 $substitutionarray[
'__SECUREKEYPAYPAL_CONTRACTLINE__'] =
dol_hash(
getDolGlobalString(
'PAYPAL_SECURITY_TOKEN') .
'contractline'.$obj->source_id, 2);
346 if (preg_match(
'/__UNSUBSCRIBE_(_|URL_)/', $message)) {
347 $moreinheader =
"List-Unsubscribe: <__UNSUBSCRIBE_URL__>\n";
356 $listofpaths =
dol_dir_list($upload_dir,
'all', 0,
'',
'',
'name', SORT_ASC, 0);
357 if (count($listofpaths)) {
358 foreach ($listofpaths as $key => $val) {
359 $arr_file[] = $listofpaths[$key][
'fullname'];
361 $arr_name[] = $listofpaths[$key][
'name'];
366 $trackid =
'emailing-'.$obj->fk_mailing.
'-'.$obj->rowid;
367 $upload_dir_tmp = $upload_dir;
368 $mail =
new CMailFile($newsubject, $sendto, $from, $newmessage, $arr_file, $arr_mime, $arr_name,
'',
'', 0, $msgishtml, $errorsto, $arr_css, $trackid, $moreinheader,
'emailing', $replyto, $upload_dir_tmp);
381 $res = $mail->sendfile();
388 dol_syslog(
"comm/mailing/card.php: ok for #".$iforemailloop.($mail->error ?
' - '.$mail->error :
''), LOG_DEBUG);
390 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"mailing_cibles";
391 $sql .=
" SET statut=1, date_envoi = '".$db->idate($now).
"' WHERE rowid=".((int) $obj->rowid);
392 $resql2 = $db->query($sql);
397 if (strpos($message,
'__CHECK_READ__') !==
false) {
399 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"societe SET fk_stcomm=2 WHERE rowid IN (SELECT source_id FROM ".MAIN_DB_PREFIX.
"mailing_cibles WHERE rowid=".((int) $obj->rowid).
")";
400 dol_syslog(
"card.php: set prospect thirdparty status", LOG_DEBUG);
401 $resql2 = $db->query($sql);
407 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"societe SET fk_stcomm=2 WHERE rowid IN (SELECT sc.fk_soc FROM ".MAIN_DB_PREFIX.
"socpeople AS sc INNER JOIN ".MAIN_DB_PREFIX.
"mailing_cibles AS mc ON mc.rowid=".((int) $obj->rowid).
" AND mc.source_type = 'contact' AND mc.source_id = sc.rowid)";
408 dol_syslog(
"card.php: set prospect contact status", LOG_DEBUG);
410 $resql2 = $db->query($sql);
418 dol_syslog(
"Wait a delay of MAILING_DELAY=".((
float) $conf->global->MAILING_DELAY));
419 usleep((
int) ((
float) $conf->global->MAILING_DELAY * 1000000));
427 dol_syslog(
"comm/mailing/card.php: error for #".$iforemailloop.($mail->error ?
' - '.$mail->error :
''), LOG_WARNING);
429 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"mailing_cibles";
430 $sql .=
" SET statut=-1, error_text='".$db->escape($mail->error).
"', date_envoi='".$db->idate($now).
"' WHERE rowid=".((int) $obj->rowid);
431 $resql2 = $db->query($sql);
440 setEventMessages($langs->transnoentitiesnoconv(
"NoMoreRecipientToSendTo"),
null,
'mesgs');
446 setEventMessages($langs->transnoentitiesnoconv(
"EMailSentToNRecipients", $nbok),
null,
'mesgs');
453 setEventMessages($langs->transnoentitiesnoconv(
"EMailSentToNRecipients", $nbok),
null,
'mesgs');
456 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"mailing SET statut=".((int) $statut).
" WHERE rowid = ".((int)
$object->id);
457 dol_syslog(
"comm/mailing/card.php: update global status", LOG_DEBUG);
458 $resql2 = $db->query($sql);
472 if ($action ==
'send' && ! $cancel && $permissiontovalidatesend) {
479 setEventMessages($langs->trans(
"ErrorFieldRequired", $langs->transnoentitiesnoconv(
"MailTo")),
null,
'errors');
486 if (preg_match(
'/[\s\t]*<html>/i',
$object->body)) {
490 $signature = ((!empty($user->signature) && !
getDolGlobalString(
'MAIN_MAIL_DO_NOT_USE_SIGN')) ? $user->signature :
'');
492 $parameters = array(
'mode' =>
'emailing');
496 $substitutionarray[
'__EMAIL__'] =
$object->sendto;
497 $substitutionarray[
'__MAILTOEMAIL__'] =
'<a href="mailto:'.$object->sendto.
'">'.
$object->sendto.
'</a>';
498 $substitutionarray[
'__CHECK_READ__'] =
'<img src="'.DOL_MAIN_URL_ROOT.
'/public/emailing/mailing-read.php?tag=undefinedintestmode&securitykey='.
dol_hash(
getDolGlobalString(
'MAILING_EMAIL_UNSUBSCRIBE_KEY').
"-undefinedintestmode-".$obj->sendto.
"-0",
'md5').
'&email='.urlencode($obj->sendto).
'&mtid=0" width="1" height="1" style="width:1px;height:1px" border="0"/>';
499 $substitutionarray[
'__UNSUBSCRIBE__'] =
'<a href="'.DOL_MAIN_URL_ROOT.
'/public/emailing/mailing-unsubscribe.php?tag=undefinedintestmode&unsuscrib=1&securitykey='.
dol_hash(
getDolGlobalString(
'MAILING_EMAIL_UNSUBSCRIBE_KEY').
"-undefinedintestmode-".$obj->sendto.
"-0",
'md5').
'&email='.urlencode($obj->sendto).
'&mtid=0" target="_blank" rel="noopener noreferrer">'.$langs->trans(
"MailUnsubcribe").
'</a>';
500 $substitutionarray[
'__UNSUBSCRIBE_URL__'] = DOL_MAIN_URL_ROOT.
'/public/emailing/mailing-unsubscribe.php?tag=undefinedintestmode&unsuscrib=1&securitykey='.
dol_hash(
getDolGlobalString(
'MAILING_EMAIL_UNSUBSCRIBE_KEY').
"-undefinedintestmode-".$obj->sendto.
"-0",
'md5').
'&email='.urlencode($obj->sendto).
'&mtid=0';
514 if (!empty(
$object->bgcolor)) {
515 $arr_css[
'bgcolor'] = (preg_match(
'/^#/',
$object->bgcolor) ?
'' :
'#').
$object->bgcolor;
517 if (!empty(
$object->bgimage)) {
518 $arr_css[
'bgimage'] =
$object->bgimage;
522 $listofpaths =
dol_dir_list($upload_dir,
'all', 0,
'',
'',
'name', SORT_ASC, 0);
523 if (count($listofpaths)) {
524 foreach ($listofpaths as $key => $val) {
525 $arr_file[] = $listofpaths[$key][
'fullname'];
527 $arr_name[] = $listofpaths[$key][
'name'];
531 $trackid =
'emailing-test';
532 $upload_dir_tmp = $upload_dir;
533 $mailfile =
new CMailFile($tmpsujet,
$object->sendto,
$object->email_from, $tmpbody, $arr_file, $arr_mime, $arr_name,
'',
'', 0, $msgishtml,
$object->email_errorsto, $arr_css, $trackid,
'',
'emailing',
'', $upload_dir_tmp);
535 $result = $mailfile->sendfile();
537 setEventMessages($langs->trans(
"MailSuccessfulySent", $mailfile->getValidAddress(
$object->email_from, 2), $mailfile->getValidAddress(
$object->sendto, 2)),
null,
'mesgs');
540 setEventMessages($langs->trans(
"ResultKo").
'<br>'.$mailfile->error.
' '.json_encode($result),
null,
'errors');
547 if ($action ==
'add' && $permissiontocreate) {
551 if (
$object->messtype ==
'sms') {
552 $object->email_from = (string)
GETPOST(
"from_phone",
'alphawithlgt');
556 $object->email_replyto = (string)
GETPOST(
"replyto",
'alphawithlgt');
557 $object->email_errorsto = (string)
GETPOST(
"errorsto",
'alphawithlgt');
561 $object->bgcolor = preg_replace(
'/^#/',
'', (
string)
GETPOST(
"bgcolor"));
565 $mesgs[] = $langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"MailTitle"));
568 $mesgs[] = $langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"MailTopic"));
571 $mesgs[] = $langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"MailMessage"));
574 if (!count($mesgs)) {
575 if (
$object->create($user) >= 0) {
576 header(
"Location: ".$_SERVER[
'PHP_SELF'].
"?id=".
$object->id);
580 $mesgs = array_merge($mesgs,
$object->errors);
588 if (($action ==
'settitle' || $action ==
'setemail_from' || $action ==
'setemail_replyto' || $action ==
'setreplyto' || $action ==
'setemail_errorsto' || $action ==
'setevenunsubscribe') && $permissiontovalidatesend) {
591 if ($action ==
'settitle') {
593 } elseif ($action ==
'setemail_from') {
594 $object->email_from = trim(
GETPOST(
'email_from',
'alphawithlgt'));
595 } elseif ($action ==
'setemail_replyto') {
596 $object->email_replyto = trim(
GETPOST(
'email_replyto',
'alphawithlgt'));
597 } elseif ($action ==
'setemail_errorsto') {
598 $object->email_errorsto = trim(
GETPOST(
'email_errorsto',
'alphawithlgt'));
599 } elseif ($action ==
'settitle' && empty(
$object->title)) {
600 $mesg = $langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"MailTitle"));
601 } elseif ($action ==
'setfrom' && empty(
$object->email_from)) {
602 $mesg = $langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"MailFrom"));
603 } elseif ($action ==
'setevenunsubscribe') {
608 $result =
$object->update($user);
610 header(
"Location: ".$_SERVER[
'PHP_SELF'].
"?id=".
$object->id);
623 if (
GETPOST(
'addfile') && $permissiontocreate) {
626 require_once DOL_DOCUMENT_ROOT.
'/core/lib/files.lib.php';
635 if (
GETPOST(
"removedfile") && $permissiontocreate) {
638 require_once DOL_DOCUMENT_ROOT.
'/core/lib/files.lib.php';
646 if ($action ==
'update' && !
GETPOST(
"removedfile") && !$cancel && $permissiontocreate) {
647 require_once DOL_DOCUMENT_ROOT.
'/core/lib/files.lib.php';
657 $object->bgcolor = preg_replace(
'/^#/',
'', (
string)
GETPOST(
"bgcolor"));
661 $mesgs[] = $langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"MailTopic"));
664 $mesgs[] = $langs->trans(
"ErrorFieldRequired", $langs->transnoentities(
"MailMessage"));
667 if (!count($mesgs)) {
668 if (
$object->update($user) >= 0) {
669 header(
"Location: ".$_SERVER[
'PHP_SELF'].
"?id=".
$object->id);
673 $mesgs = array_merge($mesgs,
$object->errors);
684 if ($action ==
'confirm_valid' && $confirm ==
'yes' && $permissiontovalidatesend) {
687 setEventMessages($langs->trans(
"MailingSuccessfullyValidated"),
null,
'mesgs');
688 header(
"Location: ".$_SERVER[
'PHP_SELF'].
"?id=".
$object->id);
696 if ($action ==
'confirm_settodraft' && $confirm ==
'yes' && $permissiontocreate) {
698 $result =
$object->setStatut(0);
701 header(
"Location: ".$_SERVER[
'PHP_SELF'].
"?id=".
$object->id);
712 if ($action ==
'confirm_reset' && $confirm ==
'yes' && $permissiontocreate) {
716 $result =
$object->valid($user);
718 $result =
$object->reset_targets_status($user);
723 header(
"Location: ".$_SERVER[
'PHP_SELF'].
"?id=".
$object->id);
735 if ($action ==
'confirm_delete' && $confirm ==
'yes' && $permissiontodelete) {
737 $url = (!empty($urlfrom) ? $urlfrom :
'list.php');
738 header(
"Location: ".$url);
753$form =
new Form($db);
756$help_url =
'EN:Module_EMailing|FR:Module_Mailing|ES:Módulo_Mailing';
759 $langs->trans(
"Mailing"),
765 '/includes/ace/src/ace.js',
766 '/includes/ace/src/ext-statusbar.js',
767 '/includes/ace/src/ext-language_tools.js',
774if ($action ==
'create') {
776 print
'<form name="new_mailing" action="'.$_SERVER[
'PHP_SELF'].
'" method="POST">'.
"\n";
777 print
'<input type="hidden" name="token" value="'.newToken().
'">';
778 print
'<input type="hidden" name="action" value="add">';
780 $htmltext =
'<i>'.$langs->trans(
"FollowingConstantsWillBeSubstituted").
':<br><br><span class="small">';
781 foreach (
$object->substitutionarray as $key => $val) {
782 $htmltext .= $key.
' = '.$langs->trans($val).
'<br>';
784 $htmltext .=
'</span></i>';
787 $availablelink = $form->textwithpicto(
'<span class="opacitymedium">'.$langs->trans(
"AvailableVariables").
'</span>', $htmltext, 1,
'helpclickable',
'', 0, 2,
'availvar');
792 print
load_fiche_titre($langs->trans(
"NewMailing"), $availablelink,
'object_email');
796 print
'<table class="border centpercent">';
798 print
'<tr><td class="fieldrequired titlefieldcreate">'.$langs->trans(
"MailTitle").
'</td><td><input class="flat minwidth300" name="title" value="'.
dol_escape_htmltag(
GETPOST(
'title')).
'" autofocus="autofocus"></td></tr>';
801 $arrayoftypes = array(
"email" =>
"Email",
"sms" =>
"SMS");
802 print
'<tr><td class="fieldrequired titlefieldcreate">'.$langs->trans(
"Type").
'</td><td>';
803 print $form->selectarray(
'messtype', $arrayoftypes, (GETPOSTISSET(
'messtype') ?
GETPOST(
'messtype') :
'email'), 0, 0);
806 $( document ).ready(function() {
807 jQuery("#messtype").on("change", function() {
808 console.log("We change the message ttpe");
809 if (jQuery("#messtype").val() == "email") {
810 jQuery(".fieldsforsms").hide();
811 jQuery(".fieldsforemail").show();
813 if (jQuery("#messtype").val() == "sms") {
814 jQuery(".fieldsforsms").show();
815 jQuery(".fieldsforemail").hide();
818 jQuery("#messtype").change();
828 print
'<table class="border centpercent">';
830 print
'<tr class="fieldsforemail"><td class="fieldrequired titlefieldcreate">'.$langs->trans(
"MailFrom").
'</td><td><input class="flat minwidth200" name="from" value="'.(GETPOSTISSET(
'from') ?
GETPOST(
'from') :
getDolGlobalString(
'MAILING_EMAIL_FROM')).
'"></td></tr>';
832 print
'<tr class="fieldsforsms hidden"><td class="fieldrequired titlefieldcreate">'.$langs->trans(
"PhoneFrom").
'</td><td><input class="flat minwidth200" name="fromphone" value="'.(GETPOSTISSET(
'fromphone') ?
GETPOST(
'fromphone') :
getDolGlobalString(
'MAILING_SMS_FROM')).
'" placeholder="+123..."></td></tr>';
834 print
'<tr class="fieldsforemail"><td>'.$langs->trans(
"MailErrorsTo").
'</td><td><input class="flat minwidth200" name="errorsto" value="'.
getDolGlobalString(
'MAILING_EMAIL_ERRORSTO',
getDolGlobalString(
'MAIN_MAIL_ERRORS_TO')).
'"></td></tr>';
837 $parameters = array();
838 $reshook = $hookmanager->executeHooks(
'formObjectOptions', $parameters,
$object, $action);
839 print $hookmanager->resPrint;
840 if (empty($reshook)) {
841 print
$object->showOptionals($extrafields,
'create');
847 print
'<table class="border centpercent">';
848 print
'<tr class="fieldsforemail"><td class="fieldrequired titlefieldcreate">'.$langs->trans(
"MailTopic").
'</td><td><input class="flat minwidth200 quatrevingtpercent" name="sujet" value="'.
dol_escape_htmltag(
GETPOST(
'sujet',
'alphanohtml')).
'"></td></tr>';
849 print
'<tr class="fieldsforemail"><td>'.$langs->trans(
"BackgroundColorByDefault").
'</td><td colspan="3">';
850 print $htmlother->selectColor(
GETPOST(
'bgcolor'),
'bgcolor',
'', 0);
854 $formmail->withfckeditor = 1;
855 $formmail->withlayout = 1;
856 $formmail->withaiprompt =
'html';
858 print
'<tr class="fieldsforemail"><td></td><td class="tdtop">';
861 $showlinktolayout = $formmail->withlayout && $formmail->withfckeditor;
862 $showlinktolayoutlabel = $langs->trans(
"FillMessageWithALayout");
863 $showlinktoai = ($formmail->withaiprompt && isModEnabled(
'ai')) ?
'textgenerationemail' :
'';
864 $showlinktoailabel = $langs->trans(
"FillMessageWithAIContent");
865 $formatforouput =
'html';
866 $htmlname =
'bodyemail';
869 include DOL_DOCUMENT_ROOT.
'/core/tpl/formlayoutai.tpl.php';
876 print
'<div style="padding-top: 10px">';
878 require_once DOL_DOCUMENT_ROOT.
'/core/class/doleditor.class.php';
879 $doleditor =
new DolEditor(
'bodyemail',
GETPOST(
'bodyemail',
'restricthtmlallowunvalid'),
'', 600,
'dolibarr_mailings',
'',
true,
true,
getDolGlobalInt(
'FCKEDITOR_ENABLE_MAILING'), 20,
'90%');
880 $doleditor->Create();
885 print $form->buttonsSaveCancel(
"Create",
'Cancel');
894 if ($action ==
'settodraft') {
896 print $form->formconfirm($_SERVER[
"PHP_SELF"].
"?id=".
$object->id, $langs->trans(
"SetToDraft"), $langs->trans(
"ConfirmUnvalidateEmailing"),
"confirm_settodraft",
'',
'', 1);
897 } elseif ($action ==
'valid') {
899 print $form->formconfirm($_SERVER[
"PHP_SELF"].
"?id=".
$object->id, $langs->trans(
"ValidMailing"), $langs->trans(
"ConfirmValidMailing"),
"confirm_valid",
'',
'', 1);
900 } elseif ($action ==
'reset') {
902 print $form->formconfirm($_SERVER[
"PHP_SELF"].
"?id=".
$object->id, $langs->trans(
"ResetMailing"), $langs->trans(
"ConfirmResetMailing",
$object->ref),
"confirm_reset",
'',
'', 2);
903 } elseif ($action ==
'delete') {
905 print $form->formconfirm($_SERVER[
"PHP_SELF"].
"?id=".
$object->id.(!empty($urlfrom) ?
'&urlfrom='.urlencode($urlfrom) :
''), $langs->trans(
"DeleteMailing"), $langs->trans(
"ConfirmDeleteMailing"),
"confirm_delete",
'',
'', 1);
908 if ($action !=
'edit' && $action !=
'edittxt' && $action !=
'edithtml') {
912 if ($action ==
'sendall') {
915 if (empty($sendingmode)) {
918 if (empty($sendingmode)) {
919 $sendingmode =
'mail';
929 $linktoadminemailbefore =
'<a href="'.DOL_URL_ROOT.
'/admin/mails_emailing.php">';
930 $linktoadminemailend =
'</a>';
931 setEventMessages($langs->trans(
"MailSendSetupIs", $listofmethods[$sendingmode]),
null,
'warnings');
932 $messagetoshow = $langs->trans(
"MailSendSetupIs2",
'{s1}',
'{s2}',
'{s3}',
'{s4}');
933 $messagetoshow = str_replace(
'{s1}', $linktoadminemailbefore, $messagetoshow);
934 $messagetoshow = str_replace(
'{s2}', $linktoadminemailend, $messagetoshow);
935 $messagetoshow = str_replace(
'{s3}', $langs->transnoentitiesnoconv(
"MAIN_MAIL_SENDMODE"), $messagetoshow);
936 $messagetoshow = str_replace(
'{s4}', $listofmethods[
'smtps'], $messagetoshow);
945 setEventMessages($langs->transnoentitiesnoconv($conf->global->MAILING_LIMIT_WARNING_PHPMAIL),
null,
'warnings');
947 if (
getDolGlobalString(
'MAILING_LIMIT_WARNING_NOPHPMAIL') && $sendingmode !=
'mail') {
948 setEventMessages($langs->transnoentitiesnoconv($conf->global->MAILING_LIMIT_WARNING_NOPHPMAIL),
null,
'warnings');
953 setEventMessages(
'<textarea cols="60" rows="'.ROWS_1.
'" wrap="soft">php ./scripts/emailings/mailing-send.php '.
$object->id.
'</textarea>',
null,
'warnings');
954 if ($conf->file->mailing_limit_sendbyweb !=
'-1') {
960 setEventMessages($langs->transnoentitiesnoconv($conf->global->MAILING_LIMIT_WARNING_PHPMAIL),
null,
'warnings');
962 if (
getDolGlobalString(
'MAILING_LIMIT_WARNING_NOPHPMAIL') && $sendingmode !=
'mail') {
963 setEventMessages($langs->transnoentitiesnoconv($conf->global->MAILING_LIMIT_WARNING_NOPHPMAIL),
null,
'warnings');
969 $text .= $langs->trans(
'WarningLimitSendByDay',
getDolGlobalInt(
'MAILING_LIMIT_SENDBYDAY'));
972 $text .= $langs->trans(
'ConfirmSendingEmailing').
'<br>';
973 $text .= $langs->trans(
'LimitSendingEmailing',
getDolGlobalString(
'MAILING_LIMIT_SENDBYWEB'));
975 if (!isset($conf->global->MAILING_LIMIT_SENDBYCLI) ||
getDolGlobalInt(
'MAILING_LIMIT_SENDBYCLI') >= 0) {
977 $text .=
'<u>'.$langs->trans(
"AdvancedAlternative").
':</u> '.$langs->trans(
"MailingNeedCommand");
978 $text .=
'<br><textarea class="quatrevingtpercent" rows="'.ROWS_2.
'" wrap="soft" disabled>php ./scripts/emailings/mailing-send.php '.
$object->id.
' '.$user->login.
'</textarea>';
981 print $form->formconfirm($_SERVER[
'PHP_SELF'].
'?id='.
$object->id, $langs->trans(
'SendMailing'), $text,
'sendallconfirmed',
'',
'', 1, 380, 660, 0, $langs->trans(
"Confirm"), $langs->trans(
"Cancel"));
985 $linkback =
'<a href="'.DOL_URL_ROOT.
'/comm/mailing/list.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToList").
'</a>';
987 $morehtmlref =
'<div class="refidno">';
989 $morehtmlref .= $form->editfieldkey(
"",
'title',
$object->title,
$object, $user->hasRight(
'mailing',
'creer'),
'string',
'', 0, 1);
990 $morehtmlref .= $form->editfieldval(
"",
'title',
$object->title,
$object, $user->hasRight(
'mailing',
'creer'),
'string',
'',
null,
null,
'', 1);
991 $morehtmlref .=
'</div>';
993 $morehtmlstatus =
'';
996 $nbtry =
$object->countNbOfTargets(
'alreadysent');
997 $nbko =
$object->countNbOfTargets(
'alreadysentko');
999 $morehtmlstatus .=
' ('.$nbtry.
'/'.
$object->nbemail;
1001 $morehtmlstatus .=
' - '.$nbko.
' '.$langs->trans(
"Error");
1003 $morehtmlstatus .=
') ';
1006 dol_banner_tab(
$object,
'id', $linkback, 1,
'rowid',
'ref', $morehtmlref,
'', 0,
'', $morehtmlstatus);
1008 print
'<div class="fichecenter">';
1009 print
'<div class="fichehalfleft">';
1010 print
'<div class="underbanner clearboth"></div>';
1011 print
'<table class="border centpercent tableforfield">'.
"\n";
1014 print
'<tr><td class="titlefield">';
1015 print $form->editfieldkey(
"MailFrom",
'email_from',
$object->email_from,
$object, $user->hasRight(
'mailing',
'creer') &&
$object->status < $object::STATUS_SENTCOMPLETELY,
'string');
1017 print $form->editfieldval(
"MailFrom",
'email_from',
$object->email_from,
$object, $user->hasRight(
'mailing',
'creer') &&
$object->status < $object::STATUS_SENTCOMPLETELY,
'string');
1020 $langs->load(
"errors");
1021 print
img_warning($langs->trans(
"ErrorBadEMail", $email));
1023 $langs->load(
"errors");
1024 print
img_warning($langs->trans(
"ErrorBadMXDomain", $email));
1030 if (
$object->messtype !=
'sms') {
1032 print $form->editfieldkey(
"MailErrorsTo",
'email_errorsto',
$object->email_errorsto,
$object, $user->hasRight(
'mailing',
'creer') &&
$object->status < $object::STATUS_SENTCOMPLETELY,
'string');
1034 print $form->editfieldval(
"MailErrorsTo",
'email_errorsto',
$object->email_errorsto,
$object, $user->hasRight(
'mailing',
'creer') &&
$object->status < $object::STATUS_SENTCOMPLETELY,
'string');
1036 foreach ($emailarray as $email => $name) {
1037 if ($name != $email) {
1041 $langs->load(
"errors");
1042 print
img_warning($langs->trans(
"ErrorBadEMail", $email));
1044 $langs->load(
"errors");
1045 print
img_warning($langs->trans(
"ErrorBadMXDomain", $email));
1055 if (
$object->messtype !=
'sms') {
1057 print $form->editfieldkey(
"MailReply",
'email_replyto',
$object->email_replyto,
$object, $user->hasRight(
'mailing',
'creer') &&
$object->status < $object::STATUS_SENTCOMPLETELY,
'string');
1059 print $form->editfieldval(
"MailReply",
'email_replyto',
$object->email_replyto,
$object, $user->hasRight(
'mailing',
'creer') &&
$object->status < $object::STATUS_SENTCOMPLETELY,
'string');
1061 if ($action !=
'editemail_replyto') {
1063 $langs->load(
"errors");
1064 print
img_warning($langs->trans(
"ErrorBadEMail", $email));
1066 $langs->load(
"errors");
1067 print
img_warning($langs->trans(
"ErrorBadMXDomain", $email));
1076 print
'<div class="fichehalfright">';
1077 print
'<div class="underbanner clearboth"></div>';
1079 print
'<table class="border centpercent tableforfield">';
1083 print $langs->trans(
"TotalNbOfDistinctRecipients");
1086 if (is_numeric($nbemail)) {
1090 $text .= $langs->trans(
'LimitSendingEmailing',
getDolGlobalString(
'MAILING_LIMIT_SENDBYWEB'));
1092 $text .= $langs->trans(
'SendingFromWebInterfaceIsNotAllowed');
1095 if (empty($nbemail)) {
1096 $nbemail .=
' '.img_warning(
'').
' <span class="warning">'.$langs->trans(
"NoTargetYet").
'</span>';
1099 print $form->textwithpicto($nbemail, $text, 1,
'warning');
1107 print $langs->trans(
"MAIN_MAIL_SENDMODE");
1109 if (
$object->messtype !=
'sms') {
1115 $text = $listofmethods[
'mail'];
1120 print
' <span class="opacitymedium">('.getDolGlobalString(
'MAIN_MAIL_SMTP_SERVER_EMAILING',
getDolGlobalString(
'MAIN_MAIL_SMTP_SERVER')).
')</span>';
1123 print
' <span class="opacitymedium">('.getDolGlobalString(
'MAIN_MAIL_SMTP_SERVER').
')</span>';
1127 print
' <span class="opacitymedium">('.getDolGlobalString(
'MAIN_MAIL_SMTP_SERVER').
')</span>';
1132 include DOL_DOCUMENT_ROOT.
'/core/tpl/extrafields_view.tpl.php';
1138 print
'<div class="clearboth"></div>';
1144 if ($action ==
'clone') {
1146 $formquestion = array(
1147 'text' => $langs->trans(
"ConfirmClone"),
1148 0 => array(
'type' =>
'checkbox',
'name' =>
'clone_content',
'label' => $langs->trans(
"CloneContent"),
'value' => 1),
1149 1 => array(
'type' =>
'checkbox',
'name' =>
'clone_receivers',
'label' => $langs->trans(
"CloneReceivers"),
'value' => 0)
1152 print $form->formconfirm($_SERVER[
"PHP_SELF"].
'?id='.
$object->id, $langs->trans(
'ToClone'), $langs->trans(
'ConfirmCloneEMailing',
$object->ref),
'confirm_clone', $formquestion,
'yes', 2, 240);
1156 if (
GETPOST(
'cancel',
'alpha') || $confirm ==
'no' || $action ==
'' || in_array($action, array(
'settodraft',
'valid',
'delete',
'sendall',
'clone',
'test',
'editevenunsubscribe'))) {
1157 print
"\n\n<div class=\"tabsAction\">\n";
1159 if ((
$object->status == 1) && ($user->hasRight(
'mailing',
'valider') ||
$object->user_validation_id == $user->id)) {
1160 print
'<a class="butAction" href="'.$_SERVER[
'PHP_SELF'].
'?action=settodraft&token='.
newToken().
'&id='.
$object->id.
'">'.$langs->trans(
"SetToDraft").
'</a>';
1163 if ((
$object->status == 0 ||
$object->status == 1 ||
$object->status == 2) && $user->hasRight(
'mailing',
'creer')) {
1165 print
'<a class="butAction" href="'.$_SERVER[
'PHP_SELF'].
'?action=edit&token='.
newToken().
'&id='.
$object->id.
'">'.$langs->trans(
"Edit").
'</a>';
1167 print
'<a class="butAction" href="'.$_SERVER[
'PHP_SELF'].
'?action=edittxt&token='.
newToken().
'&id='.
$object->id.
'">'.$langs->trans(
"EditWithTextEditor").
'</a>';
1171 if (!empty($conf->use_javascript_ajax)) {
1172 print
'<a class="butAction" href="'.$_SERVER[
'PHP_SELF'].
'?action=edithtml&token='.
newToken().
'&id='.
$object->id.
'">'.$langs->trans(
"EditHTMLSource").
'</a>';
1179 if (
getDolGlobalString(
'MAIN_USE_ADVANCED_PERMS') && !$user->hasRight(
'mailing',
'mailing_advance',
'send')) {
1180 print
'<a class="butActionRefused classfortooltip" href="#" title="'.dol_escape_htmltag($langs->transnoentitiesnoconv(
"NotEnoughPermissions")).
'">'.$langs->trans(
"TestMailing").
'</a>';
1182 print
'<a class="butAction" href="'.$_SERVER[
'PHP_SELF'].
'?action=test&token='.
newToken().
'&id='.
$object->id.
'">'.$langs->trans(
"TestMailing").
'</a>';
1187 print
'<a class="butActionRefused classfortooltip" href="#" title="'.dol_escape_htmltag($langs->transnoentitiesnoconv(
"NoTargetYet")).
'">'.$langs->trans(
"Validate").
'</a>';
1188 } elseif (!$user->hasRight(
'mailing',
'valider')) {
1189 print
'<a class="butActionRefused classfortooltip" href="#" title="'.dol_escape_htmltag($langs->transnoentitiesnoconv(
"NotEnoughPermissions")).
'">'.$langs->trans(
"Validate").
'</a>';
1191 print
'<a class="butAction" href="'.$_SERVER[
'PHP_SELF'].
'?action=valid&id='.
$object->id.
'">'.$langs->trans(
"Validate").
'</a>';
1195 if ((
$object->status == 1 ||
$object->status == 2) &&
$object->nbemail > 0 && $user->hasRight(
'mailing',
'valider')) {
1197 print
'<a class="butActionRefused classfortooltip" href="#" title="'.dol_escape_htmltag($langs->transnoentitiesnoconv(
"SendingFromWebInterfaceIsNotAllowed")).
'">'.$langs->trans(
"SendMailing").
'</a>';
1198 } elseif (
getDolGlobalString(
'MAIN_USE_ADVANCED_PERMS') && !$user->hasRight(
'mailing',
'mailing_advance',
'send')) {
1199 print
'<a class="butActionRefused classfortooltip" href="#" title="'.dol_escape_htmltag($langs->transnoentitiesnoconv(
"NotEnoughPermissions")).
'">'.$langs->trans(
"SendMailing").
'</a>';
1201 print
'<a class="butAction" href="'.$_SERVER[
'PHP_SELF'].
'?action=sendall&id='.
$object->id.
'">'.$langs->trans(
"SendMailing").
'</a>';
1205 if ($user->hasRight(
'mailing',
'creer')) {
1206 print
'<a class="butAction" href="'.$_SERVER[
'PHP_SELF'].
'?action=clone&object=emailing&id='.
$object->id.
'">'.$langs->trans(
"ToClone").
'</a>';
1209 if ((
$object->status == 2 ||
$object->status == 3) && $user->hasRight(
'mailing',
'valider')) {
1210 if (
getDolGlobalString(
'MAIN_USE_ADVANCED_PERMS') && !$user->hasRight(
'mailing',
'mailing_advance',
'send')) {
1211 print
'<a class="butActionRefused classfortooltip" href="#" title="'.dol_escape_htmltag($langs->transnoentitiesnoconv(
"NotEnoughPermissions")).
'">'.$langs->trans(
"ResetMailing").
'</a>';
1213 print
'<a class="butAction" href="'.$_SERVER[
'PHP_SELF'].
'?action=reset&id='.
$object->id.
'">'.$langs->trans(
"ResetMailing").
'</a>';
1217 if ((
$object->status <= 1 && $user->hasRight(
'mailing',
'creer')) || $user->hasRight(
'mailing',
'supprimer')) {
1218 if (
$object->status > 0 && (
getDolGlobalString(
'MAIN_USE_ADVANCED_PERMS') && !$user->hasRight(
'mailing',
'mailing_advance',
'delete'))) {
1219 print
'<a class="butActionRefused classfortooltip" href="#" title="'.dol_escape_htmltag($langs->transnoentitiesnoconv(
"NotEnoughPermissions")).
'">'.$langs->trans(
"Delete").
'</a>';
1221 print
'<a class="butActionDelete" href="'.$_SERVER[
'PHP_SELF'].
'?action=delete&token='.
newToken().
'&id='.
$object->id.(!empty($urlfrom) ?
'&urlfrom='.$urlfrom :
'').
'">'.$langs->trans(
"Delete").
'</a>';
1229 if ($action ==
'test') {
1230 print
'<div id="formmailbeforetitle" name="formmailbeforetitle"></div>';
1236 include_once DOL_DOCUMENT_ROOT.
'/core/class/html.formmail.class.php';
1238 $formmail->fromname =
$object->email_from;
1239 $formmail->frommail =
$object->email_from;
1240 $formmail->withsubstit = 0;
1241 $formmail->withfrom = 0;
1242 $formmail->withto = $user->email ? $user->email : 1;
1243 $formmail->withtocc = 0;
1245 $formmail->withtopic = 0;
1246 $formmail->withtopicreadonly = 1;
1247 $formmail->withfile = 0;
1248 $formmail->withlayout = 0;
1249 $formmail->withaiprompt =
'';
1250 $formmail->withbody = 0;
1251 $formmail->withbodyreadonly = 1;
1252 $formmail->withcancel = 1;
1253 $formmail->withdeliveryreceipt = 0;
1255 $formmail->substit =
$object->substitutionarrayfortest;
1257 $formmail->param[
"action"] =
"send";
1258 $formmail->param[
"models"] =
'none';
1259 $formmail->param[
"mailid"] =
$object->id;
1260 $formmail->param[
"returnurl"] = $_SERVER[
'PHP_SELF'].
"?id=".
$object->id;
1262 print $formmail->get_form();
1272 $htmltext =
'<i>'.$langs->trans(
"FollowingConstantsWillBeSubstituted").
':<br><br><span class="small">';
1273 foreach (
$object->substitutionarray as $key => $val) {
1274 $htmltext .= $key.
' = '.$langs->trans($val).
'<br>';
1276 $htmltext .=
'</span></i>';
1279 print
load_fiche_titre($langs->trans(
"EMail"), $form->textwithpicto(
'<span class="opacitymedium hideonsmartphone">'.$langs->trans(
"AvailableVariables").
'</span>', $htmltext, 1,
'helpclickable',
'', 0, 3,
'emailsubstitionhelp'),
'generic');
1283 print
'<table class="bordernooddeven tableforfield centpercent">';
1286 if (
$object->messtype !=
'sms') {
1287 print
'<tr><td class="titlefield">'.$langs->trans(
"MailTopic").
'</td><td colspan="3">'.
$object->sujet.
'</td></tr>';
1291 if (
$object->messtype !=
'sms') {
1292 print
'<tr><td>'.$langs->trans(
"MailFile").
'</td><td colspan="3">';
1294 $listofpaths =
dol_dir_list($upload_dir,
'all', 0,
'',
'',
'name', SORT_ASC, 0);
1295 if (count($listofpaths)) {
1296 foreach ($listofpaths as $key => $val) {
1297 print
img_mime($listofpaths[$key][
'name']).
' '.$listofpaths[$key][
'name'];
1301 print
'<span class="opacitymedium">'.$langs->trans(
"NoAttachedFiles").
'</span><br>';
1314 print
'<div style="padding-top: 10px; background: '.($object->bgcolor ? (preg_match(
'/^#/',
$object->bgcolor) ?
'' :
'#').
$object->bgcolor :
'white').
'">';
1315 if (empty(
$object->bgcolor) || strtolower(
$object->bgcolor) ==
'ffffff') {
1318 require_once DOL_DOCUMENT_ROOT.
'/core/class/doleditor.class.php';
1319 $doleditor =
new DolEditor(
'bodyemail',
$object->body,
'', 600,
'dolibarr_mailings',
'',
false,
true, !
getDolGlobalString(
'FCKEDITOR_ENABLE_MAILING') ? 0 : 1, 20,
'90%', $readonly);
1320 $doleditor->Create();
1334 $linkback =
'<a href="'.DOL_URL_ROOT.
'/comm/mailing/list.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToList").
'</a>';
1336 $morehtmlref =
'<div class="refidno">';
1338 $morehtmlref .= $form->editfieldkey(
"",
'title',
$object->title,
$object, $user->hasRight(
'mailing',
'creer'),
'string',
'', 0, 1);
1339 $morehtmlref .= $form->editfieldval(
"",
'title',
$object->title,
$object, $user->hasRight(
'mailing',
'creer'),
'string',
'',
null,
null,
'', 1);
1340 $morehtmlref .=
'</div>';
1342 $morehtmlstatus =
'';
1345 $nbtry =
$object->countNbOfTargets(
'alreadysent');
1346 $nbko =
$object->countNbOfTargets(
'alreadysentko');
1348 $morehtmlstatus .=
' ('.$nbtry.
'/'.
$object->nbemail;
1350 $morehtmlstatus .=
' - '.$nbko.
' '.$langs->trans(
"Error");
1352 $morehtmlstatus .=
') ';
1355 dol_banner_tab(
$object,
'id', $linkback, 1,
'rowid',
'ref', $morehtmlref,
'', 0,
'', $morehtmlstatus);
1357 print
'<div class="fichecenter">';
1358 print
'<div class="fichehalfleft">';
1359 print
'<div class="underbanner clearboth"></div>';
1361 print
'<table class="border centpercent tableforfield">';
1371 print
'<tr><td class="titlefield">';
1372 print $langs->trans(
"MailFrom");
1373 print
'</td><td>'.dol_print_email(
$object->email_from, 0, 0, 0, 0, 1).
'</td></tr>';
1375 if (
$object->messtype !=
'sms') {
1376 print
'<tr><td>'.$langs->trans(
"MailErrorsTo").
'</td><td>'.
dol_print_email(
$object->email_errorsto, 0, 0, 0, 0, 1).
'</td></tr>';
1383 print
'<div class="fichehalfright">';
1384 print
'<div class="underbanner clearboth"></div>';
1386 print
'<table class="border centpercent tableforfield">';
1390 print $langs->trans(
"TotalNbOfDistinctRecipients");
1393 if (is_numeric($nbemail)) {
1395 if ((
getDolGlobalString(
'MAILING_LIMIT_SENDBYWEB') && $conf->global->MAILING_LIMIT_SENDBYWEB < $nbemail) && (
$object->status == 1 ||
$object->status == 2)) {
1397 $text .= $langs->trans(
'LimitSendingEmailing',
getDolGlobalString(
'MAILING_LIMIT_SENDBYWEB'));
1399 $text .= $langs->trans(
'SendingFromWebInterfaceIsNotAllowed');
1402 if (empty($nbemail)) {
1403 $nbemail .=
' '.img_warning(
'').
' <span class="warning">'.$langs->trans(
"NoTargetYet").
'</span>';
1406 print $form->textwithpicto($nbemail, $text, 1,
'warning');
1414 print $langs->trans(
"MAIN_MAIL_SENDMODE");
1421 $text = $listofmethods[
'mail'];
1426 print
' <span class="opacitymedium">('.getDolGlobalString(
'MAIN_MAIL_SMTP_SERVER_EMAILING').
')</span>';
1429 print
' <span class="opacitymedium">('.getDolGlobalString(
'MAIN_MAIL_SMTP_SERVER').
')</span>';
1435 $parameters = array();
1436 $reshook = $hookmanager->executeHooks(
'formObjectOptions', $parameters,
$object, $action);
1437 print $hookmanager->resPrint;
1438 if (empty($reshook)) {
1439 print
$object->showOptionals($extrafields,
'edit', $parameters);
1446 print
'<div class="clearboth"></div>';
1453 print
'<form name="edit_mailing" action="card.php" method="post" enctype="multipart/form-data">'.
"\n";
1454 print
'<input type="hidden" name="token" value="'.newToken().
'">';
1455 print
'<input type="hidden" name="action" value="update">';
1456 print
'<input type="hidden" name="id" value="'.$object->id.
'">';
1458 $htmltext =
'<i>'.$langs->trans(
"FollowingConstantsWillBeSubstituted").
':<br><br><span class="small">';
1459 foreach (
$object->substitutionarray as $key => $val) {
1460 $htmltext .= $key.
' = '.$langs->trans($val).
'<br>';
1462 $htmltext .=
'</span></i>';
1465 print
load_fiche_titre($langs->trans(
"EMail"),
'<span class="opacitymedium">'.$form->textwithpicto($langs->trans(
"AvailableVariables").
'</span>', $htmltext, 1,
'help',
'', 0, 2,
'emailsubstitionhelp'),
'generic');
1469 print
'<table class="bordernooddeven centpercent">';
1472 if (
$object->messtype !=
'sms') {
1473 print
'<tr><td class="fieldrequired titlefield">';
1474 print $langs->trans(
"MailTopic");
1475 print
'</td><td colspan="3"><input class="flat quatrevingtpercent" type="text" name="sujet" value="'.$object->sujet.
'"></td></tr>';
1482 if (
$object->messtype !=
'sms') {
1483 $addfileaction =
'addfile';
1484 print
'<tr><td>'.$langs->trans(
"MailFile").
'</td>';
1485 print
'<td colspan="3">';
1487 $listofpaths =
dol_dir_list($upload_dir,
'all', 0,
'',
'',
'name', SORT_ASC, 0);
1491 $out .=
'<input type="hidden" class="removedfilehidden" name="removedfile" value="">'.
"\n";
1492 $out .=
'<script type="text/javascript">';
1493 $out .=
'jQuery(document).ready(function () {';
1494 $out .=
' jQuery(".removedfile").click(function() {';
1495 $out .=
' jQuery(".removedfilehidden").val(jQuery(this).val());';
1498 $out .=
'</script>'.
"\n";
1499 if (count($listofpaths)) {
1500 foreach ($listofpaths as $key => $val) {
1501 $out .=
'<div id="attachfile_'.$key.
'">';
1502 $out .=
img_mime($listofpaths[$key][
'name']).
' '.$listofpaths[$key][
'name'];
1503 $out .=
' <input type="image" style="border: 0px;" src="'.img_picto($langs->trans(
"Search"),
'delete.png',
'',
'', 1).
'" value="'.($key + 1).
'" class="removedfile" id="removedfile_'.$key.
'" name="removedfile_'.$key.
'" />';
1504 $out .=
'<br></div>';
1512 $maxmin = $maxfilesizearray[
'maxmin'];
1514 $out .=
'<input type="hidden" name="MAX_FILE_SIZE" value="'.($maxmin * 1024).
'">';
1516 $out .=
'<input type="file" class="flat" id="addedfile" name="addedfile" value="'.$langs->trans(
"Upload").
'" />';
1518 $out .=
'<input type="submit" class="button smallpaddingimp" id="'.$addfileaction.
'" name="'.$addfileaction.
'" value="'.$langs->trans(
"MailingAddFile").
'" />';
1523 print
'<tr><td>'.$langs->trans(
"BackgroundColorByDefault").
'</td><td colspan="3">';
1524 print $htmlother->selectColor(
$object->bgcolor,
'bgcolor',
'', 0);
1532 print
'<div style="padding-top: 10px">';
1534 if ($action ==
'edit') {
1536 require_once DOL_DOCUMENT_ROOT.
'/core/class/doleditor.class.php';
1537 $doleditor =
new DolEditor(
'bodyemail',
$object->body,
'', 600,
'dolibarr_mailings',
'',
true,
true,
getDolGlobalInt(
'FCKEDITOR_ENABLE_MAILING'), 20,
'90%');
1538 $doleditor->Create();
1540 if ($action ==
'edittxt') {
1542 require_once DOL_DOCUMENT_ROOT.
'/core/class/doleditor.class.php';
1543 $doleditor =
new DolEditor(
'bodyemail',
$object->body,
'', 600,
'dolibarr_mailings',
'',
true,
true, 0, 20,
'90%');
1544 $doleditor->Create();
1546 if ($action ==
'edithtml') {
1548 require_once DOL_DOCUMENT_ROOT.
'/core/class/doleditor.class.php';
1549 $doleditor =
new DolEditor(
'bodyemail',
$object->body,
'', 600,
'dolibarr_mailings',
'',
true,
true,
'ace', 20,
'90%');
1550 $doleditor->Create(0,
'',
false,
'HTML Source',
'php');
1558 print
'<div class="center">';
1559 print
'<input type="submit" class="button buttonforacesave button-save" value="'.$langs->trans(
"Save").
'" name="save">';
1560 print
' ';
1561 print
'<input type="submit" class="button button-cancel" value="'.$langs->trans(
"Cancel").
'" name="cancel">';
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Class to send emails (with attachments or not) Usage: $mailfile = new CMailFile($subject,...
static getValidAddress($address, $format, $encode=0, $maxnumberofemail=0)
Return a formatted address string for SMTP protocol.
static getArrayAddress($address)
Return a formatted array of address string for SMTP protocol.
Class to manage a WYSIWYG editor.
Class to manage emailings module.
Class to manage third parties objects (customers, suppliers, prospects...)
emailing_prepare_head(Mailing $object)
Prepare array with list of tabs.
dol_add_file_process($upload_dir, $allowoverwrite=0, $updatesessionordb=0, $varfiles='addedfile', $savingdocmask='', $link=null, $trackid='', $generatethumbs=1, $object=null)
Get and save an upload file (for example after submitting a new file a mail form).
dol_init_file_process($pathtoscan='', $trackid='')
Scan a directory and init $_SESSION to manage uploaded files with list of all found files.
dol_remove_file_process($filenb, $donotupdatesession=0, $donotdeletefile=1, $trackid='')
Remove an uploaded file (for example after submitting a new file a mail form).
dol_dir_list($utf8_path, $types="all", $recursive=0, $filter="", $excludefilter=null, $sortcriteria="name", $sortorder=SORT_ASC, $mode=0, $nohook=0, $relativename="", $donotfollowsymlinks=0, $nbsecondsold=0)
Scan a directory and return a list of files/directories.
isValidMailDomain($mail)
Return true if email has a domain name that can be resolved to MX type.
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
img_warning($titlealt='default', $moreatt='', $morecss='pictowarning')
Show warning logo.
dol_mimetype($file, $default='application/octet-stream', $mode=0)
Return MIME type of a file from its name with extension.
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
dol_print_email($email, $cid=0, $socid=0, $addlink=0, $max=64, $showinvalid=1, $withpicto=0)
Show EMail link formatted for HTML output.
dol_now($mode='auto')
Return date for now.
img_mime($file, $titlealt='', $morecss='')
Show MIME img of a file.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
dol_set_focus($selector)
Set focus onto field with selector (similar behaviour of 'autofocus' HTML5 tag)
newToken()
Return the value of token currently saved into session with name 'newtoken'.
dolGetFirstLastname($firstname, $lastname, $nameorder=-1)
Return firstname and lastname in correct order.
complete_substitutions_array(&$substitutionarray, $outputlangs, $object=null, $parameters=null, $callfunc="completesubstitutionarray")
Complete the $substitutionarray with more entries coming from external module that had set the "subst...
make_substitutions($text, $substitutionarray, $outputlangs=null, $converttextinhtmlifnecessary=0)
Make substitution into a text string, replacing keys with vals from $substitutionarray (oldval=>newva...
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_htmlentitiesbr($stringtoencode, $nl2brmode=0, $pagecodefrom='UTF-8', $removelasteolbr=1)
This function is called to encode a string into a HTML string but differs from htmlentities because a...
getCommonSubstitutionArray($outputlangs, $onlykey=0, $exclude=null, $object=null, $include=null)
Return array of possible common substitutions.
isValidEmail($address, $acceptsupervisorkey=0, $acceptuserkey=0)
Return true if email syntax is ok.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
get_exdir($num, $level, $alpha, $withoutslash, $object, $modulepart='')
Return a path to have a the directory according to object where files are stored.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
getMaxFileSizeArray()
Return the max allowed for file upload.
dol_hash($chain, $type='0', $nosalt=0)
Returns a hash (non reversible encryption) of a string.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.