如果你使用的是 window 系统,没有 sendmail 工具。这时你就可以使用 perl 的 MIME:Lite 模块作为邮件客户端来发送邮件。
这里我们直接用 cpan 来安装(需要 root 权限),不用下载:
$ cpan -i MIME::Lite
……
/usr/bin/make install -- OK
文档地址: http://search.cpan.org/~rjbs/MIME-Lite-3.030/lib/MIME/Lite.pm
还需要安装
use MIME::Lite; # 接收邮箱,这里我设置为我的 QQ 邮箱,你需要修改它为你自己的邮箱 $to = '[email protected]'; # 抄送者,多个使用逗号隔开 # $cc = '[email protected], [email protected]'; #发送者邮箱 $from = '[email protected]'; #标题 $subject = '菜鸟教程 Perl 发送邮件测试'; $message = '这是一封使用 Perl 发送的邮件,使用了 MIME::Lite 模块。'; $msg = MIME::Lite->new( From => $from, To => $to, Subject => $subject, Data => $message ); $user='[email protected]'; $pass = '123456'; $res = $msg ->send('smtp', "smtp.163.com",AuthUser=>$user,AuthPass=>$pass); if($res){ print "邮件发送成功\n "; }else{ print "邮件发送失败\n "; }