[原创]删除邮件服务器上的所有邮件的代码

流浪者

前提条件:<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>

冰玉

你好厉害呀！！<br>
佩服，你知道怎么样修改owa页面吗？

流浪者

呵呵，我没有研究过。公司暂时用不上这种功能。