Testing for active applications

[gb433054]

Can anyone tell me how to test if an application such as Outlook is open

thanks in advance

 

[johnwm]

Use GetObject, which will return an error if your program is not running. Test for the error.

[tt]
On Error Resume Next
Set myapp = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
' Outlook not running
Else
' Outlook is running already
End If
Err.Clear
On Error GoTo 0[/tt]

Good Luck
johnwm
________________________________________________________
To get the best from these forums read faq731-376 before posting