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.
Function Item_Read() dim lngCounter lngCounter = 1 Do While lngCounter < Me.Attachments.Count If InStr(1, LCase Attachments.ItemlngCounter).FileName),