Quote Originally Posted by dfnet View Post
Have you tried 'Rule.Refresh()' after adding the actions?

Yes, I did. I've found the Reason/Solution meanwhile.

The Com-Objects aren't automatically released by vb.
So i had to do this manually.

Sub free(ParamArray o() As Object)
   Dim i As Integer
   For n = LBound(o) To UBound(o)
      i = ReleaseComObject(o(n))
      If Not 0 = i Then
         MsgBox("free error!")
      End If
End Sub