2

为了发送诸如行政专业人员日®之类的活动的愿望,我尝试通过所有邮件提供商向我的用户发送邮件,并且接收者正在正确获取电子邮件主题,但 AOL 邮件提供商除外我们在这里看到的特殊字符(注册符号)没有得到很好的渲染。我正在使用 perl。部分代码如下。

my $email_subject = _decode_html_entities($q->param('email_subject'));
my $email_msg = MIME::Lite->new(
            From     => '$frm',
            To       => $email_to,
            Subject  => '=?utf-8?B?'.encode_base64($email_subject).'?=',
            Type     => 'text/plain',
            Encoding => 'base64',
            Data     => $email_body
        );
        $email_msg->attr("content-type.charset"   => 'UTF8');
        $email_msg->add( 'X-Card-Nos' => $uc );
        $email_msg->add( 'X-Type'     => 'Test_YearAfter_Reminder' );
        $email_msg->add( 'Errors-To'  => $error_mail_rec );

sub _decode_html_entities {
    my $str = shift;
    $str =~ s/%([a-f0-9]{2})/chr(hex($1))/egi;
    return encode_utf8($str);
}

其他电子邮件提供商将邮件主题显示为

行政专业人员日®电子贺卡

而 aol 邮件主题显示主题行为

=?utf-8?B?QWRtaW5pc3RyYXRpdmUgUHJvZmVzc2lvbmFscyBEYXnCriBlY2FyZHM= ?=

4

1 回答 1

1

进行以下更改:

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

不需要默认 EOL "\n":

Subject  => '=?utf-8?B?'.encode_base64($email_subject,'').'?=',

此外,如果您在脚本中使用“使用 utf8”,则无需编码为 utf8。

于 2017-04-20T13:12:18.350 回答