Вставить Word.Document в тело электронной почты?

Я пытаюсь создать процедуру, которая передается тело электронной почты (с текстом и таблицами) в виде Word.Document, а затем отправляет его по электронной почте. Однако я не могу понять, как вставить Word.Document в тело письма.

Это то, что я сейчас пытаюсь сделать:

Sub CreateDraft(Destinatary As String, CC As String, Subject As String, Body As Word.Document) Dim OutApp As New Outlook.Application Dim OutMail As Outlook.MailItem Dim OutInspector As Outlook.Inspector Dim WordDoc As Word.Document Set OutMail = OutApp.CreateItem(olMailItem) With OutMail .To = Destinatary .CC = CC .Subject = Subject .Display Set OutInspector = OutMail.GetInspector Set WordDoc = OutInspector.WordEditor ' How do I insert the Body object to the email? Call .Save Call .Close(False) End With End Sub Sub SendButton_Click() Dim WordApp As New Word.Application Dim WordDoc As Word.Document Set WordDoc = WordApp.Documents.Add WordApp.Visible = False ThisWorkbook.Sheets(1).Range("A1:E10").Copy WordApp.Selection.PasteExcelTable False, False, False Call CreateDraft("[email protected]", "", "Test", WordDoc) End Sub 

• Outlook 2010 - странная ошибка.
• Экспорт данных электронной почты Automail в Excel и обратно
• Автоматические почтовые сообщения Outlook с использованием VBA
• Как экспортировать элемент почты в файл Excel
• Каждая строка отправляет электронное письмо тому же получателю