Perl 教程 之 Perl 发送邮件 3

Perl 发送邮件

使用 MIME::Lite 模块

如果你使用的是 window 系统，没有 sendmail 工具。这时你就可以使用 perl 的 MIME:Lite 模块作为邮件客户端来发送邮件。

MIME:Lite 模块 下载地址为：MIME-Lite-3.030.tar.gz。

这里我们直接用 cpan 来安装(需要 root 权限)，不用下载：

$ cpan -i MIME::Lite
……
/usr/bin/make install -- OK
安装成功后，我们来演示一个实例：

实例

!/usr/bin/perl

use MIME::Lite;

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

$to = 'XXXXXXXXXX@qq.com';

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

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

发送者邮箱

$from = 'test@baidu.com';

标题

$subject = '百度 Perl 发送邮件测试';
$message = '这是一封使用 Perl 发送的邮件，使用了 MIME::Lite 模块。';

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

$msg->send;

print "邮件发送成功\n";