* Copyright (C) 2005-2011 Laurent Destailleur * * 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, see . */ /** * \file htdocs/comm/mailing/fiche.php * \ingroup mailing * \brief Fiche mailing, onglet general * \version $Id: fiche.php,v 1.123 2011/08/03 00:46:33 eldy Exp $ */ require("../../main.inc.php"); require_once(DOL_DOCUMENT_ROOT."/lib/emailing.lib.php"); require_once(DOL_DOCUMENT_ROOT.'/lib/files.lib.php'); require_once(DOL_DOCUMENT_ROOT."/lib/CMailFile.class.php"); require_once(DOL_DOCUMENT_ROOT."/lib/functions2.lib.php"); require_once(DOL_DOCUMENT_ROOT."/comm/mailing/class/mailing.class.php"); require_once(DOL_DOCUMENT_ROOT."/core/class/html.formother.class.php"); $langs->load("mails"); if (! $user->rights->mailing->lire || $user->societe_id > 0) accessforbidden(); $message = ''; // Tableau des substitutions possibles $substitutionarray=array( '__ID__' => 'IdRecord', '__EMAIL__' => 'EMail', '__LASTNAME__' => 'Lastname', '__FIRSTNAME__' => 'Firstname', '__OTHER1__' => 'Other1', '__OTHER2__' => 'Other2', '__OTHER3__' => 'Other3', '__OTHER4__' => 'Other4', '__OTHER5__' => 'Other5' ); $substitutionarrayfortest=array( '__ID__' => 'TESTIdRecord', '__EMAIL__' => 'TESTEMail', '__LASTNAME__' => 'TESTLastname', '__FIRSTNAME__' => 'TESTFirstname', '__OTHER1__' => 'TESTOther1', '__OTHER2__' => 'TESTOther2', '__OTHER3__' => 'TESTOther3', '__OTHER4__' => 'TESTOther4', '__OTHER5__' => 'TESTOther5' ); // Action clone object if ($_POST["action"] == 'confirm_clone' && $_POST['confirm'] == 'yes') { if (empty($_REQUEST["clone_content"]) && empty($_REQUEST["clone_receivers"])) { $mesg='

'.$langs->trans("NoCloneOptionsSpecified").'

'; } else { $object=new Mailing($db); $result=$object->createFromClone($_REQUEST['id'],$_REQUEST["clone_content"],$_REQUEST["clone_receivers"]); if ($result > 0) { header("Location: ".$_SERVER['PHP_SELF'].'?id='.$result); exit; } else { $mesg=$object->error; $_GET['action']=''; $_GET['id']=$_REQUEST['id']; } } } // Action send emailing for everybody if ($_REQUEST["action"] == 'sendallconfirmed' && $_REQUEST['confirm'] == 'yes') { if (empty($conf->global->MAILING_LIMIT_SENDBYWEB)) { // Pour des raisons de securite, on ne permet pas cette fonction via l'IHM, // on affiche donc juste un message $message='

'.$langs->trans("MailingNeedCommand").'

'; $message.='
'; $message.='

'.$langs->trans("MailingNeedCommand2").'

'; $_GET["action"]=''; } else if ($conf->global->MAILING_LIMIT_SENDBYWEB < 0) { $message='

'.$langs->trans("NotEnoughPermissions").'

