Hallo,
Das war mir noch garnicht aufgefallen ::) ... Aber Du hast Recht. Ich würde an Deiner Stelle einen PMR aufmachen, der Event heist schießlich POSTopen und nicht PREopen ;) und in allen anderen Versionen klappt es ja offensichtlich auch.
Als Woraround funktioniert bei mir folgender Code:Dim elapsedTime As Integer
Dim elapsedTimer As NotesTimer
Sub Postopen(Source As Notesuidocument)
Set elapsedTimer = New NotesTimer(1, "Elapsed time since opening document")
On Event Alarm From elapsedTimer Call elapsedTimerHandler
End Sub
Sub elapsedTimerHandler(Source As NotesTimer)
Source.Enabled=False
Dim ws As New notesuiworkspace
Call ws.Prompt(PROMPT_OKCANCELEDIT, "Eingabe", "Bitte geben Sie hier was ein!","")
End Sub
Ist zwar nicht schön, so etwas mit nem Timer zu machen, aber es funktioniert.