У кого-нибудь есть алгоритм для автоматизации прикрепления уникальных файлов при слиянии?

Question

Это ссылка, где я его получил. https://www.youtube.com/watch?v=0k8t2Fy6nSc

Вот код, который я получил из интернета, но, похоже, он не работает.

Sub Send_email_fromexcel()
    Dim edress As String
    Dim subj As String
    Dim message As String
    Dim filename As String
    Dim outlookapp As Object
    Dim outlookmailitem As Object
    Dim myAttachments As Object
    Dim path As String
    Dim lastrow As Integer
    Dim attachment As String
    Dim x As Integer

    x = 2
    Do While Sheet1.Cells(x, 1) (the symbol for not equal to) ""
        Set outlookapp = CreateObject("Outlook.Application")
        Set outlookmailitem = outlookapp.createitem(0)
        Set myAttachments = outlookmailitem.Attachments
        path = "C:\Users\Barb\Documents\statements\"
        edress = Sheet1.Cells(x, 1)

        subj = Sheet1.Cells(x, 2)
        filename = Sheet1.Cells(x, 3)
        attachment = path + filename

        outlookmailitem.To = edress
        outlookmailitem.cc = ""
        outlookmailitem.bcc = ""
        outlookmailitem.Subject = subj
        outlookmailitem.body = "Please find your statement attached" & vbCrLf & "Best Regards"

        myAttachments.Add (attachment)
        outlookmailitem.display
        outlookmailitem.send

        lastrow = lastrow + 1
        edress = ""
        x = x + 1
    Loop

    Set outlookapp = Nothing
    Set outlookmailitem = Nothing
End Sub