'; $_GET["action"]=''; } else { $mil=new Mailing($db); $result=$mil->fetch($_REQUEST['id']); $upload_dir = $conf->mailing->dir_output . "/" . get_exdir($mil->id,2,0,1); if ($mil->statut == 0) { dol_print_error('','ErrorMailIsNotValidated'); exit; } $id = $mil->id; $subject = $mil->sujet; $message = $mil->body; $from = $mil->email_from; $replyto = $mil->email_replyto; $errorsto = $mil->email_errorsto; // Le message est-il en html $msgishtml=-1; // Unknown by default if (preg_match('/[\s\t]*/i',$message)) $msgishtml=1; // Warning, we must not use begin-commit transaction here // because we want to save update for each mail sent. $nbok=0; $nbko=0; // On choisit les mails non deja envoyes pour ce mailing (statut=0) // ou envoyes en erreur (statut=-1) $sql = "SELECT mc.rowid, mc.nom, mc.prenom, mc.email, mc.other, mc.source_url, mc.source_id, mc.source_type"; $sql .= " FROM ".MAIN_DB_PREFIX."mailing_cibles as mc"; $sql .= " WHERE mc.statut < 1 AND mc.fk_mailing = ".$id; dol_syslog("fiche.php: select targets sql=".$sql, LOG_DEBUG); $resql=$db->query($sql); if ($resql) { $num = $db->num_rows($resql); // nb of possible recipients if ($num) { dol_syslog("comm/mailing/fiche.php: nb of targets = ".$num, LOG_DEBUG); // Positionne date debut envoi $sql="UPDATE ".MAIN_DB_PREFIX."mailing SET date_envoi=".$db->idate(gmmktime())." WHERE rowid=".$id; $resql2=$db->query($sql); if (! $resql2) { dol_print_error($db); } // Boucle sur chaque adresse et envoie le mail $i = 0; while ($i < $num && $i < $conf->global->MAILING_LIMIT_SENDBYWEB) { $res=1; $obj = $db->fetch_object($resql); // sendto en RFC2822 $sendto = str_replace(',',' ',$obj->prenom." ".$obj->nom)." <".$obj->email.">"; // Make substitutions on topic and body. From (AA=YY;BB=CC;...) we keep YY, CC, ... $other=explode(';',$obj->other); $tmpfield=explode('=',$other[0],2); $other1=(isset($tmpfield[1])?$tmpfield[1]:$tmpfield[0]); $tmpfield=explode('=',$other[1],2); $other2=(isset($tmpfield[1])?$tmpfield[1]:$tmpfield[0]); $tmpfield=explode('=',$other[2],2); $other3=(isset($tmpfield[1])?$tmpfield[1]:$tmpfield[0]); $tmpfield=explode('=',$other[3],2); $other4=(isset($tmpfield[1])?$tmpfield[1]:$tmpfield[0]); $tmpfield=explode('=',$other[4],2); $other5=(isset($tmpfield[1])?$tmpfield[1]:$tmpfield[0]); $substitutionarray=array( '__ID__' => $obj->source_id, '__EMAIL__' => $obj->email, '__LASTNAME__' => $obj->nom, '__FIRSTNAME__' => $obj->prenom, '__OTHER1__' => $other1, '__OTHER2__' => $other2, '__OTHER3__' => $other3, '__OTHER4__' => $other4, '__OTHER5__' => $other5 ); $substitutionisok=true; complete_substitutions_array($substitutionarray, $langs); $newsubject=make_substitutions($subject,$substitutionarray); $newmessage=make_substitutions($message,$substitutionarray); $arr_file = array(); $arr_mime = array(); $arr_name = array(); $arr_css = array(); $listofpaths=dol_dir_list($upload_dir,'all',0,'','','name',SORT_ASC,0); if (sizeof($listofpaths)) { foreach($listofpaths as $key => $val) { $arr_file[]=$listofpaths[$key]['fullname']; $arr_mime[]=dol_mimetype($listofpaths[$key]['name']); $arr_name[]=$listofpaths[$key]['name']; } } // Fabrication du mail $mail = new CMailFile($newsubject, $sendto, $from, $newmessage, $arr_file, $arr_mime, $arr_name, '', '', 0, $msgishtml, $errorsto, $arr_css); if ($mail->error) { $res=0; } if (! $substitutionisok) { $mail->error='Some substitution failed'; $res=0; } // Send mail if ($res) { $res=$mail->sendfile(); } if ($res) { // Mail successful $nbok++; dol_syslog("comm/mailing/fiche.php: ok for #".$i.($mail->error?' - '.$mail->error:''), LOG_DEBUG); $sql="UPDATE ".MAIN_DB_PREFIX."mailing_cibles"; $sql.=" SET statut=1, date_envoi=".$db->idate(gmmktime())." WHERE rowid=".$obj->rowid; $resql2=$db->query($sql); if (! $resql2) { dol_print_error($db); } } else { // Mail failed $nbko++; dol_syslog("comm/mailing/fiche.php: error for #".$i.($mail->error?' - '.$mail->error:''), LOG_WARNING); $sql="UPDATE ".MAIN_DB_PREFIX."mailing_cibles"; $sql.=" SET statut=-1, date_envoi=".$db->idate(gmmktime())." WHERE rowid=".$obj->rowid; $resql2=$db->query($sql); if (! $resql2) { dol_print_error($db); } } $i++; } } // Loop finished, set global statut of mail if ($nbko > 0) { $statut=2; // Status 'sent partially' (because at least one error) } else { if ($nbok >= $num) $statut=3; // Send to everybody else $statut=2; // Status 'sent partially' (because not send to everybody) } $sql="UPDATE ".MAIN_DB_PREFIX."mailing SET statut=".$statut." WHERE rowid=".$id; dol_syslog("comm/mailing/fiche.php: update global status sql=".$sql, LOG_DEBUG); $resql2=$db->query($sql); if (! $resql2) { dol_print_error($db); } } else { dol_syslog($db->error()); dol_print_error($db); } $message=''; $_GET["action"] = ''; } } // Action send test emailing if ($_POST["action"] == 'send' && empty($_POST["cancel"])) { $mil = new Mailing($db); $result=$mil->fetch($_POST["mailid"]); $error=0; $upload_dir = $conf->mailing->dir_output . "/" . get_exdir($mil->id,2,0,1); $mil->sendto = $_POST["sendto"]; if (! $mil->sendto) { $message='

