Alte Kalendereinträge als Privat kennzeichnen

Danke für deinen Vorschlag!

Ich habe auch noch ein interessantes Script gefunden. Es kann zwar nicht auf dem Exchange ausgeführt werden, jedoch per Startscipt auf den Clients. Lieder funktioniert $appt.sensitivity nicht bei Serientermine.

1. Get-ApptsUsingOOM.ps1
2. Powershell script to retrieve all appointments for a given date range using the Outlook Object Model

param ( [DateTime] $rangeStart = [DateTime]::Now
, [DateTime] $rangeEnd = [DateTime]::Now.AddDays(7))

$outlook = New-Object -ComObject Outlook.Application

1. Ensure we are logged into a session

$session = $outlook.Session
$session.Logon()

$olFolderCalendar = 9
$apptItems = $session.GetDefaultFolder($olFolderCalendar).Items
$apptItems.Sort("[Start]")
$apptItems.IncludeRecurrences = $true

$restriction = "[End] >= '{0}' AND [Start] <= '{1}'" -f $rangeStart.ToString("g"), $rangeEnd.ToString("g")

foreach($appt in $apptItems.Restrict($restriction))
{
$appt.sensitivity = 2
$appt.Save()
}

$outlook = $session = $null;