VBA邮件脚本优化需求：无对应附件时跳过创建邮件并处理下一行

嘿，作为VBA新手能写出基础的邮件发送脚本已经很赞啦！针对你说的「遇到没有对应附件的供应商就跳过，不创建邮件直接处理下一行」的需求，咱们只需要给脚本加个文件存在性检查的逻辑就行，我给你改个示例代码，一看就懂：

Sub SendSupplierEmails()
    ' 定义工作表对象，假设你的供应商列表在"供应商清单"工作表
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("供应商清单")
    
    ' 获取列表最后一行（假设供应商信息从A列开始）
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    Dim outApp As Object, outMail As Object
    Dim i As Long
    Dim supplierName As String, supplierEmail As String
    Dim attachFilePath As String
    
    ' 初始化Outlook应用
    Set outApp = CreateObject("Outlook.Application")
    
    ' 遍历供应商列表（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow
        ' 从表格中获取供应商信息（根据你的实际列调整）
        supplierName = ws.Cells(i, "A").Value
        supplierEmail = ws.Cells(i, "B").Value
        ' 拼接附件路径（根据你的实际命名规则调整）
        attachFilePath = "C:\供应商附件\" & supplierName & "_日报.xlsx"
        
        ' --- 核心：检查附件是否存在 ---
        If Dir(attachFilePath) = "" Then
            ' 文件不存在，打印日志到立即窗口（可选，方便排查）
            Debug.Print "跳过供应商：" & supplierName & "，未找到附件：" & attachFilePath
            ' 直接跳转到循环末尾，处理下一个供应商
            GoTo NextSupplier
        End If
        
        ' 附件存在时，才创建并发送邮件
        Set outMail = outApp.CreateItem(0)
        With outMail
            .To = supplierEmail
            .Subject = "[" & supplierName & "] 每日资料通知"
            .Body = "您好，附件是今日的相关资料，请查收。"
            .Attachments.Add attachFilePath
            .Send ' 如果想先预览邮件，改成.Display
        End With
        Set outMail = Nothing
        
NextSupplier: ' 循环跳转标记，用于跳过无附件的供应商
    Next i
    
    ' 清理对象
    Set outApp = Nothing
    MsgBox "邮件批量处理完成！"
End Sub

关键逻辑说明 #

• Dir(attachFilePath)：这是VBA里检查文件是否存在的简单方法——如果指定路径下的文件存在，它会返回文件名；如果不存在，返回空字符串。用这个判断非常适合新手，不需要额外引用对象。
• GoTo NextSupplier：当检测到文件不存在时，直接跳转到循环的Next i之前，跳过创建邮件的所有步骤，无缝处理下一个供应商。如果你不喜欢用GoTo，也可以把创建邮件的代码放在If Dir(...) <> "" Then的代码块里，效果是一样的。

注意事项 #

1. 确保attachFilePath的拼接完全符合你的实际文件路径和命名规则，比如路径末尾的斜杠、文件后缀（.xlsx/.pdf等）都要准确。
2. 如果一个供应商可能有多个附件，可以扩展检查逻辑：比如循环检查所有需要的附件路径，只要有一个不存在就跳过。
3. 运行前记得打开Outlook，避免权限或初始化错误。

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