There is one feature Outlook 2003 doesn’t have that it should have: I get a lot of spam, on the order of 100 messages a day. That may not be much, but it is really annoying. Outlook 2003 is pretty good at filtering the junk. So far no false positives, which is good, but that means it tends to let some junk through. Usually, I’m pretty vigilant with my email checking, but even then the spam is sometimes too much.
The feature I’d like to see is ContextMenu item to select multiple messages as junk at time. Currently, I have to click each email. Annoying! Plus, it shouldn’t be that hard to do (famous last words in software), since the functionality for one message is there.
Any other features outlook 2003 should have? Tell Microsoft.
Or leave a comment
My boss actually sent an email asking about a similar type feature to the outlook dev team last week…. how ironic. My suggestion to you is to use the "rules" feature instead of deleting one by one. If you know it is junk setup a rule to automatically delete it for….this way each message only has to be handled once.
Mike,
That’s what the Junk Mail > Add To Blocked Sender’s List does. If I don’t know whom to block, I can’t make a rule. What I want is something that will do "Add To Blocked Sender’s List" for multiple emails at once.
Re-reading my post, I didn’t make that very clear. Forgive me, I’m new to this blogging thing :).
My bad…I thought you were bitching about the default spam filtering. My point was to supplement that with your own rules. Appears we were both getting at the same thing 🙂
I found the following macro code for older versions of Outlook. It doesn’t seem to be wokring with Outlook 2003. Any help would be great!
Sub KillSpam()
Dim myOlApp As Outlook.Application
Dim myFolder As Outlook.MAPIFolder
Dim myItem As Outlook.MailItem
Dim ctl As CommandBarControl ‘ Junk E-mail flyout menu
Dim subctl As CommandBarControl ‘ Add to Junk Senders list menu Item
Dim i As Integer
Set myOlApp = CreateObject("Outlook.Application")
Set myFolder = myOlApp.ActiveExplorer.CurrentFolder
iCount = myOlApp.ActiveExplorer.Selection.Count
For i = 1 To iCount
Set myItem = myOlApp.ActiveExplorer.Selection.Item(1)
Set ctl = myOlApp.ActiveExplorer.CommandBars.FindControl(Type:=msoControlPopup, ID:=31126)
Set subctl = ctl.CommandBar.Controls(1)
MsgBox subctl.Caption
subctl.Execute
myItem.UnRead = False
‘myItem.Delete
DoEvents
Next i
MsgBox i – 1 & " messages deleted as SPAM.", vbOKOnly, "SPAM Killed"
End Sub