'.$langs->trans("ErrorFieldRequired",$langs->trans("MailTo")).'

'; $error++; } if (! $error) { // Le message est-il en html $msgishtml=-1; // Inconnu par defaut if (preg_match('/[\s\t]*/i',$message)) $msgishtml=1; // Pratique les substitutions sur le sujet et message $mil->sujet=make_substitutions($mil->sujet,$substitutionarrayfortest,$langs); $mil->body=make_substitutions($mil->body,$substitutionarrayfortest,$langs); $arr_file = array(); $arr_mime = array(); $arr_name = array(); $arr_css = array(); // Ajout CSS if (!empty($mil->bgcolor)) $arr_css['bgcolor'] = (preg_match('/^#/',$mil->bgcolor)?'':'#').$mil->bgcolor; if (!empty($mil->bgimage)) $arr_css['bgimage'] = $mil->bgimage; // Attached files $listofpaths=dol_dir_list($upload_dir,'all',0,'','','name',SORT_ASC,0); if (sizeof($listofpaths)) { foreach($listofpaths as $key => $val) { $arr_file[]=$listofpaths[$key]['fullname']; $arr_mime[]=dol_mimetype($listofpaths[$key]['name']); $arr_name[]=$listofpaths[$key]['name']; } } $mailfile = new CMailFile($mil->sujet,$mil->sendto,$mil->email_from,$mil->body, $arr_file,$arr_mime,$arr_name,'', '', 0, $msgishtml,$mil->email_errorsto,$arr_css); $result=$mailfile->sendfile(); if ($result) { $message='

'.$langs->trans("MailSuccessfulySent",$mailfile->getValidAddress($mil->email_from,2),$mailfile->getValidAddress($mil->sendto,2)).'

'; } else { $message='

'.$langs->trans("ResultKo").'
'.$mailfile->error.' '.$result.'

'; } $_GET["action"]=''; $_GET["id"]=$mil->id; } } // Action add emailing if ($_POST["action"] == 'add') { $message=''; $mil = new Mailing($db); $mil->email_from = trim($_POST["from"]); $mil->email_replyto = trim($_POST["replyto"]); $mil->email_errorsto = trim($_POST["errorsto"]); $mil->titre = trim($_POST["titre"]); $mil->sujet = trim($_POST["sujet"]); $mil->body = trim($_POST["body"]); $mil->bgcolor = trim($_POST["bgcolor"]); $mil->bgimage = trim($_POST["bgimage"]); if (! $mil->titre) $message.=($message?'
':'').$langs->trans("ErrorFieldRequired",$langs->trans("MailTitle")); if (! $mil->sujet) $message.=($message?'
':'').$langs->trans("ErrorFieldRequired",$langs->trans("MailTopic")); if (! $mil->body) $message.=($message?'
':'').$langs->trans("ErrorFieldRequired",$langs->trans("MailBody")); if (! $message) { if ($mil->create($user) >= 0) { Header("Location: fiche.php?id=".$mil->id); exit; } $message=$mil->error; } $message='

