Solved

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

Posted on 2008-06-15
2
2,348 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 50 total points
Comment Utility
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 200 total points
Comment Utility
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

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Recently, I had the need to build a standalone system to run a point-of-sale system. I’m running this on a low-voltage Atom processor, so I wanted a light-weight operating system, but still needed Windows. I chose to use Microsoft Windows Server 200…
A quick step-by-step overview of installing and configuring Carbonite Server Backup.
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

743 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

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now