Exchange 2013 Standard und Outlook 2013 - alte Journal Einträge entfernen

Sub RemoveOldJournalEntries()
    Dim fJournal As folder, jItem As JournalItem, retentionDate As Date, col As New Collection
    Set fJournal = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderJournal)  
    retentionDate = DateAdd("yyyy", -1, Date)  
    For Each jItem In fJournal.items
        If jItem.CreationTime < retentionDate Then
            col.add jItem
        End If
    Next
    For Each itm In col
        itm.Delete
    Next
End Sub

$objOL = New-Object -ComObject Outlook.Application
$fJournal = $objOL.GetNamespace("MAPI").getDefaultFolder(11)  
$oldItems = $fJournal.Items | ?{$_.CreationTime -lt (get-date).AddYears(-1)}
$oldItems | %{$_.Delete()}