Bedingte Formatierung im Outlook Kalender zentral vorgeben

# mögliche Farben
$colors = @{
    olCategoryColorBlack=15
    olCategoryColorBlue=8
    olCategoryColorDarkBlue=23
    olCategoryColorDarkGray=14
    olCategoryColorDarkGreen=20
    olCategoryColorDarkMaroon=25
    olCategoryColorDarkOlive=22
    olCategoryColorDarkPeach=18
    olCategoryColorDarkPurple=24
    olCategoryColorDarkRed=16
    olCategoryColorDarkSteel=12
    olCategoryColorDarkTeal=21
    olCategoryColorDarkYellow=19
    olCategoryColorGray=13
    olCategoryColorGreen=5
    olCategoryColorMaroon=10
    olCategoryColorNone=0
    olCategoryColorOlive=7
    olCategoryColorOrange=2
    olCategoryColorPeach=3
    olCategoryColorPurple=9
    olCategoryColorRed=1
    olCategoryColorSteel=11
    olCategoryColorTeal=6
    olCategoryColorYellow=4
}

# Regeln die erstellt/modifiziert werden sollen
$settings = @{
    "Testregel" = @{  
        Color=$colors.olCategoryColorBlack
        Filter="`"http://schemas.microsoft.com/mapi/proptag/0x0037001f`" LIKE '%Testsubject%'"  
    }
    "Testregel 2" = @{  
        Color=$colors.olCategoryColorRed
        Filter="`"http://schemas.microsoft.com/mapi/proptag/0x0037001f`" LIKE '%Testsubject2%'"  
    }
}

# get outlook com-object
[void][reflection.assembly]::LoadWithPartialName("microsoft.visualbasic")  
$objOL = [microsoft.visualbasic.interaction]::GetObject($null,"Outlook.Application")  
if (!$objOL){$objOL = New-Object -Com Outlook.Application}


$objOL.GetNamespace("MAPI").GetDefaultFolder(9).Views | ?{$_.Name -match '^(Kalender|Calendar)$'} | %{  
    $rules = $_.AutoFormatRules
    $rulenames = $rules | ?{!$_.Standard} | select -Expand Name
    $settings.GetEnumerator() | %{
        if ($_.Name -in $rulenames){
            write-host "Changing Rule '$($_.Name)'" -F Green  
            $key = $_.Name
            $rule = $rules | ?{$_.Name -eq $key}
            $rule.Filter = $_.Value.Filter
            $rule.Font.ExtendedColor = $_.Value.Color
            $rule.Enabled = $true
        }else{
            write-host "Adding Rule $($_.Name)" -F Green  
            $rule = $rules.Add($_.Name)
            $rule.Filter = $_.Value.Filter
            $rule.Font.ExtendedColor = $_.Value.Color
            $rule.Enabled = $true
        }
    }
    $_.AutoFormatRules.Save()
    $_.Save()
}
$objOL.Quit()
[void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($objOL)