|Access the master category list in the blink of an eye, share your color categories in a network, get a reminder service, and more.|
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?
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
|ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.|