StartDownloadsServiceSamplesWorkshopsContact DeutschEnglish
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Privacy Policy
Create Redemption Safe*Items
Author: Michael BauerHomepage
Date: 21.05.2006Accessed: 24547

We are very sorry! This description is not translated yet. Anyway, please try the code as it is self-explanatory.

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


ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more]


Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more]


SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more]


OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more]