Need VBA Code to check if MSOutlook is open

[TPJoseph]

Can someone please provide an example of VBA Code to check if MSOutlook is
open?

Thanks,

Tom

 

[Mike H]

Hi,

Try this

Sub TestOutlook()
On Error Resume Next
Set oOutLook = GetObject(, "Outlook.Application")

If oOutLook Is Nothing Then
MsgBox "Outlook isn't open"
End If

End Sub

Mike

 

[Jacob Skaria]

Check out the below link to handle this and open outlook if not

http://www.ozgrid.com/forum/showthread.php?t=73886

 

[TPJoseph]

Thanks, Mike.

Hi,

Try this

Sub TestOutlook()
On Error Resume Next
Set oOutLook = GetObject(, "Outlook.Application")

If oOutLook Is Nothing Then
MsgBox "Outlook isn't open"
End If

End Sub

Mike

 

[TPJoseph]

Thanks, Jacob.

Check out the below link to handle this and open outlook if not

http://www.ozgrid.com/forum/showthread.php?t=73886