手动运行VBA邮件宏正常，任务计划程序调用cscript执行时报错

手动运行发送邮件的VBA宏完全正常，但通过任务计划程序启动cscript运行同一宏时，卡在CreateObject("Outlook.Application")语句上，报错提示「Server Error」。相关代码片段如下：

Dim aOutlook As Object
Dim aEmail As Object
Dim stringEmail As String
Set aOutlook = CreateObject("Outlook.Application")

任务计划程序配置截图：

原因分析与解决办法 #

1. Outlook COM对象的后台调用限制 #

Outlook是桌面客户端，默认禁止服务级别的后台进程（任务计划程序默认以服务身份运行）调用它的COM对象。

• 操作步骤：打开任务计划程序的任务属性，勾选「不管用户是否登录都要运行」，同时取消「不存储密码」选项；确保运行任务的用户有本地管理员权限，且该用户之前手动登录过系统并打开过Outlook（完成首次账号配置）。

2. 任务计划程序的运行环境配置错误 #

• 检查「操作」里的程序路径：必须指向正确的cscript.exe（一般是C:\Windows\System32\cscript.exe），脚本路径如果带空格要加引号，参数格式要正确。
• 填写「起始于」字段：把脚本所在的文件夹路径填进去，避免相对路径导致脚本找不到的问题。

3. Outlook安全设置拦截 #

• 打开Outlook，依次点「文件」>「选项」>「信任中心」>「信任中心设置」>「程序访问」，开启允许非Outlook程序访问数据的选项。
• 排查杀毒软件/安全工具：部分工具会拦截后台进程调用Outlook，可临时关闭测试，或者给cscript.exe和脚本添加信任规则。

4. 换用CDO组件绕过Outlook限制 #

如果上面的方法都不管用，可以直接用CDO.Message组件发送邮件，不用依赖Outlook客户端：

Dim cdoMessage As Object
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
    .Subject = "邮件主题"
    .From = "发件人邮箱@xxx.com"
    .To = "收件人邮箱@xxx.com"
    .TextBody = "邮件内容"
    ' 配置SMTP参数
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxx.com"
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 ' 对应SMTP端口
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' 启用认证
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "发件人邮箱@xxx.com"
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "发件人密码"
    .Configuration.Fields.Update
    .Send
End With
Set cdoMessage = Nothing

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