@Command in Script?

[nd_adm]

Hallo liebes Forum,

ich möchte über eine Script-Schaltfläche in einer Ansicht folgendes erreichen:
1. Komprimieren aller Einträge
2. Auswahl eines bestimmten Dokumentes

Den Punkt 2 habe ich selber hinbekommen

Code

	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim workspace As New NotesUIWorkspace
	Dim doc As NotesDocument
	Dim uiview As NotesUIView
	Dim view As NotesView
	Set db = session.CurrentDatabase
	Set uiview = workspace.CurrentView
	Set view = db.GetView("ResByDate")
	Set doc = view.GetDocumentByKey(Today)
	Call uiview.SelectDocument(doc)

Aber zu Punkt 1 gehen mir die Ideen aus. In der Formelsprache ist's ja simpel mit

Code

@Command( [ViewCollapseAll] )

zu realisieren. Ich dachte erst an EVALUATE, aber das geht nicht  (siehe auch http://atnotes.de/index.php?topic=28334.msg179174#msg179174)

Wie kann ich es noch versuchen?

[Glombi]

Für sowas Simples ist Script offenbar nicht geeigent  / gedacht. 

Andreas

[Fedaykin]

Hi

Könntest versuchen das in einen Agent zu packen, den Du dann per LotusScript aufrufst.

Gruss
Remo

[eknori]

guck mal, ob das hier http://quintessens.wordpress.com/2006/10/29/collapse-a-categorized-embedded-view-by-default/ weiterhilft

[nd_adm]

Danke für Eure schnellen Antworten und Vorschläge. Ich dachte es gibt vielleicht was ganz einfaches,  um @Commands in Script aufzurufen. Ich habe jetzt einfach in der Ansicht voreingestellt, das sie beim Öffnen immer komprimiert ist. Das Wichtigste an meinem Vorhaben ist eh, dass man über die Schaltfläche zum heutigen Datum kommt. So ist es jetzt halt nicht ganz schön, aber um schön geht's eh selten.

Vielen Dank an alle Ideengeber.

[Glombi]

Ich mache es so:

Ein

@Command([ViewCollapseAll])

im Postopen der Ansicht.

Andreas

[thomson666]

ich geh auch her und mach im postoben einfach das @Command([ViewCollapseAll]) bzw. Expand je nach belieben.