Определение того, открыт ли существующий экземпляр Outlook

Прочитав, как использовать автоматизацию для отправки сообщения, я не понимаю, можно ли избежать открытия нового экземпляра Outlook, если он у меня уже открыт . Если да, то я не знаю, как искать примеры, определяющие, открыт ли существующий экземпляр Outlook.

----- Включая предложение --------

У меня есть следующий фрагмент, но я обнаружил, что не могу создать экземпляр должным образом. Я в основном следую этому примеру . Я получаю либо этот снимок экрана , либо сообщение об ошибке «Пользовательский тип не определен». Есть предложения?

Sub Example()
    'Dim w As Outlook.Application

    Const ERR_APP_NOTRUNNING As Long = 429
    On Error Resume Next


' Handle Microsoft outlook
    Set w = GetObject(, "Outlook.Application")
    If Err = ERR_APP_NOTRUNNING Then
      'Set w = New Outlook.Application
      Set w = CreateObject("Outlook.Application")
    End If
End Sub