Improve company productivity with a Business Account.Sign Up

x
?
Solved

Script to Delete dead messages from  C:\inetpub\mailroot\badmail

Posted on 2008-06-15
2
Medium Priority
?
2,887 Views
Last Modified: 2012-05-09
I have a mail gateway server that is accepting mail for 5 domains and i have about 1000 undeliverble messages  in the  c:\inetpub\mailroot\badmail folder perday what the best way  automatically deleting these messages
0
Comment
Question by:thombie
2 Comments
 
LVL 6

Assisted Solution

by:Compaq_Engineer
Compaq_Engineer earned 200 total points
ID: 21788057
Schedule a batchfile to run at a time of low server use using Windows Task Scheduler
The batchfile doesn't need to be anything complicated. I would use as below;-

C:
cd \inetpub\mailroot\badmail
del *.* /Q

Hope that helps.
0
 
LVL 58

Accepted Solution

by:
tigermatt earned 800 total points
ID: 21788138
I've attached below a VBS script which I configure as a Scheduled Task where it is necessary to go through and clear this folder out. The difference with this script is it will only delete mail which is 7 days old (although that value can easily be changed), so it gives you chance to check the Badmail queue before the messages are deleted.

You can simply select the script in the Scheduled Task box and configure it to run once a day, once an hour or at any other interval you choose. The script will then go through and delete all the mail which is more than iDaysOld - change the number assigned to the iDaysOld variable near the top if you want to delete mail which is less old, perhaps only 3 days old.

-tigermatt
Dim oFSO
Dim oFolder
Dim oFile
Dim iDaysOld
 
'Customize values here to fit your needs
      iDaysOld=7
      Set oFSO=CreateObject("Scripting.FileSystemObject")
      set oFolder=oFSO.GetFolder("C:\inetpub\mailroot\badmail")
 
'Walk through each file in this folder collection. 
'If it is older than iDaysOld days, then delete it.
 
For each oFile in oFolder.Files
If oFile.DateLastModified < (Date() - iDaysOld) Then                               
oFSO.DeleteFile oFolder.Path & "\" & oFile.Name
End If
Next
 
'Clean up
      Set oFSO = Nothing
      Set oFolder = Nothing
      Set oFileCollection = Nothing
      Set oFile = Nothing

Open in new window

0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

This may not be a text book method to resolve VSS backup issues but it seemed to have worked on few of the Windows 2003 servers we had issues while performing a Volume Shadow Copy backup. If you have issues while performing a shadow copy backup usin…
Scenerio: You have a server running Server 2003 and have applied a retail pack of Terminal Server Licenses.  You want to change servers or your server has crashed and you need to reapply the Terminal Server Licenses. When you enter the 16-digit lic…
Watch the video to know the simple way to remove or recover or reset lost or forgotten passwords of Outlook PST file. With Kernel Outlook Password Recovery tool such operation is very easy to perform. It is a freeware with limitation to use with 500…
Did you know PowerShell can save you time with SaaS platforms? Simply leverage RESTfulAPIs to build your own PowerShell modules. These will kill repetitive tickets and tabs, using the command Invoke-RestMethod. Tune into this webinar to learn how…

608 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question