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