perl模块发邮件
vim sendmail.pl#!/usr/bin/perl -w
use MIME::Lite;
sub perl_sendmail {
my $mail_to="$_"; 收件人邮箱
my $from = "$_"; 发件人邮箱
my $subject = "$_"; 邮件标题
my $data = "$_"; 邮件内容
$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"收件人邮箱地址" "发件人邮箱地址" "邮件标题" "邮件内容"
页:
[1]