通过 vba 宏带附件的邮件

Question

我正在运行一个宏，用于通过 Outlook 向多个收件人发送邮件，并通过 vba excel 发送一个或多个附件。我不精通宏，因此从各种来源获取了一些输入并得出了以下最终代码。

但是我已经提到了最大值。限制 3 个文件附件，这对于所有收件人都是恒定的，但每当我必须相应地仅附加 1 个或 2 个文件时，必须通过评论来禁用，例如在下面的代码中，我禁用了用于附加 1 个文件的第 2 和第 3 个附件列。 有没有什么方法可以让宏根据输入的值自动获取输入并留空，例如，如果一个收件人有 1 个附件，而下一个收件人有 2 个或 3 个附件

Sub SendMail()

    Dim objOutlook As Object
    Dim objMail As Object
    Dim ws As Worksheet

    Set objOutlook = CreateObject("Outlook.Application")
    Set ws = ActiveSheet

    For Each cell In ws.Range("A2:A1000")

        Set objMail = objOutlook.CreateItem(0)

        With objMail
            .To = cell.Value
            .Cc = cell.Offset(0, 1).Value
            .Bcc = cell.Offset(0, 2).Value
            .Subject = cell.Offset(0, 3).Value
            .Body = cell.Offset(0, 4).Value
            .Attachments.Add cell.Offset(0, 5).Value
            '.Attachments.Add cell.Offset(0, 6).Value
            '.Attachments.Add cell.Offset(0, 7).Value
            .Send
        End With

        Set objMail = Nothing
    Next cell

    Set ws = Nothing
    Set objOutlook = Nothing

End Sub

Answer 1

Dim i As Long, c As Range
'....
With objMail
    .To = cell.Value
    .Cc = cell.Offset(0, 1).Value
    .Bcc = cell.Offset(0, 2).Value
    .Subject = cell.Offset(0, 3).Value
    .Body = cell.Offset(0, 4).Value
    For i = 5 to 6
        Set c = cell.Offset(0, i)
        If c.Value <> "" Then .Attachments.Add c.Value
    Next i
    .Send
End With
'....