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

TI

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.

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

--
Message posted from http://www.ExcelForum.com