Dim myOtlSession    As Outlook.Application
Dim myFldr  As Outlook.MAPIFolder
Dim mySpace As Outlook.NameSpace

on error goto err_1
    
    sLastStep = "Подключение к Outlook.Application"
    Set myOtlSession = CreateObject("Outlook.Application")
    sLastStep = "Подключение к MAPI"
    Set mySpace = myOtlSession.GetNamespace("MAPI")
    sLastStep = "Авторизация в Outlook"
    mySpace.Logon Profile:="Имя_профиля", ShowDialog:=False, NewSession:=False

exit sub 

err_1:
    ' Запись в текстовый лог-файл 
    ufLog "Ошибка:" & Err.Description