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.
Hey,
ReplyDeleteThe 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 _
(FileName:=JUNK_SENDERS_FILE)
Else
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
objMailItem.Delete
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.. :-)
My junk email button, icon or toolbar is missing.
ReplyDeleteI 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.
Cheers