WSH shell automatization in Notes 8.x

HCL Domino Domino Forum
1

Problem:wsh shell automatisation doesn`t work in Release 8.5.1.

Have some automatisation in database base on using WS Shell object.

Normal with “alt/ctrl+letter” combination, but

then use WshShell.SendKeys “I” just type letter in body.

script example:

Sub importHTMLFromUI(fileName As String)

On Error Goto erh

Dim WshShell As Variant

Dim i As Integer



Set WshShell = CreateObject("WScript.Shell")

If (WshShell Is Nothing) Then 

	Msgbox "Failed to create sheell object."

	Exit Sub ' EXIT

End If



WshShell.SendKeys "{TAB}{TAB}{TAB}{TAB}"	

WshShell.SendKeys "^{END}" ' Ctrl-End

WshShell.SendKeys "{ENTER}" ' 	

WshShell.SendKeys "%F" ' Alt-F

WshShell.SendKeys "I" ' 





WshShell.SendKeys "I" ' 

WshShell.SendKeys "%T" ' Alt-T

WshShell.SendKeys "H"

WshShell.SendKeys "%N" ' Alt-N

WshShell.SendKeys fileName & "{ENTER}" ' Ctrl-End	



Exit Sub

erh:

Msgbox "importHTMLFromUI(" & fileName & "), error on line " & Erl & ": " & Error

Exit Sub

End Sub

2

Subject: what isn’t working?

You don’t say specifically where it fails. I have used WSH automation from Notes 8.5.1 but without knowing what the problem is (other than “it doesn’t work”), I can’t help you.