how can I check if outlook is already open and running in VB6?

[Mark]

Hello. Using VB6, how can I check to see if a user has Outlook
currently open and running on their machine?

Thank you!
Sincerely,
Mark

 

[Ken Slovak - [MVP - Outlook]]

Dim oOL As Outlook.Application
On Error Resume Next
Set oOL = GetObject(, "Outlook.Application")
If oOL Is Nothing Then 'Outlook not running yet
Err.Clear
Set oOL = CreateObject("Outlook.Application") 'start Outlook
End If