Chinaunix首页 | 论坛 | 博客
  • 博客访问: 391085
  • 博文数量: 117
  • 博客积分: 4416
  • 博客等级: 上校
  • 技术积分: 1135
  • 用 户 组: 普通用户
  • 注册时间: 2009-06-08 14:16
个人简介

一生醉生忘死,就让他继续下去吧!

文章分类

全部博文(117)

分类:

2010-03-18 15:27:32

#!/usr/bin/perl
use Net::Smtp;

#邮件发送服务器地址
$smtp_server = 'smtp.126.com';

#发件人地址
$from = 'sleetdrop@126.com';

#邮件标题
$title = '测试邮件一个,接好,别砸到!';

#发一封歇息多久
$delay = 1;

#包含收件人列表及可变信息的文本文件
#格式为:用户名,密码,详细信息
#请把它放在当前目录下,并把它命名为list.txt
$f_list='list.txt';
open(FILE,$f_list) || die "Can not open list file\n";
while(){
chomp;
($usr,$passwd,$detail) = split(/,/);

#根据列表文件构建email地址
#$to = $usr.'@syau.edu.cn';

#如果您的列表里直接存储的是email地址,请用如下一句替换上面一句
$to = $usr;

#根据列表文件构建邮件内容。
#因为这里的heredoc要求顶格所以不能正常缩进
$msg=<$detail,您好。

我们的邮件服务器地址已经变为xxxxxxxx.
您的用户名为$usr密码为$passwd
请尽快登陆修改。
由于本次更改给您工作带来的不便在此表示歉意。
谢谢您的支持。

HTML

print "I am sending Email No.".($cnt+=1)." to ".$to."......\n";
&gingerMail($smtp_server,$from,$to,$title,$msg);
print "Email No.".$cnt." has been sent to: ".$to."\n";
sleep($delay);
}

close(FILE);
print "\n......All Finished!!!";

###########################
#                                                                
#例程gingerMail
#参数列表
#$smtp_server发邮件smtp服务器地址
#$from发件人地址      
#$to收件人地址                          
#$title邮件标题                            
#$msg邮件内容
#
###########################
sub gingerMail{
my($smtp_server,$from,$to,$title,$msg) = @_;
$smtp = Net::SMTP->new($smtp_server);
#如果您的服务器需要认证,请在下面输入用户名和密码。
#需要Auth-SASL模块的支持
#windows下可以用ppm安装,unix下请用CPAN安装。
$smtp->auth('sleetdrop','xxxxxxxxx');
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend('From: '.$from);
$smtp->datasend("\n");
$smtp->datasend('To: '.$to);
$smtp->datasend("\n");
$smtp->datasend('Subject: '.$title);
$smtp->datasend("\n\n");
$smtp->datasend("$msg\n");
$smtp->dataend();
$smtp->quit;
}

阅读(2537) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~