Планировщик заданий Открывает файл Excel, но продолжает работать и не завершает

Question

У меня есть код ниже в модуле. Я пытался использовать Workbook_Open в 'ThisWorkbook', и я пытался использовать Auto_Open в Sheet. Ни один из них не запустит код при открытии электронной таблицы. Вот почему мой код находится в модуле. Программа работает нормально, если я открываю ее вручную. Однако при использовании планировщика задач он открывает файл Excel и продолжает работать. Он не выполняет код. Код - это просто электронное письмо с приложением.

Что касается планировщика заданий, на вкладке «Общие» я запускаю «Запускать» только тогда, когда пользователь вошел в систему, и «Запускать» с проверенными наивысшими привилегиями. У меня также есть Wake компьютер, чтобы запустить эту задачу, проверенную в условиях.

Sub Auto_Open()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Application.DisplayAlerts = False

On Error Resume Next

    With OutMail
        .to = "bjenks@ormat.com"
        .CC = ""
        .BCC = ""
        .Subject = "Test Workbook Open"
        .Body = "Hi there"
        .Attachments.Add ("C:\Users\bjenks\Desktop\Test.xlsx")
        .Send   'or use .Display
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

Answer 1

Я снял флажок Запускать с самыми высокими привилегиями и изменить на Publi c, и это сработало.