VBA邮件宏锁屏时停止运行问题求助

使用Excel VBA宏实现自动邮件发送，通过任务计划程序实现自动化执行。屏幕未锁定时程序运行正常，但锁屏后宏在执行以下代码段时停止，无任何报错信息，仅Outlook中显示空白的新邮件窗口。

问题代码段 #

Dim xInspect As Object
Dim pageEditor As Object

Set xInspect = OutMail.GetInspector
Set pageEditor = xInspect.WordEditor

Worksheets("Email_Sender_Body").Range("K1:K" & row_count_body).Copy

pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
.Display

Set pageEditor = Nothing
Set xInspect = Nothing

核心原因 #

锁屏后系统无活跃用户桌面会话，依赖Selection（选区）这类需要交互界面的操作会失效——Office自动化组件在无用户界面上下文时无法正常处理选区相关逻辑。

修改后的代码（避开选区操作） #

直接操作Word文档对象的内容，而非通过Selection交互：

Dim xInspect As Object
Dim wordDoc As Object

Set xInspect = OutMail.GetInspector
Set wordDoc = xInspect.WordEditor ' 直接获取Word文档对象

Worksheets("Email_Sender_Body").Range("K1:K" & row_count_body).Copy

' 定位到邮件内容末尾并粘贴，无需选区
With wordDoc.Content
    .InsertAfter vbCrLf ' 可选：在现有内容后添加换行分隔
    .Collapse Direction:=0 ' 0对应wdCollapseEnd，将光标移至内容末尾
    .PasteAndFormat wdFormatPlainText
End With

OutMail.Display ' 确保OutMail为已初始化的邮件对象

Set wordDoc = Nothing
Set xInspect = Nothing

任务计划程序补充设置 #

• 任务属性中勾选**"不管用户是否登录都要运行"**，并授予足够权限；
• 在"设置"选项卡取消勾选**"如果计算机改用电池电源，则停止任务"**；
• 若系统为Windows 10/11，需确保任务的"配置为"选项对应正确的系统版本。

额外建议 #

• 所有Office自动化代码尽量避免使用Selection、Activate、Select这类依赖界面的方法，直接操作对象模型更稳定；
• 确认Office安全设置允许VBA自动化执行，避免因安全策略拦截导致的静默失败。

内容的提问来源于stack exchange，提问作者Szubi