使用Task Scheduler触发Excel VBA发邮件时粘贴的图表表格丢失问题

你遇到的报错属于非交互式会话下Office COM组件操作受限：任务计划程序默认启动后台无UI会话，Outlook的GetInspector.WordEditor、粘贴图形这类依赖UI渲染的操作会被系统直接拦截，而手动运行代码时处于当前登录的交互式会话中，不存在这个限制，因此运行正常。

• 调整任务计划配置：
  打开对应任务的属性面板，在「安全选项」中勾选「只在用户登录时运行」+「使用最高权限运行」，禁止勾选「不管用户是否登录都要运行」，后者是触发报错的核心原因。确保运行任务的账号和你手动测试时的Windows账号完全一致，避免权限隔离。
• 优化VBA代码，移除所有依赖Select/Selection的不稳定写法，同时统一用WordEditor操作邮件内容，避免HTMLBody和WordEditor混用导致的内容覆盖问题：

Sub Send_AutoMail()
    Dim r As Range, rng1 As Range
    Dim outlookApp As Outlook.Application
    Dim outMail As Outlook.MailItem
    Dim wordDoc As Word.Document
    Dim shp As Object
    
    ' 移除所有Select操作，直接引用范围
    Set r = Sheets("maindata").Range("V4:AL78")
    r.Copy
    DoEvents ' 等待剪贴板写入完成
    
    With Sheets("LatestWeek")
        Set rng1 = .Range(.Range("R7"), .Range("R7").End(xlDown).End(xlToLeft)).SpecialCells(xlCellTypeVisible)
    End With

    Set outlookApp = CreateObject("Outlook.Application")
    Set outMail = outlookApp.CreateItem(olMailItem)
    outMail.Display
    DoEvents ' 等待邮件窗口初始化完成
    
    Set wordDoc = outMail.GetInspector.WordEditor
    
    With outMail
        .Subject = "Testing[Daily]"
        .To = ""
        ' 统一用WordEditor写入内容，避免和HTMLBody混用冲突
        wordDoc.Range.InsertAfter "Hi All," & vbCrLf & "TrendChart: PLT" & vbCrLf
        ' 粘贴图表
        wordDoc.Range(Start:=wordDoc.Range.End - 1).PasteAndFormat wdChartPicture
        DoEvents
        For Each shp In wordDoc.InlineShapes
            shp.ScaleHeight = 100
            shp.ScaleWidth = 100
        Next
        ' 插入后续文字
        wordDoc.Range.InsertAfter vbCrLf & "LOH" & vbCrLf & vbCrLf
        ' 给LOH设置格式
        With wordDoc.Range.Find
            .Text = "LOH"
            .Font.Bold = True
            .Font.Color = wdColorRed
            .Font.Name = "Calibri"
            .Execute
        End With
        ' 粘贴表格
        rng1.Copy
        DoEvents
        wordDoc.Range(Start:=wordDoc.Range.End - 1).PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
        ' 设置表格边框
        With wordDoc.Tables(1)
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.OutsideLineWidth = wdLineWidth225pt
            .Borders.OutsideColor = wdColorGray25
            .Range.Font.Name = "Calibri"
        End With
        ' 插入落款
        wordDoc.Range.InsertAfter vbCrLf & "Regards,"
        ' 统一设置全文Calibri字体
        wordDoc.Range.Font.Name = "Calibri"
    End With
         
   'outMail.Send
End Sub

• 提前将Outlook设置为开机自动启动，保持后台常驻，避免CreateObject调用Outlook实例失败
• 给你的Excel工作簿添加受信任位置，避免定时打开时宏被安全策略拦截
• 如果你一定要使用「不管用户是否登录都要运行」的配置，就放弃WordEditor粘贴的方案，改为将图表导出为本地图片，再通过Attachments.Add加为附件后嵌入HTMLBody，这种方案不依赖UI交互，后台会话也能正常运行。

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