Hallo liebe Notesgemeinde,
ich versuche über ein Kategorisierte Ansicht (Category3) mit den Spalten g_kategorie, 2 & 3. Eine Documenten Collection über alle Dokumente zu markieren.
- Soweit kein problem
Eine Schleife soll abfragen, ob es sich um ein Dokument oder eine Kategorie bei der Auswahl handelt.
Mit "Position" von NotesViewEntry hat es nicht geklappt.
Hat jemand von Euch vielleich noch eine Idee.
Document collection funktioniert es nur für die erste Kategorie..
Danke schon mal im vorraus.
lg claudia
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As NotesView
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim session As New NotesSession
Dim agent As NotesAgent
Dim collection As NotesDocumentCollection
Set uiview = workspace.CurrentView
Set db = session.CurrentDatabase
'Position über entry - funkioniert nicht..
Dim entry As NotesViewEntry
Set view = db.GetView("Category3")
Set entry = view.GetEntryByKey("g_kategorie")
Messagebox entry.GetPosition(" . ")
'für erstes Dok in der collection expandieren funktioniert
Set collection = db.AllDocuments
Set doc = collection.GetFirstDocument
Call uiview.SelectDocument(doc)
Set agent = db.GetAgent("(Expand)")
agent.Run
End Sub
