Dear All,

The code below does not run always correctly.
Somethimes appointments in the specific month has not been deleted !

Can't see why!

'Delete all appointment in this month
For Each objAppointement In myNewFolder.Items
If Month(objAppointement.Start) = iMonth And
Year(objAppointement.Start) = iYear Then objAppointement.Delete
DoEvents
Next

Thanks,

Filip