use MIME::Lite;
use Mail::Sendmail;
-use Encode;
-use Carp;
use C4::Members;
use C4::Branch;
my %mail = (
To => $to,
From => $userenv->{emailaddress},
- Subject => "" . $innerletter->{title},
- Message => "" . $innerletter->{content},
+ Subject => Encode::encode( "utf8", "" . $innerletter->{title} ),
+ Message => Encode::encode( "utf8", "" . $innerletter->{content} ),
'Content-Type' => 'text/plain; charset="utf8"',
);
sendmail(%mail) or carp $Mail::Sendmail::error;