VBA Outlook - Kontakte nach Kategorien suchen und löschen

Sub loeschen()
  Set sOutlook = CreateObject("Outlook.Application")
  Set sOutlookNamespace = sOutlook.GetNamespace("MAPI")
  Dim sItems
  Dim i
  Set sItems = sOutlookNamespace.GetDefaultFolder(10).Items
  For i = sItems.Count To 1 Step -1
     sItems.Item(i).Delete
  Next
End Sub