Perl 教程 之 Perl 发送邮件 4

Perl 发送邮件

发送 HTML 格式邮件

我们可以在邮件头部添加 Content-type: text/html\n 来发送 HTML 格式的邮件，实例如下：

实例

!/usr/bin/perl

use MIME::Lite;

接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱

$to = 'XXXXXXXXX@qq.com';

抄送者，多个使用逗号隔开

$cc = 'test1@baidu.com, test2@baidu.com';

发送者邮箱

$from = 'test@baidu.com';

标题

$subject = '百度 Perl 发送邮件测试';
$message = '

这是一封使用 Perl 发送的邮件

使用了 MIME::Lite 模块。

来自百度，地址是:http://www.baidu.com。

$msg = MIME::Lite->new(
From => $from,
To => $to,
Cc => $cc,
Subject => $subject,
Data => $message
);

添加头部信息

$msg->attr("content-type" => "text/html");
$msg->send;
print "邮件发送成功\n";