VBA宏循环异常：无法为Outlook邮件批量添加筛选列表的发票附件

听起来你的催款函宏卡在了发票附件添加的环节——循环直接跳转到邮件正文部分，完全没处理TempoWB第2列的发票数据。这大概率是循环逻辑的问题，要么是循环没正确执行，要么是变量更新/条件判断出了错。咱们来一步步修复：

核心问题排查方向 #

最常见的几个坑：

• 循环变量没递增：如果你的Do While循环里忘了给行号变量（比如i）做i = i + 1的操作，循环会一直卡在同一行，要么触发无限循环被强制跳过，要么直接不进入循环体。
• 循环条件写反了：比如用了Do While TempoWB.Range("A" & i).Value = ""，如果第一行数据非空，循环直接不执行，直奔后面的邮件代码。
• 工作表/列引用错误：没明确指定TempoWB里的具体工作表，或者搞混了邮箱列和发票列的位置，导致循环找不到匹配的客户数据。

修复后的循环代码示例 #

假设你的客户邮箱在TempoWB的第1列（A列），发票路径在第2列（B列），表头在第1行，下面是修正后的循环逻辑：

Dim ws As Worksheet
Dim i As Long
Dim targetEmail As String

' 先明确目标客户邮箱（你之前筛选出来的那个）
targetEmail = "客户的邮箱地址@xxx.com"
' 引用TempoWB里的具体工作表，别偷懒省略！
Set ws = TempoWB.Sheets("你的发票数据工作表名")

' 从第2行开始遍历（跳过表头）
i = 2
Do While ws.Range("A" & i).Value <> "" ' 直到邮箱列为空行停止循环
    ' 匹配当前行的邮箱是否和目标客户一致
    If ws.Range("A" & i).Value = targetEmail Then
        ' 添加第2列的发票作为附件
        ' 注意：B列必须是完整的文件路径，比如"C:\Invoices\INV-123.pdf"
        .Attachments.Add ws.Range("B" & i).Value
        ' 可以加个调试输出，确认附件已添加
        Debug.Print "已添加发票：" & ws.Range("B" & i).Value
    End If
    ' 关键：必须递增行号，否则循环会卡死！
    i = i + 1
Loop

' 现在再设置邮件正文
.HTMLBody = "你的催款函HTML内容..."

额外调试技巧 #

如果还是有问题，加几句调试代码看看循环到底有没有执行：

1. 在循环里加入Debug.Print "当前行：" & i & "，邮箱：" & ws.Range("A" & i).Value，然后打开VBA的“立即窗口”（Ctrl+G），运行宏后看输出，确认循环是否遍历了正确的行。
2. 检查TempoWB第2列的发票路径是否是完整绝对路径，如果只是文件名（比如INV-123.pdf），Outlook会找不到文件，导致附件添加失败（但不会直接跳循环，不过也得排查）。

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