Accueil du site > Interactivité, échanges > Email, listes de diffusion > Archives Email > Envoyer l’article par mail (évolution et suite)

Envoyer l’article par mail (évolution et suite)

14 février 2004 – par Aurélien PIERARD, Bionet – 61

Ceci est une ARCHIVE, peut-être périmée. Vérifiez bien les compatibilités !

Ce script est une évolution du script de philippe Envoyer à un ami, mais avec une mise en page "à la SPIP". C’est à dire dans un bloc dépliable.

Ce script, comme son nom l’indique permet d’envoyer l’article à un ami, mais avec une mise en page "à la SPIP".

Captures d’écran


"Envoyer..." replié


"Envoyer..." déplié

Le script

fichier envoyer_par_mail.html

<?

/*
 *   +----------------------------------+
 *    Nom :    Envoyer l'article par mail
 *    Fichier : envoyer_par_mail.html
 *   +----------------------------------+
 *    Date : jeudi 19 juin 2003
 *    Auteur :	Aurélien PIERARD 
 *    aurelien.pierard@sig.premier-ministre.gouv.fr                                      
 *    Modifié le 4/2/2004 par Bionet (corrections)
 *   +-------------------------------------+
 *    Fonctions :
 *     Envoyer l'article par mail avec une mise en en page "à la SPIP"
 *   +-------------------------------------+ 
 *  
 * Pour toute suggestion, remarque, proposition d'ajout
 * reportez-vous au forum de l'article :
 * http://www.uzine.net/spip_contrib/article.php3?id_article=187
*/

Function VerifMail ($Mail)
{
  $Retour = eregi("^[[:alpha:]]{1}[[:alnum:]]*((\.|_|-)[[:alnum:]]+)*@".
                  "[[:alpha:]]{1}[[:alnum:]]*((\.|-)[[:alnum:]]+)*".
                  "(\.[[:alpha:]]{2,})$",
                  $Mail);
  Return $Retour;
}

 if (VerifMail($adresse) && $statut=="ok") { 
	$charset = lire_meta('charset');
	$headers = "From: $from\n".
		"MIME-Version: 1.0\n".
		"Content-Type: text/plain; charset=$charset\n".
		"Content-Transfer-Encoding: 8bit\n$headers";

		echo '<img src="biopics/mail.png" alt="L\'article a été envoyé" />&nbsp;<strong>L\'article a été envoyé</strong>';
		
		// Destinataire
		
		$message = "Ce message a été envoyé par le site [(#NOM_SITE_SPIP|addslashes)]\n\n";
		$message .= "Bonjour,\n\nCette page, extraite du site [(#NOM_SITE_SPIP|addslashes)], vous est recommandée "; 
		$message .= "par ".$nom." - ".$from." \n\n";
		$message .= "Titre de la page : ".$titre."\n";
		$message .= "Adresse de la page : ".$url."\n";
		$message .= "Vous pouvez consulter cette page en cliquant sur le lien ci-dessus.\n";
		$message .= "Merci de votre visite\n\n [(#NOM_SITE_SPIP|addslashes)]";
		$objet = "Une page du site [(#NOM_SITE_SPIP|addslashes)] vous est recommandée par ".$nom." , ".$from." ";
		envoyer_mail($adresse,$objet,$message,"","");
		
		// Expéditeur
		
		$message ="VOICI LE MESSAGE QUI A ETE ENVOYE A : $adresse\n";
		$message .="______________________________________________________________________\n\n\n";
		$message .= "Ce message a été envoyé par le site [(#NOM_SITE_SPIP|addslashes)]\n\n";
		$message .= "Bonjour,\n\nCette page, extraite du site [(#NOM_SITE_SPIP|addslashes)], vous est recommandée "; 
		$message .= "par ".$nom." - ".$from." \n\n";
		$message .= "Titre de la page : ".$titre."\n";
		$message .= "Adresse de la page : ".$url."\n";
		$message .= "Vous pouvez consulter cette page en cliquant sur le lien ci-dessus.\n";
		$message .= "Merci de votre visite\n\n [(#NOM_SITE_SPIP|addslashes)]";
		$objet = "Votre message a bien été envoyé! : [(#NOM_SITE_SPIP|addslashes)]";
		envoyer_mail($from,$objet,$message,"","");
 }
