VBA批量发送带附件邮件触发Run-time error '440'问题排查

我碰到过好几个类似的批量Outlook发送问题，你的Run-time error '440'十有八九是COM对象资源泄漏或者Outlook的批量操作限制导致的——毕竟小批量正常、大批量崩溃，完全是典型的累积型问题。下面给你几个针对性的修复方案，按优先级来：

1. 不要在循环里重复创建Outlook实例 #

你现在每次循环都执行CreateObject("Outlook.Application")和OutApp.Session.Logon，这会在后台生成一堆独立的Outlook进程，内存和系统资源很快就会耗光，到一定数量就触发440错误。把Outlook的初始化逻辑移到循环外面，只做一次：

' 把Outlook初始化移到循环之前，仅执行一次
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

Set rangepro = Worksheets("Mappings").Range("f2:f" & rangeprojects)
For Each cell In rangepro
    ' 你的现有文件生成逻辑...
    
    ' 循环内仅创建邮件对象，无需重复初始化Outlook
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .SentOnBehalfOfName = eOnBehalf
        .To = cell.Offset(0, 1)
        .Subject = eSubject
        .body = eBody
        .Attachments.Add Path & cell.Value & d & "-NBTReport.xls"
        .Display ' 如果不需要预览邮件，可以直接删掉这行
        .Send
    End With
    ' 每次循环后手动释放邮件对象
    Set OutMail = Nothing
Next cell

' 循环结束后释放Outlook实例
Set OutApp = Nothing

2. 强制释放COM对象，避免内存泄漏 #

VBA对Outlook这类外部COM对象的垃圾回收机制不够及时，批量操作时一定要手动释放对象，防止内存堆积：

• 每次循环结束后执行Set OutMail = Nothing
• 整个循环完成后执行Set OutApp = Nothing

3. 添加发送延迟，避开Outlook的安全/频率限制 #

Outlook默认会限制短时间内发送大量邮件（防止被识别为垃圾邮件），发送速度太快会触发对象模型错误。在.Send之后加个2-3秒的缓冲：

With OutMail
    ' ...你的邮件配置代码...
    .Send
End With
' 延迟2秒，给Outlook足够的处理时间
Application.Wait Now + TimeValue("00:00:02")

4. 移除不必要的Select操作（优化稳定性+速度） #

你的代码里用了大量Select、Selection操作，这不仅拖慢速度，还可能导致对象引用混乱（尤其是批量循环时）。改成直接引用对象的写法，比如把复制粘贴逻辑优化为：

' 替换原有的Select+Copy+Paste逻辑
With Worksheets("27a Report")
    .Range("A1:au" & range27a).AutoFilter Field:=1, Criteria1:=cell.Value
    ' 直接复制可见区域到新工作簿
    .Range("A1:au" & range27a).SpecialCells(xlCellTypeVisible).Copy
    ' 取消自动筛选，避免影响下一次循环
    .AutoFilterMode = False
End With

Set wbO = Workbooks.Add
With wbO
    .Sheets("Sheet1").Name = "27a Report"
    .Sheets("27a Report").Range("A1").PasteSpecial Paste:=xlPasteValues
    ' 你的后续处理逻辑（生成透视表、保存文件等）...
End With

先试前两个方案（Outlook实例移到循环外+释放对象），这是最常见的触发440错误的原因。如果还是有问题，再依次添加延迟和优化Select操作。

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