基于Excel列表通过Outlook VBA按模板发邮件遇运行时错误1004

直接触发1004错误的核心问题 #

你采用Late Binding方式创建Excel对象（CreateObject("Excel.Application")），但Outlook VBA环境中并未定义Excel的内置常量xlUp，导致End(xlUp)语句无法识别，直接抛出错误。另外你将字符串"2"赋值给Long类型的RecipientColumn，虽VBA会隐式转换，但属于不规范写法，可能引发潜在问题。

针对性修复步骤 #

1. 替换xlUp为对应数值：Late Binding下无法直接调用Excel常量，将xlUp替换为它的实际数值-4162。
2. 规范列索引赋值：将RecipientColumn = "2"改为RecipientColumn = 2，匹配变量的Long类型，避免类型转换风险。

其他潜在问题修复 #

1. 重复使用邮件对象：循环外仅创建一次OutlookMail，发送后该对象会被标记为已发送，再次修改会触发异常。需在循环内重新从模板创建邮件对象。
2. 未声明变量：i和Recipient变量未声明，建议开头添加Option Explicit强制变量声明，避免拼写错误。
3. 覆盖模板格式：原代码用OutlookMail.HTMLBody = Body直接覆盖模板内容，若需保留模板格式，可改为OutlookMail.HTMLBody = Body & OutlookMail.HTMLBody（将自定义内容追加到模板前）。
4. Excel进程残留：打开Excel后需关闭工作簿并退出程序，避免后台残留Excel进程。

修复后的完整代码 #

Option Explicit

Sub SendEmailsFromExcelList()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim ExcelApp As Object
    Dim ExcelWorkbook As Object
    Dim ExcelWorksheet As Object
    Dim LastRow As Long
    Dim RecipientColumn As Long
    Dim Subject As String
    Dim Body As String
    Dim TemplatePath As String
    Dim i As Long
    Dim Recipient As String

    TemplatePath = "C:\Users\jsmith\Documents\Project\Test.oft"
    Subject = "Test Invites"
    Body = "Hello, This is the email body."
    RecipientColumn = 2 ' B列，直接使用数值索引

    Set OutlookApp = CreateObject("Outlook.Application")
    
    Set ExcelApp = CreateObject("Excel.Application")
    ExcelApp.Visible = False ' 后台运行，调试时可设为True
    Set ExcelWorkbook = ExcelApp.Workbooks.Open("C:\Users\jsmith\Documents\Project\File.xlsx")
    Set ExcelWorksheet = ExcelWorkbook.Sheets("Sheet1")

    ' 用数值-4162替代xlUp，解决Late Binding常量识别问题
    LastRow = ExcelWorksheet.Cells(ExcelWorksheet.Rows.Count, RecipientColumn).End(-4162).Row

    For i = 2 To LastRow
        Recipient = ExcelWorksheet.Cells(i, RecipientColumn).Value
        ' 每次循环重新创建邮件对象，避免复用已发送的实例
        Set OutlookMail = OutlookApp.CreateItemFromTemplate(TemplatePath)
        
        With OutlookMail
            .To = Recipient
            .Subject = Subject
            ' 保留模板格式，将自定义内容追加到模板前（可根据需求调整顺序）
            .HTMLBody = Body & .HTMLBody
            .Send ' 调试阶段可改为.Display，手动确认邮件内容
        End With
        
        Set OutlookMail = Nothing
    Next i

    ' 清理Excel对象，避免进程残留
    ExcelWorkbook.Close SaveChanges:=False
    ExcelApp.Quit
    Set ExcelWorksheet = Nothing
    Set ExcelWorkbook = Nothing
    Set ExcelApp = Nothing
    Set OutlookApp = Nothing
End Sub

调试建议 #

• 若仍报错，检查Excel文件路径是否正确、文件是否被其他程序锁定。
• 先将.Send改为.Display，手动验证邮件收件人、内容和格式是否符合预期，确认无误后再改回.Send。

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