Slette gamle data i kalenderen i outlook 2003

http://office.microsoft.com/en-us/outlook/HA010347701033.aspx

Ja det har jeg prøvet. Men jeg kan ikke få det til at virke. Om det er fordi der en varation i at det er en dansk version eller at det er outlook 2003 jeg kører ved jeg ikke.

MVh
Darkwader

Denne kode er indsat i et Word-dokument(VBA (Alt+F11 ThisDocument)) - den nævnte reference er tilføjet - koden udføres i VBA ved F5:

Rem Reference-tilføjelse: Microsoft Outlook 11.0 Object Library
Rem ===========================================================
Private Sub SletOutLookAftaler()
Dim OutlookApp As New Outlook.Application, cfold As MAPIFolder
Dim myInspector As Outlook.Inspector
    On Error Resume Next

    Set cfold = OutlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)
   
    antal = cfold.Items.Count              'antal aftaler i kalender
   
    For a = 1 To antal
        emne = cfold.Items(1).Subject      'kun til test
        dato = cfold.Items(1).Start        '-do-
        cfold.Items(1).Delete              'sletter aftalen
    Next

    Set cfold = Nothing
End Sub