'.$message.'

'; $_GET["action"]="create"; } // Action update description of emailing if ($_REQUEST["action"] == 'setdesc' || $_REQUEST["action"] == 'setfrom' || $_REQUEST["action"] == 'setreplyto' || $_REQUEST["action"] == 'seterrorsto') { $mil = new Mailing($db); $mil->fetch($_POST["id"]); $upload_dir = $conf->mailing->dir_output . "/" . get_exdir($mil->id,2,0,1); if ($_REQUEST["action"] == 'setdesc') $mil->titre = trim($_REQUEST["desc"]); if ($_REQUEST["action"] == 'setfrom') $mil->email_from = trim($_REQUEST["from"]); if ($_REQUEST["action"] == 'setreplyto') $mil->email_replyto = trim($_REQUEST["replyto"]); if ($_REQUEST["action"] == 'seterrorsto') $mil->email_errorsto = trim($_REQUEST["errorsto"]); if ($_REQUEST["action"] == 'setdesc' && empty($mil->titre)) $message.=($message?'
':'').$langs->trans("ErrorFieldRequired",$langs->transnoentities("MailTitle")); if ($_REQUEST["action"] == 'setfrom' && empty($mil->email_from)) $message.=($message?'
':'').$langs->trans("ErrorFieldRequired",$langs->transnoentities("MailFrom")); if (! $message) { if ($mil->update($user) >= 0) { Header("Location: fiche.php?id=".$mil->id); exit; } $message=$mil->error; } $message='

'.$message.'

'; $_GET["action"]=""; $_GET["id"]=$_REQUEST["id"]; } // Action update emailing if (! empty($_POST["removedfileid"])) { $mil = new Mailing($db); $mil->fetch($_POST["id"]); $upload_dir = $conf->mailing->dir_output . "/" . get_exdir($mil->id,2,0,1); $listofpaths=dol_dir_list($upload_dir,'all',0,'','','name',SORT_ASC,0); // Remove file $filenb=($_POST["removedfileid"]-1); if (isset($listofpaths[$filenb])) { $result=dol_delete_file($listofpaths[$filenb]['fullname'],1); } $_GET["action"]="edit"; $_GET["id"]=$_POST["id"]; } // Action update emailing if ($_POST["action"] == 'update' && empty($_POST["removedfile"]) && empty($_POST["cancel"])) { require_once(DOL_DOCUMENT_ROOT."/lib/files.lib.php"); $mil = new Mailing($db); $mil->fetch($_POST["id"]); $isupload=0; // If upload file if (! empty($_POST["addfile"]) && ! empty($conf->global->MAIN_UPLOAD_DOC)) { $isupload=1; $upload_dir = $conf->mailing->dir_output."/".get_exdir($mil->id,2,0,1); $mesg=dol_add_file_process($upload_dir,0,1); } if (! $isupload) { $mil->sujet = trim($_POST["sujet"]); $mil->body = trim($_POST["body"]); $mil->bgcolor = trim($_POST["bgcolor"]); $mil->bgimage = trim($_POST["bgimage"]); if (! $mil->sujet) $message.=($message?'
':'').$langs->trans("ErrorFieldRequired",$langs->trans("MailTopic")); if (! $mil->body) $message.=($message?'
':'').$langs->trans("ErrorFieldRequired",$langs->trans("MailBody")); if (! $message) { if ($mil->update($user) >= 0) { Header("Location: fiche.php?id=".$mil->id); exit; } $message=$mil->error; } $message='

'.$message.'

