Outlook bzw. Exchange: E-Mails von extern farblich markieren

# Farben
$colors = @{
    olAutoColor = 0
    olColorAqua = 15
    olColorBlack = 1
    olColorBlue = 13
    olColorFuchsia = 14
    olColorGray = 8
    olColorGreen = 3
    olColorLime = 11
    olColorMaroon = 2
    olColorNavy = 5
    olColorOlive = 4
    olColorPurple = 6
    olColorRed = 10
    olColorSilver = 9
    olColorTeal = 7
    olColorWhite = 16
    olColorYellow = 12
}

# Regeln die erstellt/modifiziert werden sollen
$settings = @{
    "external mail" = @{  
        Color=$colors.olColorRed
        Filter="(`"http://schemas.microsoft.com/mapi/proptag/0x0065001f`" CI_STARTSWITH '@' OR `"http://schemas.microsoft.com/mapi/proptag/0x0042001f`" CI_STARTSWITH '@')"  
    }
}

# 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}
# get current view of inbox folder
$cview = $objOL.GetNamespace("MAPI").GetDefaultFolder(6).CurrentView  
# get non standard rule names
$rulenames = $cview.AutoFormatRules | ?{!$_.Standard} | select -Expand Name
# update/add rules
foreach($setting in $settings.GetEnumerator()){
    if ($setting.Name -in $rulenames){
        write-host "Changing Rule '$($setting.Name)'" -F Green  
        $cview.AutoFormatRules | ?{$_.Name -eq $setting.Name} | %{
            $_.Filter = $setting.Value.Filter
            $_.Font.Color = $setting.Value.Color
            $_.Enabled = $true
        }
    }else{
        write-host "Adding Rule '$($setting.Name)'." -F Green  
        $rule = $cview.AutoFormatRules.Add($setting.Name)
        $rule.Filter = $setting.Value.Filter
        $rule.Font.Color = $setting.Value.Color
        $rule.Enabled = $true
    }
}
# save rules and current view
$cview.AutoFormatRules.Save()
$cview.Save()

$objOL.Quit()
[void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($objOL)