I have Outlook 2007 and have a rule set up to delte spam by detecting certain
words in the spam.
Here is what someone gave me but it does not work:

Sub RunRuleDeleteSpam()
Dim oNS As Outlook.NameSpace
Dim oStore As Outlook.Store
Dim colRules As Outlook.Rules
Dim oRule as Outlook.Rule

Set oNS = Application.GetNameSpace("MAPI")
Set oStore = oNS.DefaultStore
Set colRules = oStore.Rules
Set oRule = colRules.Item("Delete Spam")
oRule.Execute
End Sub
If I run it it highlights the set oRule line and stops, I guess. I know
nothing about programming, I'll admit, but am not ignorant on computer
processes. I thought if I could make a macro to run a rule then I could put
the macro in a toolbar icon and just click on it instead of having to go
through a series of clicks.
What do you think? Is the formula wrong or what?