Отправить одно и то же письмо нескольким получателям с разными вложениями

это, очень просто, позволяет пользователю отправлять электронные письма нескольким получателям с различными вложениями для каждого. В моей электронной таблице я помещаю электронные письма и пути к файлам в ячейки, а цикл For выбирает каждого отдельного получателя и файл каждый раз, когда он проходит.

Sub SendMultipleEmails()

Dim Mail_Object, OutApp As Variant


 With ActiveSheet
    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With

For i = 2 To lastrow

Set Mail_Object = CreateObject("Outlook.Application")
Set OutApp = Mail_Object.CreateItem(0)

    With OutApp
    .Subject = "Your subject here"
    .Body = "Your message here"
    .To = Cells(i, 2).Value
    .Attachments.Add Cells(i, 4).Value
    .send
    End With

Next i

debugs:
If Err.Description <> "" Then MsgBox Err.Description

End Sub