Envoi de mail avec le module MIME::Lite

Bonsoir à tous,

J'ai utilisé le module MIME::Lite dans Perl afin d'envoyer un message simple.
(J'ai choisi ce module car il permet facilement d'envoyer des mails au format HTML et également de joindre des fichiers)

Voici mon code très simple qui m'a servi de test :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/perl -w   use MIME::Lite;   $msg = MIME::Lite->build( From => 'mike.meilleur@free.fr', To => 'mike.meilleur@free.fr', Subject => "Re: Hier soir !", Type => 'TEXT', Encoding => 'quoted-printable', Data => "C'était très bien, je te raconterai..." ); #$msg->attr("content-type.charset" => "iso-8859-15"); $msg->send('smtp', 'smtp.free.fr');

---

L'envoi de mail fonctionne parfaitement.
Par contre à la réception du mail, les accents ne s'affichent pas correctement :

C'était trÚs bien, je te raconterai...

J'ai essayé des tas de trucs sans succès.
Avez-vous déjà rencontré ce problème ? Savez-vous comment le résoudre ?

Pour info, j'utilise Perl sur Debian.

Merci

Je suppose que ton éditeur de texte écrit en UTF-8 (donc tes accents sont en utf-8) mais que MIME::Lite transmet ton message en prétendant que c'est du latin-1 ou quelque chose comme ça.
Tu as plusieurs solutions, mais la meilleure reste de simplement dir à MIME::Lite que tu travailles en UTF-8 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/usr/bin/perl -w use strict; use warnings; use utf8; use MIME::Lite;   my $msg = MIME::Lite->build( From => 'machin@orange.fr', To => 'machin@gmail.com', Subject => "Re: AutoSend", Type => 'TEXT', Encoding => 'quoted-printable', Data => "Un autre mail passionant avec des accents ééé ààà" ); $msg->attr("content-type.charset" => "utf-8"); $msg->send('smtp', 'smtp.orange.fr');

---

Ca marche très bien.

--
Jedaï

Merci !!

Effectivement, ça fonctionne mieux...sauf pour le sujet du message qui perd tous ses caractères accentués.

Je vais continuer à chercher.

Merci :D

Citation:

---

Envoyé par MikeMeilleur

Merci !!

Effectivement, ça fonctionne mieux...sauf pour le sujet du message qui perd tous ses caractères accentués.

---

En fait ça marche avec certains clients (GMail par exemple), mais une méthode plus portable est d'employer la méthode préconisée par la RFC2047 : encode avec quoted-printable le contenu de subject et indiquer que le charset est de l'utf-8 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/usr/bin/perl -w use strict; use warnings; use utf8; use MIME::Lite; use MIME::QuotedPrint qw(encode_qp); use Encode qw(encode);   my $encoded = encode_qp(encode("UTF-8", "ééééééé àààààà êêêê"));   my $msg = MIME::Lite->build( From => 'machin@orange.fr', To => 'truc@gmail.com', Subject => "=?utf-8?Q?$encoded?=", Type => 'TEXT', Encoding => 'quoted-printable', Data => "Un autre mail passionant avec des accents ééé ààà" ); $msg->attr("content-type.charset" => "utf-8"); $msg->send('smtp', 'smtp.orange.fr');

---

Là ça devrait marcher avec tout client mail qui se respecte !

--
Jedaï

Bonsoir,

Merci à tous pour votre aide.

Maintenant, ça fonctionne parfaitement :D

Merci encore.