Persönlicheansichten löschen.

[_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.

[ata]

... ich möchte den Optimismus nicht bremsen, aber persönliche Ansichten haben so gewisse Handicaps...

Um sie in der Datenbank löschen zu können, müssen sie in dieser gespeichert sein. Bei privaten gibt es noch die Möglichkeit, daß sie lokal gespeichert sind => entweder weil die Ansicht die Eigenschaft hatte, oder weil es dem User nicht vergönnt war in der DB auf dem Server private Ansichten erstellen zu dürfen - und dann hast du ein Problem...

ata

[_Arne_]

Moin,

ATA hat "leider" Recht, werden User doch überzeugen die Ansichten über die "Notes eigene Funktion" zu entfernen.


Danke trotzdem.