Automatically Delete Calendar Events Older Than a Day old.

Question

I am trying to have SharePoint automatically delete any events that are a day old.  I have a vacation calendar that needs to remove any older dates and only keep up to date with the new ones.  I have tried to search for the solution and cant
find anything.  I don't want to filter the events it needs to be removed.

Answer 1

function Calendarcleanup() 
#Get Site
$Web=Get-SPWeb  "Site url" 
Write-Host $Web.url 
#Get the Target Calendar List
$list = $web.Lists["XXXX"] 
Write-host $list.title 
#Query the list items based on your requirement
$query=new-object Microsoft.SharePoint.SPQuery 
$query.Query='<Where>
<Lt>
     <FieldRef Name="Created"/><Value Type="DateTime">Today</Value>
</Lt>
</Where>' 
$query.RowLimit = $list.Itemcount 
#Get the itemcollection for processing
$Items=$list.GetItems($query) 
Write-Host $Items.count 
#Loop through the items and delete them
foreach($item in $Items) 
Write-Host "Deleting" $item.Title 
#Deleting items
$list.GetItemById($item.ID).Delete() 
Write-Host "Deleted" $item.Title 
Calendarcleanup