this guy suggested this. I'm not sure exactly how. looks like if a count is > some value send the mail.
john -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Nick Hayer Sent: Sunday, April 02, 2006 7:59 AM To: Declude.JunkMail@declude.com Subject: Re: [Declude.JunkMail] Hijack Notification Hi Craig, Although you may already do this figured I mention it anyway - this technique works well to monitor spool traffic eg when a threshold is reached I get an email - so for example in your code below IF FFunc.Count > 100 [altered path for the spool dir] > send me an email... -Nick Craig Edmonds wrote: >Hi John, > >Not sure if this is any help but I found a basic way to handle this as I had >problems with clients ringing up saying "I sent out some mails and they have >not gone"...etc etc etc, and of course when I check the hold2 directory >there are 500 emails in there. > >What I do is have a basic setup that checks for me every 30 minutes if there >are some .smd files in the C:\IMAIL\spool\spam\hold2 folder and if it finds >any, it emails me a simple email telling me how many *smd files there are >which then goes to my blackberry letting me know. > >I am pretty sure there is an easier way but this is my 10 minute solution >and it works for me. > >1) I installed the following object on the mail server >http://www.xs4all.nl/~jarit/asp/filefunc/download.html > >2) made a .vbs file called check4files.vbs and put it in the >C:\IMAIL\spool\spam\hold2 dir. > >The code in the .vbs file is like this.. > >======================= >filepath="C:\IMAIL\spool\spam\hold2\*.smd" >emailfrom="[EMAIL PROTECTED]" >emailto="[EMAIL PROTECTED]" >Set FFunc = CreateObject("FileFunctions.files") >if FFunc.Exists(filepath) then >FFunc.GetFileList(filepath) > Set objMessage = CreateObject("CDO.Message") > objMessage.Subject = "(Alert) " & FFunc.Count & " Messages in The Hold >Queue" > objMessage.From = emailfrom > objMessage.To = emailto > strBody = strBody & "There are currently " & FFunc.Count & " files in the >Hold Queue" & vbCRLF > strBody = strBody & "" & vbCRLF > strBody = strBody & "Date: " & FormatDateTime(Date, 1) & " - " & >FormatDateTime(Now, 4) > objMessage.TextBody = strBody > objMessage.Send >end if >======================== > >3) Then I set up a scheduled task in the windows schduled tasks to run the >file every 30 minutes. > >I hope that helps you. > >Kindest Regards >Craig Edmonds >123 Marbella Internet >W: www.123marbella.com >E : [EMAIL PROTECTED] > > >========================================= > > >-----Original Message----- >From: [EMAIL PROTECTED] >[mailto:[EMAIL PROTECTED] On Behalf Of John Doyle >Sent: Wednesday, March 29, 2006 9:25 PM >To: Declude.JunkMail@declude.com >Subject: [Declude.JunkMail] Hijack Notification > >Does anyone have a utility to email a notification when hijack holds an ip >address permanently? > >Thanks in advance > >John >--- >This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, >just send an E-mail to [EMAIL PROTECTED], and type "unsubscribe >Declude.JunkMail". The archives can be found at >http://www.mail-archive.com. >[ This E-mail has been scanned for Spam and Viruses by Declude ] [ Thank You >For Using 123 Marbella Internet ] > > > > >[ This E-mail has been scanned for Spam and Viruses by Declude ] >[ Thank You For Using 123 Marbella Internet ] > >--- >This E-mail came from the Declude.JunkMail mailing list. To >unsubscribe, just send an E-mail to [EMAIL PROTECTED], 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 [EMAIL PROTECTED], 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 [EMAIL PROTECTED], and type "unsubscribe Declude.JunkMail". The archives can be found at http://www.mail-archive.com.
