使用perl发送邮件

butter7372

　　最近有需要使用脚本发送邮件的需求，故整理了下资料，写了个send_mail的脚本。如下：
 

• 脚本 mail.pl
  

 

#!/usr/bin/perl
use Net::SMTP_auth;
#use strict;
use MIME::Base64;
use Encode;
use Encode qw(from_to);
####################################################
#发送邮件
#使用“cpan Net::SMTP_auth” 安装perl发送邮件需要的模块
#@param mailto 收件人
#@param subject 邮件主题
#@param msgFile （可选） 默认为/tmp/mailservice.out 调用之前先把待发送内容填充到 msgFile
#脚本会自动获取文件里面的内容当内容发送。
#@author:  bimo
#@date:2013-08-09
####################################################
if(!@ARGV[0])   {
print "usage:","\n","mail.pl <mailto> <subject> [msg_contentfile]   \n";
exit 0;
}
if(!@ARGV[1])   {
print "usage:","\n","mail.pl <mailto> <subject> [msg_contentfile]   \n";
exit 0;
}
if(!@ARGV[2])   {
$msgFile="/tmp/mailservice.out";
}else{
$msgFile=@ARGV[2];
}
my $mail_content=`cat $msgFile`;
my $to_address  = $ARGV[0];
my $subject = $ARGV[1];;
my $mail_user   = 'xxx@xx.com';
my $mail_pwd    = '*****';
my $mail_server = 'mail.xxx.com';
my $from    = "$mail_user";
print "run mail.pl to_address:",$to_address,"msg_contentfile:",$msgFile,"\n";
my $smtp = Net::SMTP->new($mail_server);
$smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";
$smtp->mail($mail_user);
$smtp->to($to_address);
$smtp->data();             # begin the data
$smtp->datasend("To: $to_address\n");
$smtp->datasend("Subject:=?utf-8?B?".encode_base64($subject,'')."?=\n\n");
$smtp->datasend($mail_content);      # set content
$smtp->dataend();   # end the data
$smtp->quit();

#my $misc=`cat /dev/null > $msgFile` ;
#print "clean file:$msgFile, 's content result  $misc \n";
 

• 执行测试 mail.pl
  

 

/usr/bin/perl mail.pl abc@qq.com 测试perl邮件发送 /tmp/mailservice.out