perl利用pop3 收取邮件

栏目: Perl · 发布时间: 6年前

内容简介:电脑缺少cpan> install Mail::POP3Client

背景:公司需要开发一套大型客服系统

需求为100个客服同时回复N个用户的 邮件 ,所以找个 perl

来自动读取一个特定邮箱的

邮件

比如service@java-er.com

#!/usr/bin/perl -w
use strict;
use Mail::POP3Client;
 
my $pop;
my $num_mesg;
my $i;
my $username;
 
our $mail_host  = 'imap.exmail.qq.com';  
our $mail_user  = 'yuexiaosheng@java-er.com';  
our $mail_pass  = '8888899999';  
 
my $pop = new Mail::POP3Client( $mail_user, $mail_pass, $mail_host );
 
$num_mesg = $pop->Count;	#How many messages are there?
print ("You have ".$num_mesg." new messages.\n");
 
exit();
for ($i = 1; $i <= $num_mesg; $i++) {
print $pop->Head($i), "\n";	#print header for each message
}

电脑缺少 mail 包的同学

perl -MCPAN -eshell

cpan> install Mail::POP3Client

参考我的 perl 另外一个文章 https://java-er.com/blog/perl-read-url-connect-lwp/

如果你是一名技术人员可加我QQ 2651-0442-02,如果你是 java 技术人还可以加入QQ群 1784-9136-0

首发地址:月小升博客 –无特殊说明,文章均为月小升原创,欢迎转载,转载请注明本文地址,谢谢

以上所述就是小编给大家介绍的《perl利用pop3 收取邮件》,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持!

查看所有标签

猜你喜欢:

本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们

从界面到网络空间

从界面到网络空间

(美)海姆 / 金吾伦/刘钢 / 上海科技教育出版社 / 2000-7 / 16.40元

计算机急剧改变了20世纪的生活。今天,我们凭借遍及全球的计算机网络加速了过去以广播、报纸和电视形式进行的交流。思想风驰电掣般在全球翻飞。仅在角落中潜伏着已完善的虚拟实在。在虚拟实在吕,我们能将自己沉浸于感官模拟,不仅对现实世界,也对假想世界。当我们开始在真实世界与虚拟世界之间转换时,迈克尔·海姆问,我们对实在的感觉如何改变?在〈从界面到网络空间〉中,海姆探讨了这一问题,以及信息时代其他哲学问题。他......一起来看看 《从界面到网络空间》 这本书的介绍吧!

图片转BASE64编码
图片转BASE64编码

在线图片转Base64编码工具

HTML 编码/解码
HTML 编码/解码

HTML 编码/解码

正则表达式在线测试
正则表达式在线测试

正则表达式在线测试