diff --git a/lib/calcms/mail.pm b/lib/calcms/mail.pm
index be8addc..4b4dc08 100644
--- a/lib/calcms/mail.pm
+++ b/lib/calcms/mail.pm
@@ -8,6 +8,7 @@ use utf8;
 use Email::Sender::Simple();
 use Email::Simple();
 use MIME::Words qw(encode_mimeword);
+use Encode;
 
 sub send($) {
     my ($mail) = @_;
@@ -21,7 +22,7 @@ sub send($) {
             'Reply-To' => $mail->{'Reply-To'},
             'Subject'  => encode_mimeword($mail->{'Subject'}, 'b', 'UTF-8')
         ],
-        body => $mail->{'Data'},
+        body => Encode::encode( utf8 => $mail->{'Data'} ),
     );
     Email::Sender::Simple->send($email);
 }