Массовая рассылка ячеек Excel с Excel VBA

Question

Я пытаюсь настроить процесс, в котором запускается SQL-запрос VBA, а затем, используя адрес электронной почты из этого набора результатов, он просматривает ячейки сообщений электронной почты и данных электронной почты в другом столбце. Я нашел код в сети и немного его адаптировал, но все еще застрял.

    Dim OutApp As Object
    Dim OutMail As Object
    Dim sh As Worksheet
    Dim cell As Range
    Dim FileCell As Range
    Dim rng As Range

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set sh = Sheets("Sheet1")

    Set OutApp = CreateObject("Outlook.Application")

    For Each cell In sh.Columns("A").Cells.SpecialCells(xlCellTypeConstants)

        'Enter the path/file names in the C:Z column in each row
        Set rng = sh.Cells(cell.Row, 2).Range("C2:D2")


            Set OutMail = OutApp.CreateItem(0)

            With OutMail
                .to = cell.Value
                .Subject = "Friendly Reminder"
                .Body = "Hi " & cell.Offset(0, 2).Value
                .CC = cell.Value

                For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
                    If Trim(FileCell) <> "" Then
                        If Dir(FileCell.Value) <> "" Then
                            .Attachments.Add FileCell.Value
                        End If
                    End If
                Next FileCell

                .Display 'Or use .Display
            End With

            Set OutMail = Nothing

    Next cell

    Set OutApp = Nothing
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

В столбце A будут указаны адреса электронной почты, а в столбце C - текст, который я хочу отправить по электронной почте.

Я хочу вставить столбец C в тело текста. Любые мысли или идеи были бы великолепны.