Redemption - SafeMailItem erzeugen

Die Redemption-Bibliothek enthält u.a. Safe*Item-Klassen für jede Outlook Klasse, die mindestens eine geblockte Eigenschaft oder Methode enthält. Diese geblockten Zugriffe wurden mit dem Sicherheitsmodell in Outlook 2000 SP2 (optional) bzw. SP3 eingeführt.

Der Ablauf, um z.B. aus einem Outlook MailItem ein Redemption SafeMailItem zu erzeugen, ist immer der gleiche. Und auch das Aufräumen der Redemption-Objekte muss, entgegen den üblichen COM-Mechanismen, immer manuell gemacht werden(!) und geschieht immer auf die gleiche Weise. Es ist also naheliegend, dafür wiederverwendbare Funktionen zu schreiben.

(Eine geniale Möglichkeit der Redemption ist, dass Sie die Klassennamen nach Belieben ändern können. Der Hintergrund ist: Ein Angreifer könnte einfach durch den Aufruf von CreateObject('Redemption.SafeMailItem') testen, ob Sie die Bibliothek installiert haben und somit Outlooks Sicherheitsmodell umgehen. Wenn die Klassennamen aber unbekannt sind, geht das nicht mehr; dann muss natürlich auch die Beispielfunktion CreateSafeItem angepaßt werden.)

  So fügen Sie Makros in Outlook ein

Private Function CreateSafeItem(Item As Object) As Object
  Dim rdItem As Object
  Dim olName As String, rdName As String

  'Beispiel: Aus Outlooks MailItem wird Redemptions 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