Mails mit "SPAM" im Betreff automatisch in Junk-Ordner verschieben

Const olFolderInbox = 6

Set objOutlook = CreateObject("Outlook.Application")  
Set objNamespace = objOutlook.GetNamespace("MAPI")  
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
on error resume next
Set objNewFolder = objFolder.Folders.Add("SPAM")  

***SPAM***

'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()
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