Hi Harry,
Below is a script I copied from the list long ago - edit as applicable for
your setup, save it as a .vbs file and run it every 15 min or so....
-Nick
fHold1 = "\\192.168.254.23\goofy\imail\spool"
fHold2 = "\\192.168.254.23\goofy\imail\spool\proc"
aMail = "e:\imail\imail1.exe "
mFrom = "-u 'spamstar2.moni...@madriveraccess.com' "
mTo = "-t 'n...@madriveraccess.com' "
if GetFileCount(fHold1) > 300 then
MailNotice "Imail Spool", GetFileCount(fHold1), mTo
end if
if GetFileCount(fHold2) > 300 then
MailNotice "Imail\spool\proc", GetFileCount(fHold2), mTo
end if
Function GetFileCount(folderspec)
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
GetFileCount = fc.count
End Function
Function MailNotice(fname, fcount, mTo)
Dim mCmd, mSubj, WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
mSubj = "-s 'SPAMSTAR2(192.168.254.23) Mail held in " & fname & ": " &
fcount & "' "
mCmd = aMail & mFrom & mTo & mSubj & "-f"
Return = WshShell.Run(mCmd , 1, TRUE)
End Function
MadRiverAccess.com|Skywaves.com Tech Support
US/Canada 877-873-6482 or International +1-802-229-6574
Emergency Support 24/7: supp...@skywaves.net
General and Non-Emergency support ticket:
https://www.skywaves.com/content/secure/support_ticket.htm
----------------------------------------
From: "Harry Vanderzand" <ha...@intown.net>
Sent: Wednesday, August 25, 2010 9:52 AM
To: declude.junkmail@declude.com
Subject: [Declude.JunkMail] Declude queue alert
Is there any way that the system can give me an alert when the Declude
queue fills up past a certain point? There have been a couple of cases
recently that have caused Declude to stop processing. The mail backs up in
the queue and I only realize it when someone complains or I notice that no
mail has come in for a while. I then restart the service and processing
starts up again.
If I were to get an alert that say, 500 items were in the queue then I
would know there is a problem.
Thank you
Please note our new Address
Harry Vanderzand
Intown Internet
740 Erbsville Road
Waterloo, On, N2J 3Z4
519-741-1222
DISCLAIMER: The information in this message is confidential and may be
legally privileged. It is intended solely for the addressee. Access to this
message by anyone else is unauthorised. If you are not the intended
recipient, any disclosure, copying,or distribution of the message, or any
action or omission taken by you in reliance on it, is prohibited and may be
unlawful. Please immediately contact the sender if you have received this
message in error. Thank you.
---
[This E-mail was checked by Declude]
---
This E-mail came from the Declude.JunkMail mailing list. To
unsubscribe, just send an E-mail to imail...@declude.com, and
type "unsubscribe Declude.JunkMail". The archives can be found
at http://www.mail-archive.com.
---
This E-mail came from the Declude.JunkMail mailing list. To
unsubscribe, just send an E-mail to imail...@declude.com, and
type "unsubscribe Declude.JunkMail". The archives can be found
at http://www.mail-archive.com.
