Private Function CreateSafeItem(Item As Object) As Object
' Erstellt für ein Outlook-Objekt das passende
' Redemption.Safe*Item-Objekt. Dieses Beispiel funktioniert
' solange wie Sie die Redemption-Klassennamen nicht
' verändert haben.
  Dim rdItem As Object
  Set rdItem = CreateObject("Redemption.Safe" & TypeName(Item))
  rdItem.Item = Item
  Set CreateSafeItem = rdItem
  Set rdItem = Nothing
End Function

Private Sub ReleaseSafeItem(Item As Object)
' Führt die (immer notwendige!) Freigabe der
' Safe*Item-Objekte durch.
  On Error Resume Next
  Set Item.Item = Nothing
  Set Item = Nothing
End Sub