Create a Redemption SafeMailItem

The Redemption library contains Safe*Item objects for every Outlook object that has at least one blocked property or procedure. The mechanismen of blocking some properties was introduced with Outlook 2000 SP2 (optional), or SP3 respectively.

The process, for instance, to create a Redemption.SafeMailItem for an Outlook.MailItem is always the same as is the process for cleaning up the Redemption objects. So why not write reusable functions for both?

  How to add macros to Outlook

Private Function CreateSafeItem(Item As Object) As Object
  Dim rdItem As Object

  'E.g.: Outlook's MailItem turns to Redemption's SafeMailItem
  olName = TypeName(Item)
  rdName = "Redemption.Safe" & olName

  Set rdItem = CreateObject(rdName)
  rdItem.Item = Item
  Set CreateSafeItem = rdItem
  Set rdItem = Nothing
End Function

Private Sub ReleaseSafeItem(Item As Object)
  On Error Resume Next
  Set Item.Item = Nothing
  Set Item = Nothing
End Sub