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 En réponse à : Envoyer à PLUSIEURS amis

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 En réponse à : Fatal error

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 En réponse à : > Fatal error
  
  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 En réponse à : > Fatal error
  
  mais après le mail est envoyé trois fois...
- # ^ Le 12 avril 2005 à 08:27, par Roland En réponse à : > Fatal error
  
  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 En réponse à : Envoyer l’article par mail (évolution et suite)

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 En réponse à : Envoyer l’article par mail (évolution et suite)
  
  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 En réponse à : Envoyer l’article par mail (évolution et suite)
  
  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 En réponse à : Envoyer l’article par mail (évolution et suite)

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 En réponse à : Envoyer l’article par mail (évolution et suite)
  
  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 En réponse à : Envoyer l’article par mail (évolution et suite)

ç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 En réponse à : > Envoyer l’article par mail (évolution et suite)

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 En réponse à : > Envoyer l’article par mail (évolution et suite)
  
  même problème avec un site en 1.8pr3
- # ^ Le 7 novembre 2005 à 13:39, par labon En réponse à : > Envoyer l’article par mail (évolution et suite)
  
  idem, sous 1.8.2d
  Marche pô avec la même erreur....
- # ^ Le 21 février 2006 à 14:46, par lampion En réponse à : > Envoyer l’article par mail (évolution et suite)
  
  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 En réponse à : Envoyer l’article par mail (évolution et suite)

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 En réponse à : Envoyer l’article par mail (évolution et suite)
  
  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 En réponse à : > Envoyer l’article par mail (évolution et suite)

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 En réponse à : > Envoyer l’article par mail (évolution et suite)
  
  Même problème...vraiment pas d’idée ??
  Encore merci.
Répondre à ce message
# Le 20 novembre 2005 à 10:32, par Dany En réponse à : Envoyer l’article par mail (évolution et suite)

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 En réponse à : Envoyer l’article par mail (évolution et suite)

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

0 | 10 | 20 | 30

Répondre à cet article

Qui êtes-vous ?

Nom [Se connecter]
Courriel (non publié)

Pour afficher votre trombine avec votre message, enregistrez-la d'abord sur gravatar.com (gratuit et indolore) et n'oubliez pas d'indiquer votre adresse e-mail ici.

Ajoutez votre commentaire ici Les choses à faire avant de poser une question (Prolégomènes aux rapports de bugs. )

Texte de votre message

Ajouter un document

gif, jpg, png

SPIP-Contrib

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

Captures d’écran

Le script

Installation

Utilisation du script

P.-S.

Rubriques

Derniers commentaires

Compatibilité

Téléchargement(s)

Archives Email

Vos commentaires

Répondre à cet article

Ça discute par ici

Une licence pour un article

Plugin Parrainage

Formulaire de contact libre

Plugin Mot de Passe Compliqué

Navigation AJAX

Ça spipe par là

SPIP Blog

SPIP Party

SPIP Forums

SPIP-Zone

SPIP SVN