关于Perl处理邮件通知的问题
时间：2010-10-12
来源：互联网
最近有个这个需求，想在本地(使用的系统是CentOS) 给邮件服务器(Windows 2003 Server Mail Server )
发送测试邮件。
请问该如何实现此功能呢？ 谢谢
发送测试邮件。
请问该如何实现此功能呢？ 谢谢
作者: jiannma 发布时间: 2010-10-12
我正在做一个关于检测垃圾邮件的东东 我表示 我恨死邮件了 作者: 猪鼻插葱 发布时间: 2010-10-12
不知道你想具体测什么
不过这个是我以前写过的一个，看看有没有什么帮助
复制代码
不过这个是我以前写过的一个，看看有没有什么帮助
- use Mail::Sender;
-
- sub sendmail(){
- my $addressee = shift @_;
- my $cc = shift @_;
- my $subject = shift @_;
- my @body = @_;
- eval{
- my $sender = new Mail::Sender {
- smtp => 'mail.XXX.com.cn', #这里写邮件服务器地址
- from => '[email protected]', #发件人地址
- to => $addressee, #收件人地址
- cc => $cc, #抄送人地址
- on_errors => 'die',
- };
- $sender->Open({
- subject => $subject, #标题
- ctype => "text/html",
- encoding => "GB2312"
- }) or die $Mail::Sender::Error,"\n";
- for (@body) { $sender->SendEx($_) };
- $sender->Close();
- };
- print $@;
- if($@){
- return 0;
- }else{
- return 1;
- }
- }
作者: 珞水的大叔 发布时间: 2010-10-12
回复 珞水的大叔
谢谢 刚我自己查了下资料 ，发现还可以使用perl里面的Net::SMTP模块解决
具体代码如下：
复制代码
谢谢 刚我自己查了下资料 ，发现还可以使用perl里面的Net::SMTP模块解决
具体代码如下：
- #!/usr/bin/perl
-
- use Net::SMTP;
-
-
-
- $smtp = Net::SMTP->new('mail.test.com'); # connect to an SMTP server
-
- $smtp->mail( '[email protected]' ); # use the sender's address here
-
- $smtp->to('[email protected]'); # recipient's address
-
- $smtp->data(); # Start the mail
-
-
-
- # Send the header.
-
- $smtp->datasend("To: [email protected]\n");
-
- $smtp->datasend("From: [email protected]\n");
-
- $smtp->datasend("\n");
-
-
-
- # Send the body.
-
- $smtp->datasend("Hello, World!\n");
-
- $smtp->dataend(); # Finish sending the mail
-
- $smtp->quit; # Close the SMTP connection
-
作者: jiannma 发布时间: 2010-10-12
回复 jiannma
呵呵，那加油啦
邮件处理确实很麻烦……
呵呵，那加油啦
邮件处理确实很麻烦……
作者: 珞水的大叔 发布时间: 2010-10-12
大叔 我问你个问题 我知道CPAN是个很好用的东西 但是我不知道怎么寻找能够实现自己想要的功能的具体模块 怎么才能快速的找到呢？ 作者: 猪鼻插葱 发布时间: 2010-10-12
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
