Hallo,
ich bastle im Moment ein Forum mit 3 Masken (Hauptthema, Antwort und Rückantwort). Alle haben ein Leserfeld, da nur die vorgegebenen Personen die Dokumente lesen dürfen. Beim Start der DB möchte ich gern feststellen, wieviel Dokumente der User in der Ansicht sehen würde. Die Ansichtsauswahl erfolgt nur über die Maskennamen. Leider bekommt nun der User die Anzahl, die ich sehe aber sieht in der Ansicht eigentlich keine Dokumente.
Kann ich das anders lösen? Sicherlich könnte ich alle Doks per LS durchgehen aber da müsste ich auch Gruppenname auflösen und das ist mir etwas zu umständlich.
Mein Script:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim anz
Set db = session.CurrentDatabase
Set view = db.GetView("Newsgroup/Alle")
anz = view.EntryCount
If anz>0 Then
Messagebox anz & " Einträge in Diskussionsforum vorhanden"
Call session.SetEnvironmentVar("Diskussion", "wahr")
Else
Messagebox anz & " Einträge in Diskussionsforum vorhanden"
Call session.SetEnvironmentVar("Diskussion", "falsch")
End If
End Sub
Danke im Voraus.
Gruß Kristian