Запуск Outlook в фоновом режиме

Sub StartOutlook()
    Dim OutApp As Object
    Dim OutMail As Object
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon "Ooos@хх.хх", "", True, True
End Sub

Sub StartOutlookInBackground()
Dim objOutlook As Outlook.Application
Set objOutlook = CreateObject("Outlook.Application")
objOutlook.Visible = False ' Ошибка 438
End Sub

Option Explicit
 
Sub FindOutlookPath()
    Debug.Print CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE\")
End Sub
 
Sub ЗапуститьOutlookСвёрнуто()
 
    ' Путь к Outlook - можно уточнить с помощью процедуры что выше "FindOutlookPath", если установлен в другом месте
    Dim outlookPath As String
    outlookPath = """C:\Program Files\Microsoft Office\root\Office16\OUTLOOK.EXE"""
 
    ' Создаем объект Shell
    Dim shell       As Object
    Set shell = CreateObject("WScript.Shell")
 
    ' Запускаем Outlook в свернутом виде: параметр 7 — свернутое окно
    shell.Run outlookPath, 7, False
End Sub