邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: [原创]删除邮件服务器上的所有邮件的代码 [打印本页]

---

作者: 流浪者    时间: 2004-7-19 11:19
标题: [原创]删除邮件服务器上的所有邮件的代码
前提条件:<br>1、安装PERL；<br>2、知道所有的用户名和密码或者你要删除的用户名和密码；<br>3、把用户名和密码放入一个文件aduser.txt,两者之间以空格相隔。<br>
代码如下：<br>
#!/usr/bin/perl -w<br>
use Net::POP3;# Constructors<br>
#$pop = Net::POP3->new('pop3host');<br>
#my $messages=$pop->login("iqc","+=*#P9") or die "Login error:$!";<br>
open(USER,"aduser.txt") or die "open file error:$!";<br>
#my @mailuser=<USER>;<br>
foreach(<USER>){<br>if($_=~/user/){<br>next;<br>}<br>my ($user,$pass)=split(' ',$_);<br>print $user," ",$pass;<br>$pop = Net::POP3->new('192.168.9.198',Timeout=>60,Debug=>1);<br>if($pop->login("$user","$pass")>0){<br>my $msgnums=$pop->list;# hashref of msgnum =>size<br>foreach my $msgnum (keys %$msgnums){<br>#my $msg=$pop->get($msgnum);<br>#print @$msg;<br>$pop->delete($msgnum);<br>}<br>}<br>
$pop->quit;<br>
}<br>
close USER;<br>
<br>
把以下代码拷贝到记事本，保存为delmail.pl,然后在命令行模式下运行即可。<br><br>
<IMG SRC=../leadbbsfile/fileType/txt.gif border=0 onLoad="javascript:if(this.width>570)this.width=570;" onMouseover="javascript:if(this.width>570)this.width=570;" align=absmiddle>此主题相关文件 <A HREF="../leadbbsfile/upload/2004/07/19/408581093750.txt" TARGET=_blank>408581093750.txt</A><br>

---

作者: 冰玉    时间: 2004-7-19 16:02
标题: Re:[原创]删除邮件服务器上的所有邮件的代码
你好厉害呀！！<br>
佩服，你知道怎么样修改owa页面吗？

---

作者: 流浪者    时间: 2004-7-19 17:06
标题: Re:[原创]删除邮件服务器上的所有邮件的代码
呵呵，我没有研究过。公司暂时用不上这种功能。

---

欢迎光临 邮件服务器-邮件系统-邮件技术论坛(BBS) (http://5dmail.net/bbs/)

Powered by Discuz! X3.2