view release on metacpan or  search on metacpan

lib/Email/Send/YYClouds.pm  view on Meta::CPAN

    my $msg = MIME::Lite->new (
        From => $sender,
        To =>  $to_address,
        Type     => $type,
        Subject => encode( 'MIME-Header', $subject ),
        Data    => encode_utf8($body),
        Encoding => 'quoted-printable',
    ) or die "create container failed: $!";

    $msg->attr('content-type.charset' => 'UTF-8');

    $msg->send(  'smtp',
                 $smtprelay,
                 Debug => $self->{debug}
              );
}


=head1 AUTHOR