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" wrote:

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

Thanks,

Tom