发送带有多个附件的电子邮件

Question

我正在使用以下代码发送电子邮件。

我想阅读多个查找附件的单元格。

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
    If sheet.Range("K", i).Value <> "" Then
    msg.attachments.Add sheet.Range("K" & i).Value
    msg.Show

Next i

它适用于任何类型的附件。

如何将其修改为多个文件？

我尝试了一个嵌套的循环，但找不到任何结果。

示例文件路径。

Answer 1

如果下一列包含一个附件路径，则可以添加另一个条件，如果要在此处指定的文件附加。

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

    If sheet.Range("K", i).Value <> "" Then
      msg.attachments.Add sheet.Range("K" & i).Value
    
    If sheet.Range("L", i).Value <> "" Then
      msg.attachments.Add sheet.Range("L" & i).Value

    If sheet.Range("O", i).Value <> "" Then
      msg.attachments.Add sheet.Range("O" & i).Value

    msg.Show

Next i

因此，您可以将其进一步推断到工作表上的其他列。