Check if Outlook is open

[injanib via AccessMonster.com]

Hi,

I am creating an outlook message using

Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

if outlook is not open I get an error message. How do I have it check if
outlook is open?

I used the following and get the message even if Outlook is open.

If objOutlook Is Nothing Then
MsgBox ("Outlook is not currently running. Please start Outlook and try again.
"), vbOKOnly
Else