如何在 perl 中发送 HTML/纯文本邮件

Question

我是 perl 语言的新手，我想在同一封电子邮件中发送纯文本文件和 html 文本的内容。我在哪里获取文本文件的文件内容，但我的 HTML 文本不起作用，即我的电子邮件中不是一个粗体句子。有人可以解释我的html标签如何工作。下面是我的完整代码。 P.S：当我删除打印 MAIL "MIME-Version: 1.0" 行时，我的 html 标记工作但文本文件不工作（不逐行打印）。

use MIME::Lite;
my $HOME        ='/apps/stephen/data';
my $FILE        ="$HOME/LOG.txt";
my @HTML        =();


 push(@HTML,"<b>To send the content of a file in email</b><br>\12");
 push(@HTML,`cat $FILE`);

&sendMail;


sub sendMail
{
$sub="TEST";
$from='ABC@ABC.com';
$to='ABC@ABC.com';
open(MAIL, "|/usr/lib/sendmail -t");
        print MAIL "From: $from \12"; print MAIL "To: $to \12";print    MAIL "Cc: $Cc \12";
        print MAIL "Subject: $sub \12";
        print MAIL "MIME-Version: 1.0" ;
        print MAIL "Content-Type: text/html \12";
        print MAIL "Content-Disposition:inline \12";
        print MAIL @HTML;
    close(MAIL);
}

Answer 1

您正准备use MIME::Lite，但随后您忘记了这一切并尝试手动拼凑一个 MIME 结构。即使您确切地知道自己在做什么，这也是痛苦且容易出错的；您绝对应该使用一组合适的库函数，以保持您的代码简单易读，并专注于实际任务。

MIME::Lite documentation 准确地展示了如何做到这一点，就在介绍的第二个示例中。

适应您的存根代码，

use MIME::Lite;

use strict;   # always
use warnings; # always

### Create a new multipart message:
$msg = MIME::Lite->new(
    From    => 'ABC@ABC.com',
    To      => 'ABC@ABC.com',
    #Cc      => 'some@other.com, some@more.com',
    Subject => 'TEST your blood pressure with some CAPS LOCK torture',
    Type    => 'multipart/mixed'
);

### Add parts (each "attach" has same arguments as "new"):
$msg->attach(
    Type     => 'text/html',
    Data     => join ('\n', '<b>To see the content of a file in email</b><br/>',
             '<strong><blink><a href="cid:LOG.txt">click here</a></blink></strong>')
);
$msg->attach(
    Type     => 'text/plain',
    Path     => '/apps/stephen/data/LOG.txt',
    Filename => 'LOG.txt',
    Disposition => 'attachment'
);
$msg->send();

Answer 2

这并不是 Perl 所特有的。 如果您想发送具有相同数据的替代表示的邮件，您必须使用 multipart/alternative，即

Mime-Version: 1.0
Content-type: multipart/alternative; boundary=foobar

--foobar
Content-type: text/plain

Plain text here
--foobar
Content-type: text/html

<p>HTML text here</p>
--foobar--

这样邮件程序将获得最好的表示。由于手动构建此类邮件可能很困难，因此您最好使用Email:MIME、MIME::Lite 或MIME::tools 等模块。

P.S：当我删除打印 MAIL "MIME-Version: 1.0" 行时，我的 html 标记工作但文本文件不工作（不逐行打印）。

难怪你忘记了行尾，也就是说，而不是

    print MAIL "MIME-Version: 1.0" ;

应该是

    print MAIL "MIME-Version: 1.0\n" ;

除此之外，使用\n 而不是\12 更清楚。

如果您坚持手动创建 MIME 消息，请仔细查看相关标准，另请参阅 http://en.wikipedia.org/wiki/MIME。值得注意的是，Mail/Mime 标题和正文之间必须有一个空行，并且不需要在每个标题行的末尾添加空格。