Check if outlook is open 1

[mbowler9]

I would like to know how to check if outlook is already open.


Thanks in advance for your help.

 

[VBslammer]

Function IsOutLookOpen() As Boolean
  Dim ol As Outlook.Application
  Dim blnOpen As Boolean
  
  On Error Resume Next
  Set ol = GetObject(, "Outlook.Application")
  
  If Err = 0 Then
    IsOutLookOpen = True
  Else
    Set ol = Nothing
  End If
End Function

VBSlammer

Unemployed in Houston, Texas