Hallo!
also ich bring das einfach nicht hin... vllt. hat jemand einen Tipp...
Hier mein code
Declarations in der View:Dim elapsedTimer As NotesTimer
Initalize in der View:Sub Initialize
On Error Goto errproc
Set elapsedTimer = New NotesTimer(120,"Aktualisierung alle 2 Minuten")
Print "initialize von view"
On Event Alarm From elapsedTimer Call elapsedTimerHandler
Exit Sub
errproc:
Print Error$ & " " Erl
Resume Next
End Sub
Sub in der View:Sub elapsedTimerHandler(Source As NotesTimer)
Dim ws As New NotesUIWorkspace
Dim view As NotesView
Dim uiview As NotesUIView
On Error Goto errproc
Print "TimeHandler nach 120 Sekunden"
Set uiview = ws.CurrentView
Set view = uiview.View
Call view.Refresh
Print "TimeHandler nach Refresh"
Exit Sub
errproc:
Print Error$ & " " Erl
Resume Next
End Sub
Ich versteh auch nicht wie das funktionieren soll, im Backend ein Refresh das sich im UI beim User auswirkt
Danke für die Hilfe
tommy