Depois de ler como usar a automação para enviar uma mensagem, não sei se é possível evitar a abertura de uma nova instância do Outlook, se eu já tiver uma aberta. Nesse caso, não tenho certeza de como procurar exemplos para determinar se uma instância existente do Outlook está abert

----- Incluindo a sugestão --------

Tenho o seguinte snippet, mas descobri que não consigo criar a instância corretamente. Estou basicamente seguindoeste exemplo. Eu estou recebendo esta captura de tela ou o erro "Tipo definido pelo usuário não definido". Alguma sugestão

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