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  "收件人郵箱地址" "發件人郵箱地址" "郵件標題" "郵件內容"