Test if Lotus Notes open

[MAx]

Does anyone have any VBA code to test if Lotus Notes application is running

TI

 

[AA2e72E]

Have a look at the FindWindow API call.

I do not have Lotus Notes: if its caption is not volatile or its class is known, FindWindow will return its handle.

 

[AJW]

Try this:

Sub LotusNotes_Running()
Application.ScreenUpdating = False
On Error Resume Next
AppActivate "Lotus Notes"
If Not Err.Number = 0 Then
Err.Clear
MsgBox "Notes is Not Running", vbInformation
Else
'your code to run here is Notes is open
End If
End Sub

Regards

AJ