VBA修改Outlook发信代码 实现读取多单元格添加多个附件

当前代码仅固定读取K列单元格的单条附件路径，要支持多附件添加，只需要在原有逻辑基础上增加附件列的遍历逻辑即可，同时修正原代码存在的语法错误。

原有代码问题 #

• 存在语法错误：sheet.Range("K", i)写法错误，且If判断块未闭合
• 仅固定读取K列单个单元格内容，无法识别后续列存储的其他附件路径
• 无路径有效性校验，遇到错误路径会直接抛出运行时错误

修改后完整代码 #

For i = 2 To n
    Set msg = outlook.createitem(0)
        
    msg.SentOnBehalfOfName = sheet.Range("F" & i).Value
    msg.To = sheet.Range("G" & i).Value
    msg.cc = sheet.Range("H" & i).Value
    msg.Subject = sheet.Range("I" & i).Value
    msg.body = sheet.Range("J" & i).Value
    
    ' 从K列（对应列序号11）开始逐列读取当前行的附件路径
    attCol = 11
    Do While sheet.Cells(i, attCol).Value <> ""
        filePath = Trim(sheet.Cells(i, attCol).Value)
        ' 校验文件存在再添加，避免无效路径报错
        If Dir(filePath) <> "" Then
            msg.attachments.Add filePath
        End If
        attCol = attCol + 1
    Loop

    msg.Show
Next i

适配说明 #

• 代码默认多附件路径从K列开始横向逐列存储（即第一份附件在K列、第二份在L列、第三份在M列，以此类推，空单元格代表当前行附件结束），和提供的附件路径示例格式匹配。如果附件起始列有调整，直接修改attCol = 11的数值即可，比如从L列开始就改为12。
• 如果是把多个附件路径写在同一个单元格内、用分号/逗号做分隔，可以把附件遍历部分替换为如下逻辑：

' 单单元格存储多路径（分号分隔）适配
If sheet.Range("K" & i).Value <> "" Then
    pathList = Split(sheet.Range("K" & i).Value, ";")
    For Each filePath In pathList
        filePath = Trim(filePath)
        If Dir(filePath) <> "" Then
            msg.attachments.Add filePath
        End If
    Next
End If

附件路径存储格式参考：

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