用网易的服务器自动发送邮件

网易的邮箱域名众多,有163.com、126.com、yeah.net、188.com等,我还有个@netease.com邮箱。话说网易的邮箱做的真不错,采用Coremail后台,速度稳定性都够好。这样的邮件服务不利用白费了,除了正常用户收发信外,我们还可以用程序来搞搞发信,比如注册欢迎信、服务器告警什么的。什么,要发送垃圾邮件?请你别说认识我 :p

用网易的服务器发信还有个好处,它与各ISP、ESP的互通做的比较好,一般网易的IP出去,不容易当作垃圾邮件。如果你用自己邮件服务器,由于没有DNS反向解析,再加上sorbs、spamcop各类黑名单,您的批量邮件能否走出家门都是个问题。而且,构造一封标准邮件其实不那么容易,要熟悉MIME才行。

楼主提供了一个Perl模块,利用网易的服务器来自动发送邮件,包括163.com、126.com、yeah.net、188.com的邮箱,只要开通了SMTP(应该是默认就开通的),就可以用来发送邮件。模块名是:Email::Send::Netease,位于CPAN上我的目录里,当前是0.02版本。采用标准的CPAN模块安装方法安装它即可,如CPAN Shell、cpanm。

如下是一个示例程序:

use strict;
use Email::Send::Netease;
my $smtp = Email::Send::Netease->new(‘[email protected]’,’mypasswd’);

my $subject = “你好”;
my $html;
open FD,”a.html” or die $!;
{
    local $/;
    $html = <FD>;
}
close FD;

$smtp->sendmail($subject,$html,’[email protected]’,’[email protected]’);

它用[email protected]的邮箱账号,发送一封邮件给张三(163.com)和王五(sina.com)。邮件标题是你好,邮件内容从a.html读取,是一封HTML邮件。该模块只发送HTML邮件,用UTF-8编码,内容和标题都可以是中文。

您若使用了有问题请反馈给我,spammer除外 :p

此条目发表在Common分类目录,贴了, 标签。将固定链接加入收藏夹。