Hallo,
sorry, Code ... ja, gute Idee
Starten des Agents meint "Run" (in diesem Fall agent.run), also kein enabling/schedule.
Dim ws As New NotesUIWorkspace
Set ws = New NotesUiWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim answer As Boolean
Set db = session.CurrentDatabase
Set view = db.GetView( "Bericht" )
If view.entrycount >0 Then
answer = ws.DialogBox(...)
If answer Then view.SelectionFormula = session.GetEnvironmentString("dbx_Select")
Else
view.SelectionFormula = |SELECT form = "Vorschlag"|
Call ws.ViewRebuild
answer = ws.DialogBox(...)
If answer Then view.SelectionFormula = session.GetEnvironmentString("dbx_Select")
End If
Call session.setenvironmentvar("dbx_Select","")
End Sub
So kommt der Fehler ... er steigt vor der Dialogbox aus, also packt er den Zugriff auf view nicht (als Editor). Wenn ich
Set view = db.GetView( "Bericht" )
ersetze durch
Dim uiview As NotesUIView
Set uiview = ws.currentview
Set view = uiview.view
dann bekommt der Editor Client einen RSOD (hatte ich schonmal in nem anderen Thread geschrieben). Als Manager geht es.