qscan is a Perl script which enables Sendmail to scan all queued email and rename any file attachments from .vbs to ~vbs, .vbe to ~vbe, etc. It can be customized to change any file extension or to rename any attached files.
Information regarding Project Releases and Project Resources. Note that the information here is a quote from Freecode.com page, and the downloads themselves may not be hosted on OSDN.