VBA code to check if a program is currently running on the pc

[markronz]

Hello everyone-
I'm trying to write some code that emails some text to someone. In my office we use Lotus Notes. I've wrote the code and it works fine as long as Lotus Notes is open on the machine. But if Lotus Notes isn't open, my code pastes the information all over the place, and doesn't work correctly. So ideally, what I'd like to happen is that in my code, it first checks to see if there's an instance of Notes running. If so, it does my existing code. If not, then it just displays an error message to launch Notes first.

Sorry for the lengthy question. In short: does anyone know how to check to see if a specific program is currently running in VBA code?

Thanks
-Mark

 

[Fr33dan]

I'd try to activate it and if it gives me an error then exit and display a message:

On Error GoTo lotusNotOpen
lotusOpen = False
AppActivate "Lotus Notes"
AppActivate "Microsoft Excel"
On Error GoTo 0
lotusOpen = True

at the beginning of the sub

lotusNotOpen:
If Not lotusOpen Then MsgBox "Lotus Notes must be open"
End Sub

at the end.

 

[markronz]

Worked great! Thank you very much Fr33dan!