Разбор Макроса #Excel по отправке писем с помощью #Outlook

Разъяснение логики создания макроса #Excel по отправке автоматических писем с помощью #Outlook.
Текст макроса:
Sub SendBlock()
NameList = "List1"
Range01 = Sheets(NameList).Range("B4").Value
Sheets(NameList).Range(Range01).Copy
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.SentOnBehalfOfName = Sheets(NameList).Range("B1").Value
.To = Sheets(NameList).Range("B2").Value
.cc = Sheets(NameList).Range("B3").Value
.BCC = ""
.Subject = Sheets(NameList).Range("A5").Value
.HTMLBody = ""
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

[kater]

Больше просьба прислать полный текст макроса, с учетом автоматической вставки таблицы в тело письма, тк на данный момент таблица вставляется, но пустая. Спасибо вам.

[htkrqgq]

Юлия, добрый день. Подскажите пожалуйста, есть ли возможность сделать отправку данного письма ежедневным (в определенное время)

[gyttsie]

Юлия, добрый день, уточните, пожалуйста, как сделать так, чтобы таблица сразу была вставлена в тело письма, чтобы не нажимать кнопки Ctrl+V. Думаю, что это действие можно заменить строчкой в макросе :) Подскажите, пожалуйста, как. Спасибо

[chiembl]

Что нужно скорректировать в макросе, чтобы при копировании данных в диапазоне ячеек в письмо outlook вставлял в виде изображения, а не исходника?

[Artem-Aleksandrov]

Спасибо, очень полезный макрос но к сожалению не переносится форматирование ячеек :-(