将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("[email protected]", "", "Test", WordDoc) 
End Sub 

Answer 1

Word对象模型提供了Copy和Paste方法。有关更多信息，请参阅Chapter 17: Working with Item Bodies。