|Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.|
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.|