Envoie mail incorrect : les accents ne passe pas !

**wappyboy** · 05/01/2006, 08h45

Bonjour,

Si quelqu'un peut m'aider ça serait fort sympa. Voici mon problème : lorsque j'éxécute mon code perl pour l'envoie de mon mail, le mail part, tout est correcte, seulement, les accents ne s'affiche pas correctement :-( Par exemple le à se change en Ã, etc.. Au début je me suis dit que ça devait être Mail::Sendmail qui ne jouait pas, donc je l'ai remplacé par MIME::Lite pour l'envoie des mails. Et comme ça ne jouait toujours pas après, j'ai réinstaller ma station linux en français (Fedora 4).

Voici mon code, je l'ai copié d'un de vos post. Merci d'avance !

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
20
21
22
23
24
 
use MIME::Lite;
 
# creation mail et envoi
# entete
$msg = new MIME::Lite
        From =>'toto@toto.fr',
        To =>'wanner@vsnet.ch',
        Subject =>'mail html avec pièce jointe',
        Type =>'multipart/mixed';
 
# creation du message
my $TXTMessage = new MIME::Lite
        Type =>'TEXT',
        Data =>""Héllo"";
 
# Modification du type (HTML)
$TXTMessage->attr("content-type" => "text/html; charset=iso-8859-1");
 
# Attachez le message au mail
$msg->attach ($TXTMessage);
 
# envoi
$msg->send;

Invité · 05/01/2006, 09h04

Tu peux construire tes chaînes de caractères ainsi :

Code :

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

my $string = "Futilit".chr(130)." et voil".chr(133);

Puis insère-les dans ta routine d'envoi de mail.

Et attention, un modérateur va te dire : "Utilise la balise CODE"...

**wappyboy** · 05/01/2006, 09h20

Merci beaucoup ! ça marche ....

Voici mon code final pour si quelqu'un est intéressé :

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
20
21
22
23
24
25
echo "use MIME::Lite;
 
my $corps_mail = "H".chr(233)."llo";
 
# creation mail et envoi
# entete
$msg = new MIME::Lite
        From =>'toto@toto.fr',
        To =>'wanner@vsnet.ch',
        Subject =>'mail html avec pièce jointe',
        Type =>'multipart/mixed';
 
# creation du message
my $TXTMessage = new MIME::Lite
        Type =>'TEXT',
        Data =>$corps_mail;
 
# Modification du type (HTML)
$TXTMessage->attr("content-type" => "text/html; charset=iso-8859-1");
 
# Attachez le message au mail
$msg->attach ($TXTMessage);
 
# envoi
$msg->send;"

Merci à kuzco !