智能邮件筛选器(IMF)的管理
来源:互联网
作者:west263.com
时间:2008-02-23
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
本文翻译自www.msexchange.org,原作者Amit Zinman ,翻译文章版权yinjie。介绍
IMF(智能邮件筛选器)是个免费的插件,用于辅助EX2003阻止垃圾邮件。该产品以SCL(垃圾邮件信任级别作为判定的依据,SCL是通过对邮件内容的分析得出的,其识别准确性相当的高,但遗憾的是,该产品并没有提供太多的可配置部分,同时被阻拦的邮件也不便于分析。因此管理员不能依据自己公司的情况找到合适的配置参数值。虽然IMF允许将被网关处理的邮件存档,但保存的邮件不便于阅读和查询,这里我们介绍一些第三方产品帮助您管理IMF归档的邮件。
准备工作
要实现对IMF的管理。首要是要对被拦截的邮件归档。这需要在IMF上配置,见下图:

归档文档夹默认在"program files\exchsrv\mailroot\vsi <#>\UceArchive" 目录中。其中的"#"是IMF配置的SMTP虚拟服务器节点编号,默认为1。
您能够将该存档目录移动到一个空闲空间大的硬盘上,要移动该目录,请编辑如下注册表:(注意:编辑注册表可能导致系统故障,请在操作前备份)
HKEY_LOCAL_MACHINE\Software\Microsoft\Exchange\ContentFilter
中国.网管联盟
在此键下新增加一个STRING型的键,叫"ArchiveDir",其值为目录的全路径,如"E:\Archive"
您也能够利用以下脚本删除过期(此处为早于7天)的归档邮件
-----------------
' folder to start search in...
path = "c:\program files\exchsrvr\mailroot\vsi 1"
' delete files older than 7 days...
killdate = date() - 7
arFiles = Array()
set fso = createobject("scripting.filesystemobject")
' Don't do the delete while you still are looping through a
' file collection returned from the File System Object (FSO).
www_bitscn_com
' The collection may get mixed up.
' Create an array of the file objects to avoid this.
'
SelectFiles path, killdate, arFiles, true
nDeleted = 0
for n = 0 to ubound(arFiles)
on error resume next 'in case of 'in use' files...
arFiles(n).delete true
if err.number = 0 then
nDeleted = nDeleted 1 中国.网管联盟
end if
on error goto 0
next
sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders)
on error resume next
'select files to delete and add to array...
'
set folder = fso.getfolder(sPath)
set files = folder.files
for each file in files
' uses error trapping around access to the bbs.bitsCN.com
' Date property just to be safe
'
dtlastmodified = null
on error resume Next
dtlastmodified = file.datelastmodified
on error goto 0
if not isnull(dtlastmodified) Then
if dtlastmodified < vKillDate then
中国.网管联盟
count = ubound(arFilesToKill) 1
redim preserve arFilesToKill(count)
set arFilesToKill(count) = file
end if
end if
next
if bIncludeSubFolders
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!