'; $_GET["action"]="edit"; $_GET["id"]=$_POST["id"]; } else { $_GET["action"]="edit"; $_GET["id"]=$_POST["id"]; } } // Action confirmation validation if ($_REQUEST["action"] == 'confirm_valid') { if ($_REQUEST["confirm"] == 'yes') { $mil = new Mailing($db); if ($mil->fetch($_REQUEST["id"]) >= 0) { $mil->valid($user); Header("Location: fiche.php?id=".$mil->id); exit; } else { dol_print_error($db); } } else { Header("Location: fiche.php?id=".$_REQUEST["id"]); exit; } } // Resend if ($_REQUEST["action"] == 'confirm_reset') { if ($_REQUEST["confirm"] == 'yes') { $mil = new Mailing($db); if ($mil->fetch($_REQUEST["id"]) >= 0) { $db->begin(); $result=$mil->valid($user); if ($result > 0) { $result=$mil->reset_targets_status($user); } if ($result > 0) { $db->commit(); Header("Location: fiche.php?id=".$mil->id); exit; } else { $mesg=$mil->error; $db->rollback(); } } else { dol_print_error($db); } } else { Header("Location: fiche.php?id=".$_REQUEST["id"]); exit; } } // Action confirmation suppression if ($_REQUEST["action"] == 'confirm_delete') { if ($_REQUEST["confirm"] == 'yes') { $mil = new Mailing($db); $mil->id = $_REQUEST["id"]; if ($mil->delete($mil->id)) { Header("Location: ".DOL_URL_ROOT."/comm/mailing/liste.php"); exit; } } } if (! empty($_POST["cancel"])) { $action = ''; $_GET["id"] = isset($_POST["mailid"])?$_POST["mailid"]:$_POST["id"]; } /* * View */ $help_url='EN:Module_EMailing|FR:Module_Mailing|ES:Módulo_Mailing'; llxHeader('',$langs->trans("Mailing"),$help_url); $html = new Form($db); $htmlother = new FormOther($db); $mil = new Mailing($db); if ($_GET["action"] == 'create') { // EMailing in creation mode print '

'."\n"; print ''; print ''; print_fiche_titre($langs->trans("NewMailing")); dol_htmloutput_mesg($message); print ''; print ''; print ''; print ''; print '

'.$langs->trans("MailTitle").'
'.$langs->trans("MailFrom").'
'.$langs->trans("MailErrorsTo").'

'; print '

'; print ''; print ''; print ''; print ''; print ''; print '

'.$langs->trans("MailTopic").'
'.$langs->trans("BackgroundColorByDefault").'	'; $htmlother->select_color($_POST['bgcolor'],'bgcolor','new_mailing',0); print '
'.$langs->trans("MailMessage").' '; print ' '.$langs->trans("CommonSubstitutions").': '; foreach($substitutionarray as $key => $val) { print $key.' = '.$langs->trans($val).' '; } print '	'; // Editeur wysiwyg require_once(DOL_DOCUMENT_ROOT."/lib/doleditor.class.php"); $doleditor=new DolEditor('body',$_POST['body'],'',320,'dolibarr_mailings','',true,true,$conf->fckeditor->enabled && $conf->global->FCKEDITOR_ENABLE_MAILING,20,70); $doleditor->Create(); print '

'; print '
'; print '

'; } else { if ($mil->fetch($_GET["id"]) >= 0) { $upload_dir = $conf->mailing->dir_output . "/" . get_exdir($mil->id,2,0,1); $head = emailing_prepare_head($mil); dol_fiche_head($head, 'card', $langs->trans("Mailing"), 0, 'email'); if ($message) print $message."
"; // Confirmation de la validation du mailing if ($_GET["action"] == 'valid') { $ret=$html->form_confirm($_SERVER["PHP_SELF"]."?id=".$mil->id,$langs->trans("ValidMailing"),$langs->trans("ConfirmValidMailing"),"confirm_valid",'','',1); if ($ret == 'html') print '
'; } // Confirm reset if ($_GET["action"] == 'reset') { $ret=$html->form_confirm($_SERVER["PHP_SELF"]."?id=".$mil->id,$langs->trans("ResetMailing"),$langs->trans("ConfirmResetMailing",$mil->ref),"confirm_reset",'','',2); if ($ret == 'html') print '
'; } // Confirm delete if ($_GET["action"] == 'delete') { $ret=$html->form_confirm($_SERVER["PHP_SELF"]."?id=".$mil->id,$langs->trans("DeleteAMailing"),$langs->trans("ConfirmDeleteMailing"),"confirm_delete",'','',1); if ($ret == 'html') print '
'; } if ($_GET["action"] != 'edit') { /* * Mailing en mode visu */ if ($_GET["action"] == 'sendall') { // Define message to recommand from command line // Pour des raisons de securite, on ne permet pas cette fonction via l'IHM, // on affiche donc juste un message if (empty($conf->global->MAILING_LIMIT_SENDBYWEB)) { // Pour des raisons de securite, on ne permet pas cette fonction via l'IHM, // on affiche donc juste un message $mesg.='

