Domino 9 und frühere Versionen > Entwicklung

Persönlicheansichten löschen.

(1/2) > >>

_Arne_:
Moin,

kennt jemand eine Funktion um die vorhandene persönlicheAnsicht auf Knopfdruck zu löschen ?

Problem: Datenbank mit persönlichen Ansichten, änderungen an diesen durchgeführt.

Die Möglichkeit des löschens über "Aktionen/..Ansicht löschen" ist mir bekannt.

Semeaphoros:
Script gefällig?

Du durchläufst in der CurrentDatabase alle Views (ist eine Collection in der NotesDatabase)

Dann überprüfst Du den Readers-Eintrag. Ist er nicht leer, dann ist die Ansicht oder der Ordner ein persönlicher, etwa so, wobei V gerade die Ansicht ist, die Du untersuchst. Reicht das? Sonst gibts noch ne Handvoll mehr Zeilen.

   If Not Isempty(V.Readers) Then
      Call V.Remove
   End If

_Arne_:
ein paar Zeilen mehr wären nett, hab doch von notes k.a. :-)

Glombi:
Möchtest Du alle persönlichen Ansichten löschen oder nur die, in der der User aktuell ist?
Und Du willst nicht die Aktion verwenden, oder?

Wo soll den der Code rein? Du sagtest Button - soll denn die Mailschablone erweitert werden?

Andreas

Semeaphoros:
Dim S As New NotesSession
Dim CurDB As NotesDatabase
Dim AllViews As Variant

Set CurDB=S.CurrentDatabase
AllViews = CurDB.Views

Forall AllViews in CurDB.Views

   If Not Isempty(V.Readers) Then
      Call V.Remove
   End If
End Forall

Warnung: das ist nicht getestet, gehe also unbedingt mit dem Debugger durch, wenn Dus das erste Mal laufen hast.

Wenns korrekt ist, entfernt das alle privaten Ansichten und Ordner.

Navigation

[0] Themen-Index

[#] Nächste Seite