Excel VBA发送邮件时.TO字段报错：对象不支持此方法

错误原因分析 #

• Object does not support this method错误的核心原因：Outlook邮件对象的.To属性要求接收逗号分隔的字符串格式邮箱地址，但原代码直接将一个Range单元格区域赋值给它，类型不匹配导致报错。
• 代码还存在两个额外问题：
  • Attachments.Add "C\Temp Folder"路径错误：既缺少盘符后的冒号，且Attachments.Add只能添加具体文件，不能添加文件夹
  • 未实现需求：未将Data工作表A2起始的数据透视表内容附带至邮件中

修正后的代码及说明 #

以下是修复所有问题并实现需求的完整代码：

Sub emailtest()
    Dim objOutlook As Object
    Dim objMail As Object
    Dim emailAddresses As String
    Dim lastRow As Long
    Dim pivotRange As Range
    
    ' 创建Outlook对象
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With Worksheets("Data")
        ' 获取数据透视表完整区域（从A2开始，取到最后一行最后一列）
        lastRow = .Range("A" & .Rows.Count).End(xlUp).Row
        Set pivotRange = .Range("A2:" & .Cells(lastRow, .Columns.Count).End(xlToLeft).Address)
        
        ' 将A2到lastRow的邮箱地址合并为逗号分隔的字符串
        emailAddresses = Join(Application.Transpose(.Range("A2:A" & lastRow).Value), ", ")
    End With
    
    With objMail
        .To = emailAddresses
        .Subject = "Sell Fail Trade"
        .Body = "Please find today's sell report"
        
        ' 方案1：将数据透视表内容作为图片嵌入邮件正文（直观展示）
        pivotRange.Copy
        .HTMLBody = "<p>Please find today's sell report:</p>" & .HTMLBody
        .GetInspector.WordEditor.Range.Paste
        
        ' 方案2：将数据透视表所在工作表存为临时文件作为附件（方便编辑）
        ' Worksheets("Data").Copy
        ' ActiveWorkbook.SaveAs "C:\Temp Folder\DailySellReport.xlsx"
        ' .Attachments.Add "C:\Temp Folder\DailySellReport.xlsx"
        ' ActiveWorkbook.Close SaveChanges:=False
        
        .Display ' 替换为.Send可直接发送，.Save保存到草稿
    End With
    
    ' 释放对象
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub

关键修正点说明 #

• .To字段修复：用Join(Application.Transpose(Range.Value), ", ")把单元格区域里的邮箱地址合并成符合要求的字符串格式
• 数据透视表内容附带：提供两种可选方案，按需选择：
  1. 复制透视表区域粘贴为图片嵌入正文，直接展示数据
  2. 将Data工作表另存为临时Excel文件作为附件发送，方便收件人后续编辑
• 附件路径修复：确保使用合法的文件路径（需提前创建C:\Temp Folder文件夹），且添加的是具体文件而非文件夹

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