'.$langs->trans("MailingNeedCommand").'

'; $mesg.='
'; $mesg.='

'.$langs->trans("MailingNeedCommand2").'

'; $_GET["action"]=''; } else { $text=''; if ($conf->file->mailing_limit_sendbyweb == 0) { $text.=$langs->trans("MailingNeedCommand"); $text.='
'; $text.='

'; } $text.=$langs->trans('ConfirmSendingEmailing').'
'; $text.=$langs->trans('LimitSendingEmailing',$conf->global->MAILING_LIMIT_SENDBYWEB); $ret=$html->form_confirm($_SERVER['PHP_SELF'].'?id='.$_REQUEST['id'],$langs->trans('SendMailing'),$text,'sendallconfirmed',$formquestion,'',1,260); if ($ret == 'html') print '
'; } } print ''; print ''; print ''; // Description print ''; // From print ''; // Errors to print ''; // Status print ''; // Nb of distinct emails print ''; print '

'.$langs->trans("Ref").'	'; print $html->showrefnav($mil,'id'); print '
'.$html->editfieldkey("MailTitle",'desc',$mil->titre,'id',$mil->id,$user->rights->mailing->creer).'	'; print $html->editfieldval("MailTitle",'desc',$mil->titre,'id',$mil->id,$user->rights->mailing->creer); print '
'.$html->editfieldkey("MailFrom",'from',$mil->email_from,'id',$mil->id,$user->rights->mailing->creer && $mil->statut < 3,'email').'	'; print $html->editfieldval("MailFrom",'from',$mil->email_from,'id',$mil->id,$user->rights->mailing->creer && $mil->statut < 3,'email'); print '
'.$html->editfieldkey("MailErrorsTo",'errorsto',$mil->email_errorsto,'id',$mil->id,$user->rights->mailing->creer && $mil->statut < 3,'email').'	'; print $html->editfieldval("MailErrorsTo",'errorsto',$mil->email_errorsto,'id',$mil->id,$user->rights->mailing->creer && $mil->statut < 3,'email'); print '
'.$langs->trans("Status").'	'.$mil->getLibStatut(4).'
'; print $langs->trans("TotalNbOfDistinctRecipients"); print '	'; $nbemail = ($mil->nbemail?$mil->nbemail:''.$langs->trans("NoTargetYet").''); if (!empty($conf->global->MAILING_LIMIT_SENDBYWEB) && is_numeric($nbemail) && $conf->global->MAILING_LIMIT_SENDBYWEB < $nbemail) { if ($conf->global->MAILING_LIMIT_SENDBYWEB > 0) { $text=$langs->trans('LimitSendingEmailing',$conf->global->MAILING_LIMIT_SENDBYWEB); print $html->textwithpicto($nbemail,$text,1,'warning'); } else { $text=$langs->trans('NotEnoughPermissions'); print $html->textwithpicto($nbemail,$text,1,'warning'); } } else { print $nbemail; } print '

