Domino 9 und frühere Versionen > ND7: Entwicklung

Löschen von mehreren privaten Ansichten

<< < (2/2)

abeowulf:
ich habe ein problem mit dem löschen von privaten ansichten


--- Zitat ---   Dim ses As New NotesSession
   Dim db As NotesDatabase
   Dim readers As Variant
   
   Set db = ses.CurrentDatabase
   
   Forall x In db.Views
      If x.IsPrivate Then
         readers = x.Readers
         If Isarray(readers) Then
            If Ubound(readers) < 1 Then
               If readers(Lbound(readers)) = ses.Username Then 'private view on server
                  x.Remove
               End If
            End If
         End If
      End If
   End Forall
   
   Exit Sub   

--- Ende Zitat ---
Damit finde ich fast alle privaten Ansichten.

Ich habe aber in meiner Lotus Workflow DB private Anischten, welche im $Flags ein "po" drinstehen haben. Sowohl die Schablonenansicht wie auch die private Ansicht. Diese werden mittels diesem Code nicht gefunden.
Hat hier wer eine Lösung?

Navigation

[0] Themen-Index

[*] Vorherige Sete