如何使用Perl发送HTML电子邮件？

Question

我正在尝试使用Perl发送HTML电子邮件。

 open(MAIL,"|/usr/sbin/sendmail -t");

    ## Mail Header
    print MAIL "To: $to\n";
    print MAIL "From: $from\n";
    print MAIL "Subject: $subject\n\n";
    ## Mail Body
    print MAIL "Content-Type: text/html; charset=ISO-8859-1\n\n"
        . "<html><head></head><body>@emailBody";
 close(MAIL)

这是正确的做法吗？ 它由于某种原因不起作用。 谢谢你的帮助。

Answer 1

从Email :: Sender :: Simple或Email :: Sender开始 。
CPAN中有一个快速入门指南 ，里卡多在他2009年的出现日历中写了一篇很好的用法

从快速入门指南：

  use strict;
  use Email::Sender::Simple qw(sendmail);
  use Email::Simple;
  use Email::Simple::Creator;

  my $email = Email::Simple->create(
    header => [
      To             => '"Xavier Q. Ample" <x.ample@example.com>',
      From           => '"Bob Fishman" <orz@example.mil>',
      Subject        => "don't forget to *enjoy the sauce*",
      'Content-Type' => 'text/html', 
    ],
    body => "<p>This message is short, but at least it's cheap.</p>",
  );
  sendmail($email);

Answer 2

内容类型应该是邮件头的一部分。 现在它是邮件正文的一部分。 标题通过双换行符与正文分隔。 因此，删除主题标题后的第二个换行符应该可以解决内容类型无法正确解释的问题。

Answer 3

你不应该直接通过管道与sendmail交谈。 而是使用适当的CPAN模块。

Email :: Sender就是一个例子。

Mail :: Sender有一个关于发送HTML消息的特定指南

Answer 4

如果您只是生成费力的电子邮件并且您不需要大量的稳健性或调整，您可以随时采取快捷方式...

use Email::Stuff;

my $html = <<'END_HTML';
<html>
  ...
</html>
END_HTML

Email::Stuff->to('"Xavier Q. Ample" <x.ample@example.com>')
            ->from('"Bob Fishman" <orz@example.mil>')
            ->subject("Don't forget to *enjoy the sauce*")
            ->html_body($body)
            ->send;

Answer 5

使用sendmail从Perl发送MIME多部分消息时遇到问题。

经过几个小时的挫折后，我发现整个消息需要在一个变量中，在单个语句中将消息发送到sendmail。 例如，如果您的消息完全包含在名为$ email_msg的变量中，则通过sendmail发送消息将如下所示：

$mailprog = '/usr/sbin/sendmail';
open(MAIL,"|$mailprog -t");
print MAIL $email_msg;
close MAIL;

这有效，而使用许多“打印MAIL”消息内容“”似乎没有发送一些邮件阅读器可以按预期处理的邮件消息。

这是在CentOS服务器上使用Perl 5.8.8。

Answer 6

您可以使用Email :: MIME

    my $message = Email::MIME->create(
    header_str => [
      From    => 'no-reply@example.com',
      To      => $address,
      Subject => encode_mimewords($subject,
        Charset => 'utf-8', Encoding => 'B'),
      'Content-Type' => 'text/html',
    ],
    attributes => {
      encoding => 'base64',
      charset  => 'UTF-8',
    },
    body_str => $message_body,
  );
  sendmail($message);

Answer 7

使用html标签“pre”将是发送脚本的简单方法
HTML电子邮件中的输出。

    open(MAIL, "|/usr/sbin/sendmail -t");
    print MAIL "To: $EMAIL\n";
    print MAIL "From: $FROM\n";
    print MAIL "Subject: $SUBJECT";
    print MAIL "Content-Type: text/html; charset=ISO-8859-1\n\n";
    print MAIL < pre >\n$mailoutput< /pre >\n;
    close(MAIL);

这将允许您在脚本中执行所有格式化并将执行
在电子邮件中获得与屏幕上相同的输出。 [你知道确定
“pre”之前和之后没有空格