'; print ""; // Clone confirmation if ($_GET["action"] == 'clone') { // Create an array for form $formquestion=array( 'text' => $langs->trans("ConfirmClone"), array('type' => 'checkbox', 'name' => 'clone_content', 'label' => $langs->trans("CloneContent"), 'value' => 1), array('type' => 'checkbox', 'name' => 'clone_receivers', 'label' => $langs->trans("CloneReceivers").' ('.$langs->trans("FeatureNotYetAvailable").')', 'value' => 0, 'disabled' => true) ); // Paiement incomplet. On demande si motif = escompte ou autre $html->form_confirm($_SERVER["PHP_SELF"].'?id='.$mil->id,$langs->trans('CloneEMailing'),$langs->trans('ConfirmCloneEMailing',$mil->ref),'confirm_clone',$formquestion,'yes'); print '
'; } if ($mesg) print $mesg; /* * Boutons d'action */ if (GETPOST("cancel") || GETPOST("confirm")=='no' || GETPOST("action") == '' || in_array(GETPOST('action'),array('valid','delete','sendall'))) { print "\n\n

\n"; if ($mil->statut == 0 && $user->rights->mailing->creer) { print ''.$langs->trans("EditMailing").''; } //print ''.$langs->trans("PreviewMailing").''; print ''.$langs->trans("TestMailing").''; if ($mil->statut == 0) { if ($mil->nbemail <= 0) { print ''.$langs->trans("ValidMailing").''; } else if (empty($user->rights->mailing->valider)) { print ''.$langs->trans("ValidMailing").''; } else { print ''.$langs->trans("ValidMailing").''; } } if (($mil->statut == 1 || $mil->statut == 2) && $mil->nbemail > 0 && $user->rights->mailing->valider) { if ($conf->global->MAILING_LIMIT_SENDBYWEB < 0) { print ''.$langs->trans("SendMailing").''; } else { print ''.$langs->trans("SendMailing").''; } } if ($user->rights->mailing->creer) { print ''.$langs->trans("ToClone").''; } if (($mil->statut == 2 || $mil->statut == 3) && $user->rights->mailing->valider) { print ''.$langs->trans("ResetMailing").''; } if (($mil->statut <= 1 && $user->rights->mailing->creer) || $user->rights->mailing->supprimer) { print ''.$langs->trans("DeleteMailing").''; } print '

'; } // Affichage formulaire de TEST if ($_GET["action"] == 'test') { print_titre($langs->trans("TestMailing")); // Create l'objet formulaire mail include_once(DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php'); $formmail = new FormMail($db); $formmail->fromname = $mil->email_from; $formmail->frommail = $mil->email_from; $formmail->withsubstit=1; $formmail->withfrom=0; $formmail->withto=$user->email?$user->email:1; $formmail->withtocc=0; $formmail->withtoccc=$conf->global->MAIN_EMAIL_USECCC; $formmail->withtopic=0; $formmail->withtopicreadonly=1; $formmail->withfile=0; $formmail->withbody=0; $formmail->withbodyreadonly=1; $formmail->withcancel=1; $formmail->withdeliveryreceipt=0; // Tableau des substitutions $formmail->substit=$substitutionarrayfortest; // Tableau des parametres complementaires du post $formmail->param["action"]="send"; $formmail->param["models"]="body"; $formmail->param["mailid"]=$mil->id; $formmail->param["returnurl"]=DOL_URL_ROOT."/comm/mailing/fiche.php?id=".$mil->id; // Init list of files if (! empty($_REQUEST["mode"]) && $_REQUEST["mode"]=='init') { $formmail->clear_attached_files(); } $formmail->show_form(); print '
'; } // Print mail content print_fiche_titre($langs->trans("EMail"),'',''); print ''; // Subject print ''; // Joined files $i=''; //$i=0; //while ($i < 4) //{ // $i++; //$property='joined_file'.$i; print ''; //} // Background color /*print '';*/ // Message print ''; print ''; print ''; print '

'.$langs->trans("MailTopic").'	'.$mil->sujet.'
'.$langs->trans("MailFile").' '.$i.'	'; // List of files $listofpaths=dol_dir_list($upload_dir,'all',0,'','','name',SORT_ASC,0); if (sizeof($listofpaths)) { foreach($listofpaths as $key => $val) { print img_mime($listofpaths[$key]['name']).' '.$listofpaths[$key]['name']; print ' '; } } else { print $langs->trans("NoAttachedFiles").' '; } print '
'.$langs->trans("BackgroundColorByDefault").'	'; $htmlother->select_color($mil->bgcolor,'bgcolor','edit_mailing',0); print '
'.$langs->trans("MailMessage").'	'; print dol_htmlentitiesbr($mil->body); print '

'; print "
"; } else { /* * Mailing en mode edition */ if ($mesg) print $mesg."
"; if ($message) print $message."
"; print ''; print ''; print ''; print ''; print ''; // Status print ''; // Nb of distinct emails print ''; print '

'.$langs->trans("Ref").'	'.$mil->id.'
'.$langs->trans("MailTitle").'	'.$mil->titre.'
'.$langs->trans("MailFrom").'	'.dol_print_email($mil->email_from,0,0,0,0,1).'
'.$langs->trans("MailErrorsTo").'	'.dol_print_email($mil->email_errorsto,0,0,0,0,1).'
'.$langs->trans("Status").'	'.$mil->getLibStatut(4).'
'; print $langs->trans("TotalNbOfDistinctRecipients"); print '	'; $nbemail = ($mil->nbemail?$mil->nbemail:''.$langs->trans("NoTargetYet").''); if (!empty($conf->global->MAILING_LIMIT_SENDBYWEB) && is_numeric($nbemail) && $conf->global->MAILING_LIMIT_SENDBYWEB < $nbemail) { $text=$langs->trans('LimitSendingEmailing',$conf->global->MAILING_LIMIT_SENDBYWEB); print $html->textwithpicto($nbemail,$text,1,'warning'); } else { print $nbemail; } print '

'; print ""; print "\n"; print '

'."\n"; print ''; print ''; print ''; // Print mail content print_fiche_titre($langs->trans("EMail"),'',''); print ''; // Subject print ''; // Joined files $i=''; //$i=0; //while ($i < 4) //{ // $i++; //$property='joined_file'.$i; print ''; print ''; //} // Background color print ''; // Message print ''; print ''; print ''; print '

'.$langs->trans("MailTopic").'
'.$langs->trans("MailFile").' '.$i.'	'; // List of files $listofpaths=dol_dir_list($upload_dir,'all',0,'','','name',SORT_ASC,0); if (sizeof($listofpaths)) { foreach($listofpaths as $key => $val) { print img_mime($listofpaths[$key]['name']).' '.$listofpaths[$key]['name']; print ' '; print ''; print ' '; } } else { print $langs->trans("NoAttachedFiles").' '; } // Add link to add file print ''; print ' '; print ''; //print $mil->$property?' '.$mil->$property:''; print '
'.$langs->trans("BackgroundColorByDefault").'	'; $htmlother->select_color($mil->bgcolor,'bgcolor','edit_mailing',0); print '
'.$langs->trans("MailMessage").' '; print ' '.$langs->trans("CommonSubstitutions").': '; print '__ID__ = '.$langs->trans("IdRecord").' '; print '__EMAIL__ = '.$langs->trans("EMail").' '; print '__LASTNAME__ = '.$langs->trans("Lastname").' '; print '__FIRSTNAME__ = '.$langs->trans("Firstname").' '; print '__OTHER1__ = '.$langs->trans("Other").'1 '; print '__OTHER2__ = '.$langs->trans("Other").'2 '; print '__OTHER3__ = '.$langs->trans("Other").'3 '; print '__OTHER4__ = '.$langs->trans("Other").'4 '; print '__OTHER5__ = '.$langs->trans("Other").'5 '; print '	'; // Editeur wysiwyg require_once(DOL_DOCUMENT_ROOT."/lib/doleditor.class.php"); $doleditor=new DolEditor('body',$mil->body,'',320,'dolibarr_mailings','',true,true,$conf->fckeditor->enabled && $conf->global->FCKEDITOR_ENABLE_MAILING,20,70); $doleditor->Create(); print '
'; print ''; print ' '; print ''; print '

'; print '

'; print '
'; } } else { dol_print_error($db,$mil->error); } } $db->close(); llxFooter('$Date: 2011/08/03 00:46:33 $ - $Revision: 1.123 $'); ?>