Как написать текст электронной почты в VBA до и после таблицы Excel с MailEnvelope

Question

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

С помощью приведенного ниже кода с MailEnvelope мне удалось создать текст перед таблицей, ноЯ не знаю, как добавить текст также после таблицы?

У вас есть идеи, как?

Sub Email()

Dim SendingRng As Range
Dim Recipients, CC1, subjEmail As String

On Error GoTo StopMacro
Recipients = Worksheets("Table").Range("K13")
CC1 = Worksheets("Table").Range("K14")
subjEmail = Worksheets("Table").Range("K15")

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

' Only the visible cells in the selection---->    Set SendingRng = Selection.SpecialCells(xlCellTypeVisible)
Set SendingRng = Worksheets("Table").Range("A1:F2")
With SendingRng

    .Parent.Select
    .Select

    ' Create the e-mail and send it
    ActiveWorkbook.EnvelopeVisible = True
    With .Parent.MailEnvelope

        .Introduction = "Dear all," & vbNewLine & vbNewLine & _
          "Please find belowXXXXXXXXX. " & vbNewLine & vbNewLine & _
          ""

        With .Item
            .To = Recipients
            .CC = CC1
            ' .BCC = ""
            .subject = subjEmail
            ' .Attachments.Add.ActiveWorkbook.FullName
            ' .Attachments.Add ("C:\test.txt")
            .Display
            .Send
        End With

    End With

End With
StopMacro:
With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub