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 is-spam@puremessage.net 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 = "is-spam@puremessage.net"

        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

            m.Attachments.Add(a)

        Next

 

        For Each v In d

            v.Delete()

        Next

 

        m.Send()

 

    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.

Advertisements
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:

WordPress.com Logo

You are commenting using your WordPress.com 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 )

Google+ photo

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

Connecting to %s