任务计划程序会打开Excel文件，但会继续运行并且无法完成

Question

我在模块中有以下代码。我试过在[Workbook_Open]中使用ThisWorkbook，并且试过在工作表中使用Auto_Open。打开电子表格后，任何人都不会运行该代码。这就是为什么我的代码位于模块中的原因。如果我手动打开该程序，它将运行良好。但是，使用任务计划程序时，它将打开excel文件并保持运行。它不执行代码。该代码只是带有附件的简单电子邮件。

对于Task Scheduler，在“常规”选项卡中，我只有在用户登录后才运行，并且选中了具有最高特权的运行。我也有在条件下检查唤醒计算机以运行此任务的方法。

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 = "[email protected]"
        .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

我取消选中“具有最高特权的运行，并且运行正常。