Autor Thema: Persönlicheansichten löschen.  (Gelesen 2577 mal)

Offline _Arne_

  • - Admin Section -
  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 992
  • Geschlecht: Männlich
  • Devops Because Even Developers Need Heroes
    • Das Lotus Notes Forum
Persönlicheansichten löschen.
« am: 08.12.03 - 12:42:38 »
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.


Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
Re:Persönlicheansichten löschen.
« Antwort #1 am: 08.12.03 - 13:24:02 »
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
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

Offline _Arne_

  • - Admin Section -
  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 992
  • Geschlecht: Männlich
  • Devops Because Even Developers Need Heroes
    • Das Lotus Notes Forum
Re:Persönlicheansichten löschen.
« Antwort #2 am: 08.12.03 - 14:27:26 »
ein paar Zeilen mehr wären nett, hab doch von notes k.a. :-)

Glombi

  • Gast
Re:Persönlicheansichten löschen.
« Antwort #3 am: 08.12.03 - 14:32:29 »
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

Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
Re:Persönlicheansichten löschen.
« Antwort #4 am: 08.12.03 - 14:33:51 »
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.
« Letzte Änderung: 08.12.03 - 14:34:58 von Semeaphoros »
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Persönlicheansichten löschen.
« Antwort #5 am: 08.12.03 - 15:04:13 »
... 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
Grüßle Toni :)

Offline _Arne_

  • - Admin Section -
  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 992
  • Geschlecht: Männlich
  • Devops Because Even Developers Need Heroes
    • Das Lotus Notes Forum
Re:Persönlicheansichten löschen.
« Antwort #6 am: 09.12.03 - 07:56:58 »
Moin,

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


Danke trotzdem.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz