Hi all,
Searched high n' low - including this NG - hoping someone might have got
this working.
I have used the ISA SMTP filtering...
ISA Management, Servers and Arrays, <Server>, Extensions, Application
Filters, SMTP Filter, Users / Domains (tab).
and in the Rejected Domains bit, I have entries like:
.ar
.cn
.cz
.kr
.ru
etc
but none of them are working. I'm still getting email from those
domains. Why ???
Yep, the filter is applied! :)
Any replies - please reply and cut-off here, appreciated!
===========================
Of possible interest, I'm deleting the contents of the Badmail folder
via Script - scheduled via the AT command...
one line...
at 6:30pm /every:M,T,W,Th,F,S,Su f:\util
\DeleteBadmailfolderOlderThan1Days.vbs
I modified a "delete file" script - can't recall where it came from,
prolly MS scripts collection somewhere - that I use on client domains to
delete files older than 7 days (changed that for my purposes) for a
"GTemp" folder (mapped to G: for all users) on the server that users can
"use for anything they want" - without fear it will overflow or get out
of hand. Users are aware (hopefully) that it's a "temp area" that files
will only last for 7 days in:
DeleteBadmailfolderOlderThan1Days.vbs
=====================================
' folder to start search in...
path = "F:\Program Files\Exchsrvr\Mailroot\vsi 1\BadMail"
' delete files older than 1 days...
killdate = date() - 1
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).
' 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)
'=================================================
' Files deleted via FSO methods do *NOT* go to the recycle bin!!!
'=================================================
on error resume next 'in case of 'in use' files...
arFiles(n).delete true
if err.number <> 0 then
wscript.echo "Unable to delete: " & arFiles(n).path
else
nDeleted = nDeleted + 1
end if
on error goto 0
next
' msgbox nDeleted & " of " & ubound(arFiles)+1 & " eligible files were
deleted"
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
' 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 then
for each fldr in folder.subfolders
SelectFiles fldr.path,vKillDate,arFilesToKill,true
next
end if
end sub
--
Duncan