/*
* +----------------------------------+
* Nom : Envoyer l'article par mail - modifiŽ pour spip 1.8.2
* +----------------------------------+
* Date : jeudi 19 juin 2003
* Auteur : Aurélien PIERARD
* aurelien.pierard@sig.premier-ministre.gouv.fr
* +-------------------------------------+
* 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 ' L\'article a été envoyé';
// 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 {
?>
// 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 "Envoyer l'article à un ami";
// Bloc invisible
echo debut_block_invisible('envoyer_par_mail');
echo "