perl模块发邮件

vim sendmail.pl

#!/usr/bin/perl -w

use MIME::Lite;

sub perl_sendmail {

my $mail_to="$_[0]";    收件人邮箱

my $from = "$_[1]";     发件人邮箱

my $subject = "$_[2]";   邮件标题

my $data = "$_[3]";      邮件内容

$sendmail = MIME::Lite->new(

From     => $from,

To       => $mail_to,

Subject  => $subject,

Data     => $data

);

$sendmail->attr("content-type" => "text/html");

$sendmail->send;

}

perl_sendmail(@ARGV);

给上边perl脚本执行权限就可以通过shell脚本调用上边的perl脚本了

./sendmail.pl  "收件人邮箱地址" "发件人邮箱地址" "邮件标题" "邮件内容"

perl模块发邮件,布布扣,bubuko.com