将数据透视表粘贴到Outlook邮件并发送的VBA代码报错求助

错误原因 #

Outlook的MailItem对象本身不支持.Paste方法，你需要通过邮件的Inspector对象获取Word编辑器（Outlook默认使用Word作为邮件正文的编辑引擎），再在Word文档对象上执行粘贴操作。

修正后的代码 #

Sub EmailSend1()
    Dim WB1 As Workbook
    Dim otlApp As Object
    Dim otlNewMail As Object
    Dim MailPath As String
    Dim pivotTable As PivotTable
    Dim wordDoc As Object ' Word.Document
    
    Set WB1 = ActiveWorkbook
    Set pivotTable = WB1.Sheets("MyPivot").PivotTables("MyPivot Pivot1")
    
    ' 选中数据透视表内容并复制
    pivotTable.PivotSelect "", xlDataAndLabel, True
    Selection.Copy    
    
    MailPath = WB1.Path & "\" & "test.oft"    
    
    Set otlApp = CreateObject("Outlook.Application")    
    Set otlNewMail = otlApp.CreateItemFromTemplate(MailPath)
    
    With otlNewMail    
        '.To = "user@gmail.com"    
        .Subject = "Pivot Report " & Format(DateAdd("M", -1, Now), " MMM YY")    
        .Display ' 必须先显示邮件才能获取编辑器
        
        ' 获取邮件的Word编辑对象
        Set wordDoc = .Inspector.WordEditor
        
        ' 执行粘贴操作
        wordDoc.Content.Paste
    End With
    
    ' 释放对象，避免内存泄漏
    Set wordDoc = Nothing
    Set otlNewMail = Nothing
    Set otlApp = Nothing
    Set pivotTable = Nothing
    Set WB1 = Nothing
End Sub

关键修改点 #

• 移除未使用的变量，简化代码结构
• 通过.Inspector.WordEditor获取邮件的Word编辑实例，替换直接在MailItem上调用.Paste的错误操作
• 修正变量声明规范：原代码中Dim eBody, MailPath, Recipient As String仅Recipient为String类型，其余为Variant，建议明确声明每个变量类型
• 添加对象释放语句，优化内存使用

额外说明 #

• 确保Outlook默认使用Word作为邮件编辑器（默认配置通常满足，若异常可在Outlook选项中调整）
• 若需粘贴到正文特定位置，可定位到Word文档对应范围后执行粘贴，例如wordDoc.Range(Start:=0, End:=0).Paste可粘贴到正文开头

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