任务计划设置「无论用户是否登录」时Excel VBA调用Outlook发信失败

微软官方明确不推荐也不支持在非交互式用户会话（如任务计划「无论用户是否登录」模式、Windows服务上下文）中自动化Office客户端应用。你遇到的Excel运行正常、Outlook运行失败的差异，是因为Excel对非交互式上下文的兼容度略高，但Outlook的运行强依赖交互式用户会话中的MAPI邮箱配置文件、桌面交互上下文，「无论用户是否登录」模式下任务运行在系统会话0中，没有对应的用户Outlook配置，也不支持桌面应用的UI组件初始化，所以必然运行失败，这是应用设计限制，和权限、桌面路径配置无关，所以你之前尝试的方案都不生效。

方案1：替换Outlook自动化，使用CDO组件直接通过SMTP发件（无需依赖Outlook客户端，支持非交互式会话） #

这是最适配你场景的方案，不需要启动Outlook，直接配置邮箱SMTP参数即可发件，VBA示例代码如下：

Sub runTaskTest()
    Dim CDO_Mail As Object
    Dim CDO_Config As Object
    Dim SMTP_Config As Variant
    
    Set CDO_Mail = CreateObject("CDO.Message")
    Set CDO_Config = CreateObject("CDO.Configuration")
    CDO_Config.Load -1
    Set SMTP_Config = CDO_Config.Fields
    
    ' 按你的邮箱服务商配置SMTP参数，下面是Gmail的示例
    With SMTP_Config
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendsmtpusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "你的邮箱账号"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "你的邮箱授权码"
        .Update
    End With
    
    With CDO_Mail
        Set .Configuration = CDO_Config
        .To = "abc@gmail.com"
        .Subject = "Test mail"
        .HTMLBody = "Dear ABC<br><br>Please find the attached file"
        .AddAttachment ThisWorkbook.FullName ' 附件用AddAttachment方法添加
        .Send
    End With
    
    Set CDO_Mail = Nothing
    Set CDO_Config = Nothing
End Sub

方案2：保留Outlook自动化，调整任务计划配置 #

如果必须使用Outlook发件（比如需要复用本地Outlook的账号配置、自动添加签名、同步已发送邮件到邮箱），放弃「无论用户是否登录」模式，改为勾选「仅在用户登录时运行」，同时可勾选「唤醒计算机运行此任务」满足定时运行需求。

额外注意点 #

你原有的Outlook VBA代码本身存在两处语法问题，即便在登录模式下也可能报错：

• .HTMLBody 拼接时行末缺少换行连接符，需要把末尾的 & 和下一行的 .HTMLBody 放在同一行或者加 _ 换行符
• .Attachments = ThisWorkbook 写法错误，Attachments是集合对象，需要用 .Attachments.Add ThisWorkbook.FullName 添加附件

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