Reporting false negatives to Sophos PureMessage

My employer recently switched from Symantec Brightmail to Sophos PureMessage. Now I am missing out on the Brightmail Plug-in for Outlook that helped removing and reporting false negatives.

So I hacked something for Outlook 2003 in an almost dead-language. Now I can hit a button in the main toolbar and shoot spam on sight.

Be warned: There are three dangerous functions in this code:

  • Permanently deletes selected messages
  • Sends message to on behalf of the user without confirmation
  • Permanently deletes the sent message

For your safety, add a confirmation dialog and error handling.

Apparently you have to enable macros or sign the macro project with a trusted code-signing certificate, or this code does nothing but display warnings.

    Sub ReportSpam()

        Dim m As MailItem

        Dim x As Integer

        Dim sel As Selection

        Dim a As MailItem

        Dim d() As MailItem

        Dim v


        Set sel = Application.ActiveExplorer.Selection

        If (sel.Count = 0) Then

            Exit Sub

        End If


        ReDim d(1 To sel.Count)


        Set m = Application.CreateItem(olMailItem)

        m.To = ""

        m.Subject = "Spam Samples"

        m.Importance = olImportanceLow

        m.ExpiryTime = DateAdd("h", 1, Now)

        m.DeleteAfterSubmit = True


        For x = 1 To sel.Count

            Set a = sel.Item(x)

            Set d(x) = a




        For Each v In d






    End Sub

Please note: Provided "AS IS" without warranties of any kind, neither express nor implied, including but not limited to correctness or fitness for a particular purpose. Under no circumstances shall I be held liable for any damage this code snippet may do, including but not limited to loss of email message or revenue or public respect.

This entry was posted in Computers and Internet. Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s