Comments on: Outlook 2003 is great, but…

By: Mark

Mark — Mon, 25 Apr 2005 21:14:00 +0000

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

By: Mike Flasko

Mike Flasko — Tue, 18 May 2004 07:29:00 +0000

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

By: Jason Kemp

Jason Kemp — Mon, 17 May 2004 18:01:00 +0000

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 .

By: Mike Flasko

Mike Flasko — Mon, 17 May 2004 07:37:00 +0000

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.