Outlook Kategorien in anderes Postfach übernehmen

if ($PSVersionTable.PSVersion.Major -lt 3){write-host "ERROR: Minimum Powershell Version 3.0 is required!" -F Yellow; return}    
$scriptpath = Split-Path $MyInvocation.MyCommand.Definition -Parent
$datapath = "$scriptpath\data.csv"  
[void][reflection.assembly]::LoadWithPartialName("microsoft.visualbasic")  
$objOL = [microsoft.visualbasic.interaction]::GetObject($null,"Outlook.Application")  
if (!$objOL){$objOL = New-Object -Com Outlook.Application}
# get mapi namespace reference
$ns = $objOL.GetNamespace("MAPI")  

if (Test-Path $datapath){
    Write-host "Importiere Kategorien ..." -ForegroundColor Green  
    $categories = $ns.Categories | select -Expand Name
    (Import-CSV $datapath -Delimiter ";") | %{  
        if($_.Name -notin $categories){
            $ns.Categories.Add($_.Name,$_.Color,$_.ShortcutKey)
        }else{
            $cat = $ns.Categories.Item([string]$_.Name)
            $cat.Color = $_.Color
            $cat.ShortcutKey = $_.ShortcutKey
        }
    }
}else{
    $ns.Categories | select Name,Color,ShortCutKey | export-csv $datapath -Delimiter ";" -NoType -Encoding UTF8  
    write-host "Kategorien wurden exportiert nach '$datapath'" -ForegroundColor Green  
}