在Perl中使用Net::SMTP_auth发送邮件 .

1， 在不需要认证的smtp服务器上发送邮件 #!/usr/bin/perl -w ??use Net::SMTP; ??$smtp = Net::SMTP->new($mail_server);? ? #邮件服务器地址 ??$smtp->mail($send_user);? ?? ?? ?? ?? ???#发件人 ??$smtp->to($recv_user);? ?? ?? ?? ?? ?? ? #收件人 ??$smtp->data(); ??$smtp->datasend("Subject: 测试主题/n");? ?#主题 ??$smtp->datasend("/n"); ??$smtp->datasend("A simple test message 测试中英文混合/n");? ? #消息内容 ??$smtp->dataend(); ??$smtp->quit; 2， 在需要认证的smtp服务器上发送邮件 #!/usr/bin/perl -w use strict; use Net::SMTP_auth; my $mailhost = 'mail.abc.cn'; my $mailfrom = '120@abc.cn'; my @mailto = ('aaa@163.com',? ?? ?? ?? ???'bbb@163.com'); my $user = '120@abc.cn'; my $passwd = '123456'; 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 = ; 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("From:$mailfrom/n"); $smtp->datasend("Subject: $subject/n"); $smtp->datasend("/n"); $smtp->datasend("$text/n/n"); $smtp->dataend(); } $smtp->quit;