Dim ws As String
ws = ActiveSheet.name
Dim Outlook, MailItem
Set Outlook = CreateObject("Outlook.Application")
body = "Добрый день! " + Chr(10) + Chr(10)
Set MailItem = Outlook.CreateItem(0)
MailItem.Subject = "Письмо"
MailItem.To = "vasya@mail.ru"
MailItem.body = body <--- тут трабл
MailItem.Save
MailItem.display

как помимо желания доброго дня - вставить диапазон ячеек какого-то листа, скажем "A1:B4", сохранив цвета, шрифты. Именно в тело письма, не в прилагаемом файле, аттачить ничего не надо, просто вставить в тело диапазон, можно копированием
Range("A1:B4").Select
Selection.Copy
А как потом в письме вставку сделать.
Поиском пользовался... или плохо пользовался или.... или...

Решение есть.

MailItem.Display

For i = 1 To 200000 ' пауза, ее хватит, чтобы активировать окно сообщения
DoEvents
Next i

'keybd_event &H23, 0, 0, 0 'end key
'keybd_event &H28, 0, 0, 0 'key down
keybd_event &H11, 0, 0, 0 'ctrl
keybd_event Asc("V"), 0, 0, 0 ' V
keybd_event &H11, 0, &H2, 0 ' отжать ctrl
keybd_event Asc("V"), 0, &H2, 0 'отжать V, хотя не уверен, что ее надо отжимать.


Объявите вверху макроса эту процедуру.

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)