在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;

windows下使用perl Net:SMTP_auth发送邮件

使用Net::SMTP_auth发邮件,首先要先安装Net::SMTP_auth模块。 1. Windows Operating System:如果是在windows操作系统使用的ActivePer...
  • velanjun
  • velanjun
  • 2014年04月10日 09:57
  • 840

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

使用Net::SMTP_auth发邮件,首先要先安装Net::SMTP_auth模块。1. Windows Operating System:如果是在windows操作系统使用的ActivePerl的...
  • zhangxinrun
  • zhangxinrun
  • 2010年07月10日 12:50
  • 4232

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

#!/usr/bin/perl -wuse strict;use Net::SMTP;use Authen::SASL;(在SMTP服务器上要求用户认证,必须的模块)BEGIN {push (@INC...
  • zhangxinrun
  • zhangxinrun
  • 2010年07月09日 14:39
  • 4146

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

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

zabbix 邮件报错 Support for SMTP authentication was not compiled in

服务器系统是centos6.5 zabbix版本是3.0.4 根据 网上教程配置好邮件脚本后,触发发送邮件的时候报错:Support for SMTP authentication was not...
  • lamyuqingcsdn
  • lamyuqingcsdn
  • 2016年08月30日 10:46
  • 2791

smtp交互过程

事先声明,整个过程以LOGIN认证方式为例,其他认证方式大同小异。按照时间顺序,主要分为22个步骤。 1、客户端TCP连接服务器25端口; 2、三次握手以后,连接建立成功,服务器主动推送服...
  • woshinia
  • woshinia
  • 2013年05月30日 15:07
  • 17393

perl 写的发邮件smtp

  • 2010年03月13日 17:47
  • 3KB
  • 下载

perl 使用Net::SMTP 发邮件

use Net::SMTP; my $email_server = 'smtp.163.com'; my $email_receivers = 'aaa@163.com'; my $...
  • laozitianxia
  • laozitianxia
  • 2013年03月26日 14:39
  • 815

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

1, 在不需要认证的smtp服务器上发送邮件#!/usr/bin/perl -w  use Net::SMTP;  $smtp = Net::SMTP->new($mail_server);    #...
  • zhangxinrun
  • zhangxinrun
  • 2010年06月13日 16:38
  • 1443

perl 发送邮件 Net::SMTP_auth

#!/usr/bin/perl -w use strict; use Net::SMTP_auth; my $mailhost = 'smtp.163.com'; my $mailfrom = '...
  • tft3640
  • tft3640
  • 2014年04月11日 13:56
  • 507
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Perl中使用Net::SMTP_auth发送邮件 .
举报原因:
原因补充:

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