Re: opinions of mod_perl users on MIME email sending

[Clinton Gormley <suppressed>]

On Mon, 2007-06-18 at 16:51 +0100, John ORourke wrote:
> Hi folks,
> 
> I'm wondering what modules people use for sending email?  At the moment 
> I'm using MIME::Lite but I'm doing several things myself which a bigger 
> module might do for me:
> 
>  - header encoding - I can't find any modules which will Q- or B-encode 
> headers that have the UTF-8 flag set

http://search.cpan.org/~dankogai/Encode-2.23/lib/Encode/MIME/Header.pm

  use Encode qw(encode);

  my %headers = (
         From     => $from,
         To       => $to,
         Subject  => $subject,
  );

  my $msg = MIME::Lite->new(
         Data     => $output,
         Encoding => 'quoted-printable',
         map { $_ => encode('MIME-Header', $headers{$_}) } keys %headers             
 );
 $msg->attr('content-type' => 'text/plain; charset=utf-8; format=flowed' );


Clint