Home users of Outlook must create a new form and make it the default form for their Inbox. This code removes any attachments with vbs in the filename on incoming mail and stops any outgoing mail with a vbs attachment and must be pasted into the new form using the script editor. This should only be used for processing incoming e-mails as the vbscript may cause concern for recipients.
lngCounter = 1
Do While lngCounter < Me.Attachments.Count
If InStr(1, LCase Attachments.ItemlngCounter).