gilou Modérateur Modosaurus Rex | Quoique non, tout bêtement, si ton source est en utf8, il suffit de faire Subject => "=?UTF-8?B?" ."é à è ï ù ô ê". "?=",
a priori.
Ça marche pas ça:
Code :
#!/usr/bin/perl use strict; use warnings; use MIME::Lite; if(1 && 1){ print("Envoi du mail...\n" ); my $msg = MIME::Lite->new( From => 'toto@tutu.fr', To => 'tutu@toto.fr', Type => 'text/plain; charset=UTF-8', Subject => "=?UTF-8?B?" ."é à è ï ù ô ê". "?=", Data => "é à è ï ù ô ê" ); if($msg->send){ print("Envoi du mail réussi !\n" ); } else { print("échec de l'envoi du mail !\n" ); } }
|
A+,
---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻
|