Create an Outlook rule via script

Hi ltlbearand3.

I created the folder SPAM as subfolder of the inbox. But the script errors back "Object not found" Line: 18, Char: 5
So it seems, the folder is not addressed correctly, but I don't see it. Does it work for you?

This script assumes SPAM is a folder on the same level as the inbox.  Since it is a subfolder of the inbox, try this instead for line 18:

    set .Folder = olkSes.GetDefaultFolder(olFolderInbox).Folders("SPAM")

Select allOpen in new window

Great. Of course that was the error - solved.
May I ask you for a little favor? This script part of a little deployment, the Spam folder gets created and the rule. To make the script perfect, I would like to suppress the error message that we see if the SPAM folder already exists. How would I need to modify the lines that I have:

Const olFolderInbox = 6

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)

Set objNewFolder = objFolder.Folders.Add("SPAM")

Select allOpen in new window

Thanks!
About the "favor" I asked for: found it myself, add

on error resume next

Select allOpen in new window

before line 7

McKnife,

Glad that worked and you found an answer for your other question.  Just a reminder to make sure you turn error handling back on after you try to add the folder.  For example:

On Error Resume Next
Set objNewFolder = objFolder.Folders.Add("SPAM")
On Error Goto 0

Select allOpen in new window

Oh, another small glitch: I'd like to stop the rule creation if the rule already exists. Could you give me a hint on how to do that, please?

That may be something that should be another post, but it is simple enough:

Add this code:

    Dim oCurrentRule As Outlook.Rule
    For Each oCurrentRule In olkCol 
        If oCurrentRule.Name = "SPAM" Then Exit Sub
    Next

Select allOpen in new window

In front of this line:

Set olkRul = olkCol.Create(RULE_NAME, olRuleReceive)

Select allOpen in new window

By using this method you should be able to remove the temporary disabling of the error handler.

Thanks, but it doesn't work but throws
Line 10, Char22
Error: expected end of statement
Code: 800A0401
Script code is

'On the next line, edit the name of the rule as desired
Const RULE_NAME = "Move SPAM to SPAM Folder"
Const olRuleReceive = 0
Const olFolderInbox = 6
Dim olkApp, olkSes, olkCol, olkRul, olkCD1, olkCD2, olkMRA
Set olkApp = CreateObject("Outlook.Application")
Set olkSes = olkApp.GetNamespace("MAPI")
olkSes.Logon olkApp.DefaultProfileName
Set olkCol = olkSes.DefaultStore.GetRules()
    Dim oCurrentRule As Outlook.Rule
    For Each oCurrentRule In olkCol 
        If oCurrentRule.Name = "SPAM" Then Exit Sub
    Next
Set olkRul = olkCol.Create(RULE_NAME, olRuleReceive)
Set olkCD1 = olkRul.Conditions.Subject
With olkCD1
    .Enabled = True
    .Text = Array("***SPAM***")
End With
Set olkMRA = olkRul.Actions.MoveToFolder
With olkMRA
    set .Folder = olkSes.GetDefaultFolder(olFolderInbox).Folders("SPAM")
    .Enabled = True
End With
olkCol.Save False
olkSes.Logoff	
'olkApp.Quit
Set olkMRA = Nothing
Set olkCD2 = Nothing
Set olkCD1 = Nothing
Set olkRul = Nothing
Set olkCol = Nothing
Set olkSes = Nothing
Set olkApp = Nothing
WScript.Quit

Select allOpen in new window

I guess the Rule name needs to be adjusted too, but that's not the error here since I have already tried that.

Sorry I forgot to convert one piece.  
Instead of:

Dim oCurrentRule As Outlook.Rule

Select allOpen in new window

Try this:

    Dim oCurrentRule

Select allOpen in new window

Next error. line 12, Char 69, invalid exit statement

Sorry, I was testing in Outlook VBA instead of vbscript.  Since this is vbscript, it would be better to convert the code as follows (I also fixed the rule name issue that you found):

'On the next line, edit the name of the rule as desired
Const RULE_NAME = "Move SPAM to SPAM Folder"
Const olRuleReceive = 0
Const olFolderInbox = 6
Dim olkApp, olkSes, olkCol, olkRul, olkCD1, olkCD2, olkMRA, oCurrentRule, blnFound
Set olkApp = CreateObject("Outlook.Application")
Set olkSes = olkApp.GetNamespace("MAPI")
olkSes.Logon olkApp.DefaultProfileName
Set olkCol = olkSes.DefaultStore.GetRules()

' Look to see if Rule Exists
blnFound = False
For Each oCurrentRule In olkCol 
  If oCurrentRule.Name = RULE_NAME Then blnFound = True
Next

' If the Rule has not been found, add it
If not blnFound Then
	Set olkRul = olkCol.Create(RULE_NAME, olRuleReceive)
	Set olkCD1 = olkRul.Conditions.Subject
	With olkCD1
	    .Enabled = True
	    .Text = Array("***SPAM***")
	End With
	Set olkMRA = olkRul.Actions.MoveToFolder
	With olkMRA
	    set .Folder = olkSes.GetDefaultFolder(olFolderInbox).Folders("SPAM")
	    .Enabled = True
	End With
	olkCol.Save False
End If

olkSes.Logoff	
olkApp.Quit
Set olkMRA = Nothing
Set olkCD2 = Nothing
Set olkCD1 = Nothing
Set olkRul = Nothing
Set olkCol = Nothing
Set olkSes = Nothing
Set olkApp = Nothing

WScript.Quit

Select allOpen in new window

Thanks!