关于perl实现自动回复邮件

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

1^# windows.li 发表于 2007-09-11 10:35

关于perl实现自动回复邮件

现象:
公司服务器端使用exchange做MTA,客户端用MS office2003-outlook.我们一般建议用户将自己的邮件保存到本地硬盘以减轻邮件服务器的负荷,当用户个人文件夹的邮件超过3G的时候,就有可能无法收发邮件了,就必须重新建立一个新的邮件文件夹存放新邮件,但是很多员工并不注意这个问题.

想法:
用perl写个程序,实现:当用户个人文件夹的邮件超过3G的时候,会自动给该用户发送一封邮件,给出"请新建个人文件夹"的提示.
我用perl对某个文本大小做限制没有什么问题,现在我不能解决的是如何让系统给用户自动发送一封邮件!这个邮件如何能自动发送给用户?请大大们指教,谢谢您!

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2007-09-11 10:38

perldoc Net::SMTP

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

3^# windows.li 发表于 2007-09-11 10:41

老大回复真快,呵呵.
我马上去CPAN上搜索下,看看是个么东东,呵呵!谢谢您!

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

4^# flw 发表于 2007-09-11 10:50

QUOTE:

原帖由 windows.li 于 2007-9-11 10:41 发表
老大回复真快,呵呵.
我马上去CPAN上搜索下,看看是个么东东,呵呵!谢谢您!

不用搜了吧。我怎么记得似乎是标准模块呢。
先 perldoc Net::SMTP 一把，你的机器上多半已经有了。

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

5^# flw 发表于 2007-09-11 10:53

没错，就是标准模块。
标准的 perl-5.8.8.tgz 里就有的。

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

6^# windows.li 发表于 2007-09-11 10:58

在MSDOS中已经搜索出来了,呵呵,我看看说明,看如何用它,谢谢了!

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

7^# flw 发表于 2007-09-11 11:05

QUOTE:

原帖由 windows.li 于 2007-9-11 10:58 发表
在MSDOS中已经搜索出来了,呵呵,我看看说明,看如何用它,谢谢了!

如果你的 SMTP 服务器没有认证的话，把它开头那个例子复制就可以用了。
如果有认证的话，得装一个模块。

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

8^# windows.li 发表于 2007-09-11 14:30

才发现，自己连箭头符号->的含义都没搞懂．．．．．．要完成这个题目简直荒谬！才看完一遍<perl入门４>......
我还是静静的把＜perl语言编程第３版＞看完了再来吧！
辜负ＦＬＷ老大了，呵呵！

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

9^# flw 发表于 2007-09-11 14:37

QUOTE:

原帖由 windows.li 于 2007-9-11 14:30 发表
才发现，自己连箭头符号->的含义都没搞懂．．．．．．要完成这个题目简直荒谬！才看完一遍......
我还是静静的把＜perl语言编程第３版＞看完了再来吧！
辜负ＦＬＷ老大了，呵呵！

-> 的含义精华区有一篇文章，我讲的很详细。