Hallo Martin,
ich habe das gleiche Problem. Unter Notes 7 hatte ich folgenden Code für einen Button:
Declarations:
Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Sleep(1)
uidoc.GotoField("Body")
uidoc.SelectAll
keybd_event &H12,0,0,0 ' Alt key down
keybd_event 72,0,0,0 ' h key down
keybd_event 72,0,2,0 ' h key up
keybd_event &H12,0,2,0 ' Alt key up
keybd_event &H28,0,0,0 ' Down key down
keybd_event &H28,0,2,0 ' Down key up
keybd_event 66,0,0,0 ' b key down
keybd_event 66,0,2,0 ' b key up
End Sub
Im Body-Feld gibt es genau einen Anhang, der wird markiert und dann sende ich das Tastaturkommando Alt+h, dann Pfeiltaste nach unten und dann ein b.
Hat wie gesagt mit dem 7er Client funktioniert, mit dem 8.5 will das so leider nicht mehr.
Komischerweise funktioniert es, wenn ich das händisch mache.
Bin auch noch auf der Suche nach einer Lösung.
Gruß
Volker