Wednesday, November 08, 2006

Microsoft Junk E-mail Reporting Tool

A friend sent me a link for the Microsoft Junk E-mail Reporting Tool. I'm an Outlook user, and therefore will do anything to cut down on spam.

Download it here...

Here's a summary, it's actually pretty convenient, or at least as easy as deleting the message manually.

The Junk E-mail Reporting Tool submits e-mail to Microsoft when you explicitly choose to do so. If you receive a junk e-mail and want to report it to us for analysis, first select the e-mail in Outlook and then click the junk e-mail button on your tool bar. You will see a pop-up window asking whether you want to report the selected e-mail to Microsoft and its affiliates. When you click “Yes” to confirm that you’d like to report the selected e-mail as junk e-mail, the junk e-mail will be deleted from your Inbox and sent to FrontBridge, a Microsoft company, for analysis to help us improve the effectiveness of our junk e-mail filtering technologies.


  1. Hey,
    The Junk e-mail reporting tool works pretty great.. The only problem that i see is that the e-mail addresses are not added to the junk mail senders list. I am guessing that Microsoft does not want to add them to there, and just have the users wait until a update comes for oulook..

    So beings that i found a way to add them to a text file, and you can later import that text file into your junk mail senders list (Oulook 2003 apparently does not have a Junk senders.txt file anymore ? )

    To do this, open a new macro and give it any name..

    When you get the macro opened. copy the following into the macro..

    ' The list of your junk e-mail message senders is stored in a file
    ' on your hard disk named "Junk Senders.txt".

    ' Replace this string of text with the path to your
    ' Junk Senders.txt file.

    Private Const JUNK_SENDERS_FILE As String = _
    "C:\Documents and Settings\[UserName]\Application Data\Microsoft\Outlook\Junk Senders.txt"

    Public Sub MultipleJunkEMailSenders()

    Dim objExplorer As Outlook.Explorer
    Dim objMailItem As Outlook.MailItem
    Dim intItem As Integer
    Dim objFSO As Scripting.FileSystemObject
    Dim objTextStream As Scripting.TextStream

    Set objFSO = New Scripting.FileSystemObject

    If MsgBox(Prompt:="Are you sure you want to " & _
    "add all of the selected senders to your " & _
    "junk e-mail sender list and then " & _
    "delete all of the selected e-mail " & _
    "messages? Caution: This action is not " & _
    "easily reversible!", Buttons:=vbYesNo) = vbYes Then

    If objFSO.FileExists(FileSpec:=JUNK_SENDERS_FILE) = False Then
    Set objTextStream = objFSO.CreateTextFile _
    Set objTextStream = objFSO.OpenTextFile _
    (FileName:=JUNK_SENDERS_FILE, IOMode:=ForAppending)
    End If

    Set objExplorer = Application.ActiveExplorer

    For Each objMailItem In objExplorer.Selection

    objTextStream.WriteLine Text:=objMailItem.SenderEmailAddress


    Next objMailItem

    MsgBox Prompt:="All selected senders have been added " & _
    "to your junk e-mail senders list and " & _
    "all selected e-mails have been deleted."

    End If

    End Sub

    Then after you do that.. Click on the tools menu in the VBA editor and click on References.. and select Microsoft Scripting Runtime..

    If you get a error saying that the macros are not enabled, change the security of your macro settings, close outlook.

    Now.. Select all the items in your deleted items folder that you want added to the junk mail text file.. Run the Macro... and viola.. All the e-mail addresses are now added to that text file.. Just import that to your junk senders.. :-)

  2. Anonymous2:02 AM

    My junk email button, icon or toolbar is missing.

    I installed this tool and was using it fine.

    I opened outlook this morning and got some odd MS error message, then my button, icon or toolbar for reporting this is missing.

    How to get it back?
    I have re-installed already.