Outlook Archivierung mit Powershell setzen

<#
    Reset outlook archive settings to default retention settings for whole folder structure
#>

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

# recurse into folder structure
$recursefolders = {
    param($folder)
    try{
        $storage = $folder.GetStorage("IPC.MS.Outlook.AgingProperties",2)  
        if ($storage.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x6857000B") -ne $null){  
            if ($storage.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x6857000B") -ne $false -or $storage.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x685E0003") -ne 2){  
                [pscustomobject]@{FolderName = $folder.FolderPath;Action="ResetToDefaultArchiveSettings"}  
                $storage.PropertyAccessor.SetProperty("http://schemas.microsoft.com/mapi/proptag/0x6857000B",$false)  
                $storage.PropertyAccessor.SetProperty("http://schemas.microsoft.com/mapi/proptag/0x685E0003",2)  
                $storage.Save()
            }
        }
    }catch{
    }
    $folder.Folders | %{.$recursefolders $_}   
}

# call recursive function from root of the default mapi store
.$recursefolders $objOL.GetNamespace("MAPI")  

# cleanup
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($objOL)