Отправка электронной почты с телом сообщения по умолчанию с использованием книги

Question

Я пытаюсь создать Excel Micro, который отправляет электронные письма с телом по умолчанию, а также вложенные в него вложения.

Но я не могу сделать цикл, чтобы прикрепить несколько вложений в одном письмеиспользуя строку 3, строку 4 ....

---

Private Sub CommandButton1_Click()

   Dim olApp As Object
   Dim olMail As Object
   Dim olRecip As Object
   Dim olAtmt As Object
   Dim iRow As Long
   Dim Recip As String
   Dim Subject As String
   Dim Atmt As String
   Dim Atmt1 As String
   Dim Atmt2 As String
   Dim body As String
   Dim body1 As String
   Dim body2 As String
   Dim body3 As String

   iRow = 2

   Set olApp = CreateObject("Outlook.Application")

   Do Until IsEmpty(Cells(iRow, 1))

      Recip = Cells(iRow, 1).Value
      Subject = Cells(iRow, 4).Value
      Atmt = Cells(iRow, 5).Value
      Atmt1 = Cells(iRow, 10).Value
      Atmt2 = Cells(iRow, 11).Value
      body = Cells(iRow, 6).Value
      body1 = Cells(iRow, 7).Value
      body2 = Cells(iRow, 8).Value
      body3 = Cells(iRow, 9).Value


      ' Attachment Path

      Set olMail = olApp.CreateItem(0)

      With olMail
         Set olRecip = .Recipients.Add(Recip)
        .Subject = Subject
         .body = body & vbNewLine & vbNewLine & body1 & vbNewLine & vbNewLine & vbNewLine & vbNewLine & body2 & vbNewLine & body3
        .Display
          Set olAtmt = .Attachments.Add(Atmt)
          Set olAtmt = .Attachments.Add(Atmt1)
          Set olAtmt = .Attachments.Add(Atmt2)

         olRecip.Resolve
      End With

      iRow = iRow + 1

   Loop

   Set olApp = Nothing
   Exit Sub

End Sub

---

Я хочу щелчок, выберите файлы по пути, указанному в столбце 5 и строке 3,4,5,6,7.....