Kalender in Outlook-Datendatei per Skript von Notizen befreien

[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).Items | %{  
    $_.Body = ''  
    $_.RequiredAttendees = ''  
    $_.OptionalAttendees = ''  
    $_.Resources = ''  
    $_.Save()
}

# pst path
$pst = "E:\backup.pst"  
# load 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}
# namespace object
$ns = $objOL.GetNamespace("MAPI")  
# add pst to session
$ns.AddStore($pst)
# get added store for pst
$ns.Stores | ?{$_.FilePath -eq $pst} | %{
    # find all calendars in root
    $_.GetRootFolder().Folders | ?{$_.DefaultItemType -eq 1} | %{
        # clear message properties
        $_.Items | %{
            $_.Body = ''  
            $_.RequiredAttendees = ''  
            $_.OptionalAttendees = ''  
            $_.Resources = ''  
            $_.Save()
        }
    }
    # close store
    $ns.RemoveStore($_.GetRootFolder())
}

# pst path
$pst = "E:\backup.pst"    
# load outlook com object
$objOL = $null
try{
	$objOL = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Outlook.Application')  
}catch{
	$objOL = New-Object -Com Outlook.Application
}
# namespace object
$ns = $objOL.GetNamespace("MAPI")    
# add pst to session
$ns.AddStore($pst)
# get added store for pst
$ns.Stores | ?{$_.FilePath -eq $pst} | %{
    # find all calendars in root
    foreach($folder in $_.GetRootFolder().Folders | ?{$_.DefaultItemType -eq 1}){
             $items = $folder.Items
             foreach($item in $items){
                 # check if message has security flags (signed/encrypted)
                 if ([int]$item.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x6E010003") -gt 0){  
                     # if yes, create new appointment item
                     $new = $folder.Items.Add(1)
                     # ... and copy the desired properties over to new item and save to folder
                     $new.Subject = $item.Subject
                     $new.Start = $item.Start
                     $new.Duration = $item.Duration
                     $new.Location = $item.Location
                     $new.Save()
                     # delete original signed item
                     $item.Delete()
                   }else{
                     # normal is unsigned/unencrypted message, only clear message properties and save
                     $item.Body = ''    
                     $item.RequiredAttendees = ''    
                     $item.OptionalAttendees = ''    
                     $item.Resources = ''    
                     $item.Save()
                   }
              }
    }
    # close store
    $ns.RemoveStore($_.GetRootFolder())
}