title: Put contents of OLEObject from Excel Workbook into body of Outlook email using Excel VBA
body: <p>The OLEObject is a Microsoft Word document object. I want the content of the file as text in the body. The Word document also contains an image.</p>
  
  <p>I have a problem with the line of code to do this:</p>
  
  <pre><code>Option Explicit
  Sub Genera_email()
      Dim App As Object
      Dim MailItem As Object
      Set App = CreateObject("Outlook.Application")
      Set MailItem = App.CreateItem(0)
      With MailItem
          .BCC = Selection.Value
          .Subject = "Text object"
          .Body = Worksheets(2).OLEObjects(1) ' the problem line
          .Display
      End With
      Set MailItem = Nothing
      Set App = Nothing
      Selection.Offset(0, 1).Select
      Selection.Value = "V"
      Selection.Offset(1, -1).Select
  End Sub
  </code></pre>
  
  <p>I use Microsoft Office 2016.</p>
  
  <p>What is the correct syntax of this line of code?</p>