[CLOSED]VBA: вставить диапазон из Excel в письмо Outlook в формате HTM

Decent10

Для создания письма использую следующий код на Visual Basic
Sub CreateNewDefaultOutlookTask
Dim objOLApp As Outlook.Application
Dim objMail As Outlook.MailItem

Set objOLApp = New Outlook.Application
Set objMail = objOLApp.CreateItem(olMailItem)
objMail.HtmlBody="текст письма"
objMail.Display
End Sub
но никак не получается запихнуть в тело письма ячейки в виде таблицы, хотя в ручную это делается обычным копи-пэйстом.
На строчку objMail.HTMLBody = ActiveSheet.Range("A1", "B10").Value
выдает "type mismatch".
Помогите
Спасибо

saveliev_a

Посмотри здесь
http://www.mindspring.com/~tflynn/excelvba2.htm

Decent10

спасибо, но там написано как 1 ячейку добавить, если расширить диапазон до 2-х - type mismatch будет
Вопрос решил с помощью строчки

ActiveDocument.ActiveWindow.Selection.PasteExcelTable False, False, False