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

Question

Я пытаюсь создать процедуру, которая передается тело электронной почты (с текстом и таблицами) в виде 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("abc@example.com", "", "Test", WordDoc) 
End Sub 

Answer 1

объектная модель слова обеспечивает Copy и Paste методы. См. Chapter 17: Working with Item Bodies для получения дополнительной информации.