#!/usr/bin/perl -w
use strict;
use Net::SMTP_auth;
my $mailhost = 'smtp.163.com';
my $mailfrom = 'zxb000@163.com';
my @mailto = ('1823663710@qq.com');
my $user = 'zxb0000@163.com';
my $passwd = '14000000014';
my $subject = 'hello';
#my $text
#my $f_list = '/home/sysadmin/scp.log';
#open(FILE, $f_list) or die "Can not open list file\n";
#undef $/;
my $text = "content";
my $smtp = Net::SMTP_auth->new($mailhost, Timeout=>120, Debug => 1) or die "Error.\n";
$smtp->auth('LOGIN', $user, $passwd);
foreach my $mailto(@mailto) {
$smtp->mail($mailfrom);
$smtp->to($mailto);
$smtp->data();
$smtp->datasend("To: $mailto\n");
$smtp->datasend("Frommailfrom\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$text\n\n");
$smtp->dataend();
}
$smtp->quit;
perl 发送邮件 Net::SMTP_auth
最新推荐文章于 2014-08-15 11:03:00 发布