else {
?>


<script LANGUAGE="JavaScript">
function VerifForm(){
	adresse = document.news_form.adresse.value;
	var place = adresse.indexOf("@",1);
	var point = adresse.indexOf(".",place+1);
	from = document.news_form.from.value;
	var place2 = from.indexOf("@",1);
	var point2 = from.indexOf(".",place+1);
	if (((place > -1)&&(adresse.length >2)&&(point > 1)) && (document.news_form.nom.value!="") && ((place2 > -1)&&(from.length >2)&&(point2 > 1)))
		{
		document.news_form.submit();
		}
	else
		{	
			var erreurMsg='';
			if (!((place > -1)&&(adresse.length >2)&&(point > 1)))
				erreurMsg = '- Entrez l\'adresse e-mail du destinataire!\n';
			if (document.news_form.nom.value=="")
				erreurMsg = erreurMsg + '- Entrez votre nom!\n';
			if (!((place2 > -1)&&(from.length >2)&&(point2 > 1)))
				erreurMsg = erreurMsg + '- Entrez votre adresse e-mail!';			
			alert(erreurMsg);
		}
}
</script>
<?
	// inclusion du script de gestion des layers de SPIP
		include 'inc_layer.php3';
		afficher_script_layer();
		
		
		// Titre du bloc
		echo bouton_block_invisible('envoyer_par_mail');
			echo "<a href=\"javascript:swap_couche('$compteur_block', '$spip_lang_rtl');\" title=\"cliquer ici pour déplier le formulaire\">Envoyer l'article à un ami</a>";

		// Bloc invisible
		echo debut_block_invisible('envoyer_par_mail');
			echo "<div style=\"margin-left:14px;\">";
			echo "<form action=\"".$url2."\" method=\"post\" name=\"news_form\">";
			echo "<strong>Destinataire&nbsp; :</strong><br />";
			echo "(entrez l'email du destinataire)";
			echo "<br /><input name=\"adresse\" size=\"20\" value=\"\" /><br />";
			echo "<strong>De la part de&nbsp;</strong><br />";
			echo "(entrez votre nom)";
			echo "<br /><input name=\"nom\" size=\"20\" value=\"\" />";
			echo "<br />(entrez votre email)";
			echo "<br /><input name=\"from\" size=20 value=\"\" />";
			echo "<br />";
			echo "<input type=\"Hidden\" name=\"statut\" value=\"ok\" />";
			echo "<input type=\"button\" onClick=\"VerifForm()\" value=\"Envoyer\" style=\"font-family: Arial; font-size:7.1pt; font-style: normal; font-weight: bold\ />";
			echo "</form>";
			echo "</div>";
			
		// Fin du bloc
		echo fin_block('envoyer_par_mail');
}
?>

Installation

Pour utiliser ce script, vous devez copier ces fichers à la racine de votre site :

envoyer_par_mail.html ;
envoyer_par_mail.php3 ;
inc_layer.php3 ;
layer.js.

et le répertoire /biopics/ qui contient les images.

Ces fichiers sont dans l’archive attachée à cet article.

Utilisation du script

Voici les instructions à placer dans vos squelettes "article" pour utiliser ce script

<!-- Envoyer l'article par mail -->
<?
   // Titre de l'article pour générer le corps du mail
   $titre='[(#TITRE|texte_script)]';
   // URL de l'article pour générer le corps du mail
   $url="[(#URL_SITE_SPIP)]/article.php3?id_article=#ID_ARTICLE";
   // URL de l'article pour recharger la page
   $url2="article.php3?id_article=#ID_ARTICLE";
?>
<INCLURE(envoyer_par_mail.php3){adresse=$adresse}{statut=$statut}{url=$url}{url2=$url}{titre=$titre}>

<!--- Partie OPTIONNELLE, c'est ce qui est présenté dans la capture d'écran : imprimer l'article et l'envoyer en PDF - à supprimer - --->

<br><a href="imprimersans.php3?id_article=#ID_ARTICLE&nom_site=[(#NOM_SITE_SPIP|texte_script)]&url_site=[(#URL_SITE_SPIP|texte_script)]" title="afficher une version imprimable de cet article"><img src="biopics/imprimante.png" alt="afficher une version imprimable de cet article" width=16 height=16 class=iconelien border=0 ></a>&nbsp;<a href="imprimersans.php3?id_article=#ID_ARTICLE&nom_site=[(#NOM_SITE_SPIP|texte_script)]&url_site=[(#URL_SITE_SPIP|texte_script)]" title="afficher une version imprimable de cet article">Imprimer l'article</a>

