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  "收件人邮箱地址" "发件人邮箱地址" "邮件标题" "邮件内容"