一个邮件群发的小程序，用来批量发送邮件。sender.pl
程序名: sender.pl版本: 0.1
程序功能: 通过一个maillist文件读取邮件地址，按照事先设计好的html模板，把邮件插入到转发服务器的队列中。使用SMTP模块，方便的更换转发服务器地址。
说明:
0.1版本支持模板替换，邮件群发，简单日志记录，lists文件中每行支持一个邮件地址。
程序调用方式：
#perl sender.pl lists template.html sender.log &
配置：
可以对如下三个参数进行设置，$relayhost是转发服务器地址，$mailfrom是发件人地址，$heloname是投递给转发服务器时，使用的helo_name。默认值如下：
my $relayhost="localhost";
my $mailfrom='[email]no-relay@steelport.extmail.org[/email]';
my $heloname="localhost";
注：任何意见欢迎反馈。 頂一個。。。。。。。。。。。。。。。 [quote][b]下面是引用chifeng于2007-06-03 15:19发表的一个邮件群发的小程序，用来批量发送邮件。sender.pl:[/b]
程序名: sender.pl
版本: 0.1
程序功能: 通过一个maillist文件读取邮件地址，按照事先设计好的html模板，把邮件插入到转发服务器的队列中。使用SMTP模块，方便的更换转发服务器地址。
说明:
.......[/quote]
顶一下，可以发展为日后extmail中群发的群发模块~ 呵呵~ 好东西。 chifeng老大这知道这个脚本能不能限制发信时间,比如设置每隔60秒发送一个邮箱 [quote][b]下面是引用54lyp于2007-06-06 13:10发表的:[/b]
chifeng老大这知道这个脚本能不能限制发信时间,比如设置每隔60秒发送一个邮箱[/quote]
可以，这个很easy，呵呵。。。
在那个while循环里面加一行
sleep 60
这样就可以了。但是这个只是限制了插入队列的时间，并不能限制smtp对外投递的时间，只能说对提高发送的成功率有点意义。 呵呵,多谢chifeng老大解释 [quote][b]下面是引用chifeng于2007-06-03 15:19发表的一个邮件群发的小程序，用来批量发送邮件。sender.pl:[/b]
程序名: sender.pl
版本: 0.1
程序功能: 通过一个maillist文件读取邮件地址，按照事先设计好的html模板，把邮件插入到转发服务器的队列中。使用SMTP模块，方便的更换转发服务器地址。
说明:
.......[/quote]
提个建议给chifeng，这个群发程序还有些不足，subject部分应该按规范做编码才对，而目前没有做编码，所以发出去的email也许会给识别为垃圾邮件的。 我只用 Mail:Sendmail 发邮件。 [quote][b]下面是引用hzqbbc于2007-06-15 08:56发表的:[/b]
提个建议给chifeng，这个群发程序还有些不足，subject部分应该按规范做编码才对，而目前没有做编码，所以发出去的email也许会给识别为垃圾邮件的。[/quote]
我需要再学习学习，改进一下，多谢老大指导。 :lol :lol :lol :lol :lol :lol :lol :lol :lol
太多东西了!学不完!
11
:lol :lol :lol :lol :lol :lol 不知其原因，所以在想会不会被人家当成垃圾邮件处理哦:lol 方便测试啊 必须顶！页:
[1]