<br><a href="article_pdf.php3?id_article=#ID_ARTICLE" title="générer une version PDF de cet article"><img src="biopics/pdf.png" alt="générer une version PDF de cet article" width=16 height=16 class=iconelien border=0 ></a>&nbsp;<a href="article_pdf.php3?id_article=#ID_ARTICLE" title="générer une version PDF de cet article">Article au format PDF</a>

<!--- Fin de la partie OPTIONNELLE - à supprimer- --->

P.-S.

Cette fonctionnalité est intégrée dans BioSPIP et Bio-squelettes 2.6. Pour constater son fonctionnement vous pouvez visiter n’importe quel site utilisant ces squelettes.

Vos commentaires

0 | 10 | 20 | 30

# Le 12 septembre 2008 à 00:42, par Tina

Salut,

Comment pourrait-on réaliser facilement une interface plus complète qui permette aux visiteurs d’ajouter autant de lignes "destinataires" supplémentaires qu’ils le désirent avant de cliquer ensuite sur envoyer ?

Y a-t-il un projet de plugin à ce sujet ?

Tina

Répondre à ce message
# Le 1er avril 2005 à 17:17, par Olivier

Bonjour,

Même problème que Thierry ci dessous. Tout allait sans pb sous SPIP 1.7.2. Ca plante depuis que je suis passé à la version SPIP 1-8pr1. En fait tout ce passe bien jusqu’à l’envoi, où j’ai un message d’erreur (et pas de d’email envoyé) :

Fatal error : Call to undefined function : envoyer_mail() in /var/alternc/html/i/ipam/liberationafrique/inc-public.php3(20) : eval()’d code on line 48

Quelqu’un a-t-il une idée ? Merci d’avance.
- # ^ Le 6 avril 2005 à 10:29, par BoOz
  
  Pour spip 1.8, il faut ajouter une ligne dans le script, avant l’appel de la fonction envoyer_mail()
  
  include('ecrire/inc_mail.php3'); envoyer_mail($adresse,$objet,$message,"","");
- # ^ Le 7 avril 2005 à 17:34, par bob
  
  mais après le mail est envoyé trois fois...
- # ^ Le 12 avril 2005 à 08:27, par Roland
  
  Bonjour,
  
  Avec Spip 1.8.
  Effectivement, trois courriels partent :
  - 1 pour l’émetteur qui a confirmation de l’envoi,
  - 2 pour le destinataire : un exemplaire correct et un exemplaire strictement blanc (pas d’objet, pas de corps de message.
  
  Pour supprimer ce message blanc, il suffit d’appliquer la correction de BoOz ci-dessus en ajoutant la seule ligne
  include('ecrire/inc_mail.php3');
  juste après la ligne
  $url2="article.php3?id_article=#ID_ARTICLE";
  dans le squelette "article" qui utilise ce script.
  
  Et là, ça fonctionne ;-)
Répondre à ce message
# Le 4 avril 2007 à 17:43, par mailou

Bonjour,

Ce formulaire est-il abandonné ? dommage il est parfait mais il ne fonctionne pas sur spip1.9.2 même en supprimant le php3, mais l’idéal serait que quelqu’un ait la capacité d’en faire un plugin, pourquoi pas !!

@+
et merci de la réponse
- # ^ Le 17 mai 2007 à 19:24, par adnane
  
  Bonjour,
  en fait moyennant deux petites modif, on peut faire marcher ce scripts sur la version 1.9.1
  
  la première est : dans votre squelette, et ce pour correspondre à la nouvelle manière de spip d’ecrire les balise inclure
  
  la deuxième est :
  include ’inc/layer.php’ ; au lieu de include ’inc_layer.php3’ ; dans envoyer_par_mail.html
  
  faire attention à virer du fichier envoyer_par_mail.html de tout les commentaire contenant des #.
  
  Adnane.
- # ^ Le 23 mai 2007 à 09:59, par Gilmar
  
  Bonjour Adnane,
  
  Merci pour ces explications mais pourrais-tu préciser ta première modification, elle ne me semble pas très claire.
  
  Merci :)
  
  Gilmar
