ef29058b51ae922b3b6be55eebf57cfac648d83b
4 * (c) 2009-2011 Collectif SPIP
5 * Distribue sous licence GPL
9 if (!defined("_ECRIRE_INC_VERSION")) return;
11 include_spip('classes/facteur');
12 // inclure le fichier natif de SPIP, pour les fonctions annexes
13 include_once _DIR_RESTREINT
."inc/envoyer_mail.php";
16 * @param string $destinataire
17 * @param string $sujet
18 * @param string|array $corps
19 * au format string, c'est un corps d'email au format texte, comme supporte nativement par le core
20 * au format array, c'est un corps etendu qui peut contenir
21 * string texte : le corps d'email au format texte
22 * string html : le corps d'email au format html
23 * string from : email de l'envoyeur (prioritaire sur argument $from de premier niveau, deprecie)
24 * string nom_envoyeur : un nom d'envoyeur pour completer l'email from
25 * string cc : destinataires en copie conforme
26 * string bcc : destinataires en copie conforme cachee
27 * string|array repondre_a : une ou plusieurs adresses à qui répondre
28 * string adresse_erreur : addresse de retour en cas d'erreur d'envoi
29 * array pieces_jointes : listes de pieces a embarquer dans l'email, chacune au format array :
30 * string chemin : chemin file system pour trouver le fichier a embarquer
31 * string nom : nom du document tel qu'apparaissant dans l'email
32 * string encodage : encodage a utiliser, parmi 'base64', '7bit', '8bit', 'binary', 'quoted-printable'
33 * string mime : mime type du document
34 * array headers : tableau d'en-tetes personalises, une entree par ligne d'en-tete
35 * @param string $from (deprecie, utiliser l'entree from de $corps)
36 * @param string $headers (deprecie, utiliser l'entree headers de $corps)
39 function inc_envoyer_mail($destinataire, $sujet, $corps, $from = "", $headers = "") {
43 // si $corps est un tableau -> fonctionnalites etendues
44 // avec entrees possible : html, texte, pieces_jointes, nom_envoyeur, ...
45 if (is_array($corps)) {
46 $message_html = $corps['html'];
47 $message_texte = nettoyer_caracteres_mail($corps['texte']);
48 $pieces_jointes = $corps['pieces_jointes'];
49 $nom_envoyeur = $corps['nom_envoyeur'];
50 $from = (isset($corps['from'])?
$corps['from']:$from);
53 $repondre_a = $corps['repondre_a'];
54 $adresse_erreur = $corps['adresse_erreur'];
55 $headers = (isset($corps['headers'])?
$corps['headers']:$headers);
56 if (is_string($headers))
57 $headers = array_map('trim',explode("\n",$headers));
59 // si $corps est une chaine -> compat avec la fonction native SPIP
60 // gerer le cas ou le corps est du html avec un Content-Type: text/html dans les headers
62 if (preg_match(',Content-Type:\s*text/html,ims',$headers)){
63 $message_html = $corps;
66 $message_texte = nettoyer_caracteres_mail($corps);
68 $headers = array_map('trim',explode("\n",$headers));
70 $sujet = nettoyer_titre_email($sujet);
72 // si le mail est en texte brut, on l'encapsule dans un modele surchargeable
73 // pour garder le texte brut, il suffit de faire un modele qui renvoie uniquement #ENV*{texte}
74 if ($message_texte AND ! $message_html){
75 $message_html = recuperer_fond("emails/texte",array('texte'=>$message_texte,'sujet'=>$sujet));
78 // mode TEST : forcer l'email
79 if (defined('_TEST_EMAIL_DEST')) {
80 if (!_TEST_EMAIL_DEST
)
83 $destinataire = _TEST_EMAIL_DEST
;
86 // plusieurs destinataires peuvent etre fournis separes par des virgules
87 // c'est un format standard dans l'envoi de mail
88 // les passer au format array pour phpMailer
89 // mais ne pas casser si on a deja un array en entree
90 if (is_array($destinataire))
91 $destinataire = implode(", ",$destinataire);
92 $destinataire = array_map('trim',explode(",",$destinataire));
94 // On crée l'objet Facteur (PHPMailer) pour le manipuler ensuite
95 $facteur = new Facteur($destinataire, $sujet, $message_html, $message_texte);
97 // On ajoute le courriel de l'envoyeur s'il est fournit par la fonction
98 if (empty($from) AND empty($facteur->From
)) {
99 $from = $GLOBALS['meta']["email_envoi"];
100 if (empty($from) OR !email_valide($from)) {
101 spip_log("Meta email_envoi invalide. Le mail sera probablement vu comme spam.");
102 $from = $destinataire;
106 // "Marie Toto <Marie@toto.com>"
107 if (preg_match(",^([^<>\"]*)<([^<>\"]+)>$,i",$from,$m)){
108 $nom_envoyeur = trim($m[1]);
112 $facteur->From
= $from;
113 // la valeur par défaut de la config n'est probablement pas valable pour ce mail,
114 // on l'écrase pour cet envoi
115 $facteur->FromName
= $from;
118 // On ajoute le nom de l'envoyeur s'il fait partie des options
120 $facteur->FromName
= $nom_envoyeur;
122 // Si plusieurs emails dans le from, pas de Name !
123 if (strpos($facteur->From
,",")!==false){
124 $facteur->FromName
= "";
127 // S'il y a des copies à envoyer
130 foreach ($cc as $courriel)
131 $facteur->AddCC($courriel);
133 $facteur->AddCC($cc);
136 // S'il y a des copies cachées à envoyer
139 foreach ($bcc as $courriel)
140 $facteur->AddBCC($courriel);
142 $facteur->AddBCC($bcc);
145 // S'il y a des copies cachées à envoyer
147 if (is_array($repondre_a))
148 foreach ($repondre_a as $courriel)
149 $facteur->AddReplyTo($courriel);
151 $facteur->AddReplyTo($repondre_a);
154 // S'il y a des pièces jointes on les ajoute proprement
155 if (count($pieces_jointes)) {
156 foreach ($pieces_jointes as $piece) {
157 $facteur->AddAttachment(
159 isset($piece['nom']) ?
$piece['nom']:'',
160 (isset($piece['encodage']) AND in_array($piece['encodage'],array('base64', '7bit', '8bit', 'binary', 'quoted-printable'))) ?
$piece['encodage']:'base64',
161 isset($piece['mime']) ?
$piece['mime']:Facteur
::_mime_types(pathinfo($piece['chemin'], PATHINFO_EXTENSION
))
166 // Si une adresse email a été spécifiée pour les retours en erreur, on l'ajoute
167 if (!empty($adresse_erreur))
168 $facteur->Sender
= $adresse_erreur;
170 // si entetes personalises : les ajouter
171 // bug : semble ecraser les autres headers. A debug si on veut le rendre fonctionnel
172 //if (!empty($headers)) {
173 // foreach($headers as $h)
174 // $facteur->AddCustomHeader($h);
177 // On passe dans un pipeline pour modifier tout le facteur avant l'envoi
178 $facteur = pipeline('facteur_pre_envoi', $facteur);
180 // On génère les headers
181 $head = $facteur->CreateHeader();
183 // Et c'est parti on envoie enfin
184 spip_log("mail via facteur\n$head"."Destinataire:".print_r($destinataire,true),'mail');
185 spip_log("mail\n$head"."Destinataire:".print_r($destinataire,true),'facteur');
186 $retour = $facteur->Send();
189 spip_log("Erreur Envoi mail via Facteur : ".print_r($facteur->ErrorInfo
,true),'facteur');