Determinar si una instancia de Outlook existente está abierta

Después de leer cómo usar la automatización para enviar un mensaje, no tengo claro si es posible evitar abrir una nueva instancia de Outlook si ya tengo una abierta. Si es así, no estoy seguro de cómo buscar ejemplos que determinen si una instancia de Outlook existente está abierta.

----- Incluida la sugerencia --------

Tengo el siguiente fragmento, pero descubrí que no puedo crear la instancia correctamente. Básicamente estoy siguiendoeste ejemplo. O estoy recibiendoesta captura de pantalla, o el error de "Tipo definido por el usuario no definido". ¿Alguna sugerencia

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

Respuestas a la pregunta(3)

Su respuesta a la pregunta