Как отправить по почте диапазон ячеек?

Question

Я хочу отправить диапазон ячеек, скопированных в тело сообщения, созданного в Outlook.

.Send не отображает ячейки в полученном сообщении, но если я .Display, нажмите кнопка отправки, которая отображается в полученном сообщении.

Sub envio()

    Dim abrirOutlook As Object, email As Object

    Set abrirOutlook = CreateObject("Outlook.Application")
    Set email = abrirOutlook.CreateItem(olMailItem)

    abrirOutlook.Session.Logon

    email.To = ""
    email.Subject = "Informe"
    email.Body = "Buenos días," & Chr(10) & Chr(13) & "Adjunto informe" & Chr(10) _
      & Chr(13) & " Un saludo" 

    Range("FC10:FE14").Copy

    'email.Display
    email.Send

    SendKeys "^{DOWN}"
    SendKeys "^v"
    SendKeys "{NUMLOCK}"
    DoEvents

    Set abrirOutlook = Nothing
    Set email = Nothing

End Sub