Как с помощью VBA узнать запущен Outlook или нет?

Dim WD as word.application
set WD =GetObject('Word.Application.10')

Declare Function FindWindow Lib 'user32' Alias _
'FindWindowA' (ByVal lpClassName As String, _
               ByVal lpWindowName As Long) As Long
 
Function DetectExcel() As Long
' Procedure dectects a running Excel and registers it.
   Const WM_USER = 1024
   Dim hWnd As Long
' If Excel is running this API call returns its handle.
   hWnd = FindWindow('XLMAIN', 0)
   If hWnd = 0 Then   ' 0 means Excel not running.
      Exit Function
   Else
   ' Excel is running so use the SendMessage API
      
   End If
End Function

If Tasks.Exists(Name:='Microsoft Outlook') = True Then ...

#If Win64 Then
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
lpClassName As String, ByVal lpWindowName As String) As LongLong
#Else
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
lpClassName As String, ByVal lpWindowName As String) As Long
#End If
 
Private Sub Workbook_Open()
    
    findoutlook = FindWindow("OpusApp", vbNullString)
        If findoutlook Then
            Sheets("intro").Activate
            Cells(1, 1).Select
        Else
            MsgBox "ВНИМАНИЕ! Microsoft Outlook не запущен! Перед открытием программы запустите Microsoft Outlook."
            ThisWorkbook.Close True
        End If
    
End Sub