Meinst Du eine programmatische Lösung? Kannst Du uns bitte etwas mehr erzählen, was Du erreichen willst.
Hmm, er möchte doch pragmatisch "F9" mit einem Code (also Script) ausführen... dann würde doch dieser API-Kram ("GetKeyState") weiterhelfen - ansatzweise wie das da ?!...:
Declare Function GetKeyState Lib "user32" (Byval nVirtKey As Long) As Long
Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Dim kbArray As KeyboardBytes, kbOld As KeyboardBytes
Habe mal versucht, die ESC-Taste damit in einer Maske zu unterdrücken - das war schon heavy genug - und auch nicht ganz so sauber... und zwar so (wenn's denn weiterhelfen sollte zum eigentlichen "F9'er Problem"... HTH):
'- Die folgenden Deklarationen werden zum verhindern der Esc- Taste benötigt
Const VK_ESC = 27
Type KeyboardBytes
kbByte(0 To 255) As Long
End Type
Declare Function GetKeyState Lib "user32" (Byval nVirtKey As Long) As Long
Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Dim kbArray As KeyboardBytes, kbOld As KeyboardBytes
'- Ende Esc- verhinderung
Jetzt der eigentliche Code:
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'- der Code hier verhindert das schliessen des Fensters durch Esc unter bestimmten umständen
If GetKeyState(VK_ESC) Then
'Get the keyboard state
GetKeyboardState kbArray
'Change a key
kbArray.kbByte(VK_ESC) = 1
'Set the keyboard state
SetKeyboardState kbArray
SetKeyboardState kbOld
continue = False
End If
End Sub
Und schliesslich in den Button, der das fenster schliesst noch folgenden Code:
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
'Esc-Key reset
SetKeyboardState kbOld
'close Document
Call uidoc.Close
End Sub
Denn der User könnte ja auch die Entf-Taste drücken.
So etwa (Auszug):
Set collection = Source.Documents
Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
Set docTemp = collection.GetNextDocument(doc)
Call doc.Remove( True )
Set doc = docTemp
Wend
Call uiws.ViewRefresh
Vor der Ausführung kannst Du ja noch eine Msgbox einbauen.