running an executable (to lock workstation) from Outlook script

[snir]

How can I run an executable or lock the workstation from Outlook script ?

[westconn1]

by outlook script, do you mean vba?
if so you can use the shell function

RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)

pete

[snir]

I get the error :"Type mismatch: 'shell' "

[westconn1]

what is your code?

[snir]

Function Item_CustomAction(ByVal MyAction,ByVal Response)Select Case MyAction.Name
Case "Approve"
RetVal = Shell("C:\WINNT\system32\rundll32 user32.dll,LockWorkStation", 1)
Msgbox "Test"
End Select
End Function

[westconn1]

user32 is not an executable, you will need to use an api call, here is a sample from allapi

Private Declare Function LockWorkStation Lib "user32.dll" () As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: [email protected]
LockWorkStation
End Sub


the first line has to go in the general area of the code at the top

pete

[snir]

I tried these and I get the error:"expected end of statement" on the first line.

I have to mention that the script editor I have in the Outlook looks like a notepad.

[westconn1]

yeah it looks like it is vb script so i don't know if you can, i would have thought you would have vba. in outlook under tools do you have macros, if so you can go into the visual basic editor there

pete

[snir]

o.k. I can open the editor, but how do I generate here events according to the happening in the form, like I did with Item_CustomAction .
It looks like the Outlook form responds to the simple script editor.