Outlook Open Check 1

[Sech]

Does anyone know Access code that can be used to check whether or not Outlook is open, and if not display a message asking the user to open it? I know how to do this for Lotus Notes but not for Outlook/Outlook Express.

 

[JerryKlmns]

VBA that runs on Excel or Access (any Office program)

Sub Check_4_Outlook()

Dim objOutlook As Object
On Error Resume Next

Set objOutlook = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then MsgBox "Please open the Outlook"
Set objOutlook = Nothing

End Sub

 

[Sech]

Cheers for the code help