Discussion :

[MikeMeilleur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jedai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[MikeMeilleur]

Merci !!

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

Je vais continuer à chercher.

Merci

[Jedai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[MikeMeilleur]

Bonsoir,

Merci à tous pour votre aide.

Maintenant, ça fonctionne parfaitement

Merci encore.