Sub Отправка()
Dim OutlookApp As Object, SM As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set SM = OutlookApp.CreateItem(olMailItem)

With SM
    .Display
    .To = "asd@asd.ru"
    .Subject = "тема"
    .HTMLBody = Range("A1").Value & .HTMLBody ' в этом варианте есть подпись и текст из ячейки, но в одну строку
    '.body =  Range("A1").Value ' в этом варианте текст как в ячейке, но нет подписи
End With
Set SM = Nothing 
Set OutlookApp = Nothing 
End Sub