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

转载 2012年03月29日 11:55:06

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;

相关文章推荐

perl利用SMTP发送邮件脚本(带认证)

#!/usr/bin/perl -wuse strict;use Net::SMTP;use Authen::SASL;(在SMTP服务器上要求用户认证,必须的模块)BEGIN {push (@INC...

(包括模块安装)Perl->使用Net::SMTP_auth发邮件

使用Net::SMTP_auth发邮件,首先要先安装Net::SMTP_auth模块。1. Windows Operating System:如果是在windows操作系统使用的ActivePerl的...

Perl发邮件 Nnt::SMTP::SSL

#!/usr/bin/perl ## Copyright (c) 2012 by novice(http://www.hailongchang.org) use Net::SMTP::SSL; my...
  • tft3640
  • tft3640
  • 2014年04月12日 11:15
  • 417

配置mail命令的IMAP和SMTP,接收邮件和发送邮件

借鉴别人一篇文章 mail命令是LINUX下一个非常轻巧的交互式的命令行邮件客户端,基于Berkeley Mail 8.1,提供MIME, IMAP, POP3, SMTP和S/MIME等扩展。...

Perl -- 使用Perl 读取和发送邮件

Perl: 读取邮件 发送邮件

SMTP验证方式种类(LOGIN、PLAIN、CRAM-MD5)

最初的SMTP协议不包含安全认证的,所谓的ESMTP在安全性方面扩展了SMTP,通过增加命令EHLO和AUTH。如今的SMTP服务器,无论是公网的还是内网的,大都要求安全认证,如果你使用的是Outlo...
  • mhfh611
  • mhfh611
  • 2013年07月25日 16:25
  • 16918

Perl简单用法:命令行参数、连接数据库mysql、DNS查询、发送邮件

一、命令行参数 1.1 代码 #!/usr/bin/env perl use Getopt::Long; use Data::Dumper; use Pod::Usage; my $Debug =...

(包括模块安装)Perl->使用Net::SMTP_auth发邮件

使用Net::SMTP_auth发邮件,首先要先安装Net::SMTP_auth模块。1. Windows Operating System:如果是在windows操作系统使用的ActivePerl的...

javax.mail.AuthenticationFailedException: 530 Error: A secure connection is requiered

sina没错误,但qq有错误?求解答案:将smtp.qq.com个人邮箱 改为smtp.exmail.qq.com企业邮箱,建议用企业邮相的主机名 javax.mail.Authentication...

可以支持auth的smtp发送邮件方式-ehlo

以前smtp申明都是用的helo,但这种申明,不支持用户auth登陆,但现在已经找不到不用登陆验证的邮箱了。 ehlo是对helo的扩展,即extend helo,可以支持authorizati...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Perl中使用Net::SMTP_auth发送邮件 .
举报原因:
原因补充:

(最多只允许输入30个字)