Répondre à ce message
# Le 26 janvier 2007 à 18:02, par mailou

Bonjour,

Un an aprés (presque) le dernier message, je viens sur ce forum car depuis spip a évolué en 1.9.1.

Mon problème, j’ai téléchargé la version pour spip 1.8.2 et visiblement pas compatible avec la 1.9.1, que dois-je faire, modifier la version téléchargée et je ne sais pas comment faire, ou alors existe-t-il une version compatible avec spip 1.9.1

merci
- # ^ Le 22 mars 2007 à 17:53, par Antho
  
  Bonjour,
  
  mon message complète celui posté en janvier, je suis sous spip 1.9.2 et je n’arrive pas à utiliser ce script qui est plutôt pas mal d’ailleurs.
  
  En esperant une mise à jour bientôt...
Répondre à ce message
# Le 16 mars 2006 à 12:21, par fredbref

ça marche pas sous MAC !! (safari, mozilla, même combat...)

Fatal error : Cannot redeclare test_layer() in /var/alternc/html/c/couac/inc_layer.php3 on line 33

Répondre à ce message
# Le 15 mars 2005 à 14:20, par thierry

salut,
tout se passe bien jusqu’à l’envoi de mail, le serveur me renvoyant :

L'article a été envoyé Fatal error: Call to undefined function: envoyer_mail() in /domain/inc-public.php3(20) : eval()'d code on line 48

une idée ?
merci
T.

ps : je suis sur une version 1.8bXX de spip
- # ^ Le 2 avril 2005 à 02:15, par Fennec72
  
  même problème avec un site en 1.8pr3
- # ^ Le 7 novembre 2005 à 13:39, par labon
  
  idem, sous 1.8.2d
  Marche pô avec la même erreur....
- # ^ Le 21 février 2006 à 14:46, par lampion
  
  Même ’fatal error’ ! De l’aide parce que là je vais craquer !
  Merci d’avance
Répondre à ce message
# Le 9 janvier 2006 à 14:54, par zsoh

Bonjour et surtout merci aux auteurs de cette contrib.
Je l’ai utilisé et ça marche sauf que lors de l’ouverture d’un article pour la première fois, le bouton qui permet de dérouler le formulaire d’envoie de l’article à un ami n’apparait pas. Sa zone est bien là mais ce bouton n’apparait pas. Par la suite, il apparait très bien et ne disparait que lorsque je clique à nouveau sur un article pour la première fois.

merci de m’aider à faire apparaitre ce bouton au premier clic sur un article.
Aussi je cherche sans trouver le fichier article_pdf.
- # ^ Le 9 janvier 2006 à 15:07, par zsoh
  
  Je retrouve comme l’a dit quelqu’un le fichier article_pdf.php sur http://www.spip-contrib.net/Generation-amelioree-de-fichiers
  je m’excuse, mais ma roccupation reste pour le bouton de déroulement du formulaire d’envoie de l’article à un ami.
Répondre à ce message
# Le 13 septembre 2005 à 04:51, par Emile

Très bonne contribution. Un petit problème cependant. Le message qui est reçu dans la boite à lettre du destinataire, fait apparaitre dans la colonne expéditeur, l’adresse du destinataire au lieu de l’adresse du véritable expéditeur. A mon avis c’est le script envoyer_mail(...) qui se trouve dans envoyer_par_mail.html qu’il faudra revoir. Malheureusement je ne sais pas où il se trouve. Quelqu’un a t-il une idée ?

Merci.
- # ^ Le 20 novembre 2005 à 14:23, par Dany
  
  Même problème...vraiment pas d’idée ??
  Encore merci.
Répondre à ce message
# Le 20 novembre 2005 à 10:32, par Dany

Bonjour à tous,

Merci pour cette excellente contrib qui s’installe en 5mn clés en mains.
Je suis sous SPIP 1.7.2 hébergé chez free, elle fonctionne parfaitement.

Site : Football Club de Croixrault

Répondre à ce message
# Le 3 novembre 2005 à 21:05, par Baron Noir

J’ai installé avec succès cette contribution aussi efficace que pratique. Bravo aux auteurs et aux correcteurs !

J’ai juste une petite question : peut-on utiliser le script sur les brèves ?

Répondre à ce message