title: MailItem.GetInspector.WordEditor in Office 2016 generates Application-defined or object defined error
body: <p>I wrote an Excel macro to send email from a spreadsheet. It works on Office 2013, but not Office 2016.</p>
  
  <p>I looked at the VBA differences between Office 2013 and 2016, but couldn't see anything about changes to the inspector or word editor for message objects.</p>
  
  <p>Once it gets to <code>.GetInspector.WordEditor</code> it throws:</p>
  
  <blockquote>
    <p>Run-time error '287':<br>
    Application-defined or object defined error</p>
  </blockquote>
  
  <p>Here is the relevant part of the macro:</p>
  
  <pre><code>Sub SendEmail()
      Dim actSheet As Worksheet
      Set actSheet = ActiveSheet
  
      'directories of attachment and email template
      Dim dirEmail as String, dirAttach As String
  
      ' Directory of email template as word document
      dirEmail = _
          "Path_To_Word_Doc_Email_Body"
  
      ' Directories of attachments
      dirAttach = _
          "Path_To_Attachment"
  
      ' Email Subject line
      Dim subjEmail As String
      subjEmail = "Email Subject"
  
      Dim wordApp As Word.Application
      Dim docEmail As Word.Document
  
      ' Opens email template and copies it
      Set wordApp = New Word.Application
      Set docEmail = wordApp.Documents.Open(dirEmail, ReadOnly:=True)
      docEmail.Content.Copy
  
      Dim OutApp As Outlook.Application
      Set OutApp = New Outlook.Application
      Dim OutMail As MailItem
      Dim outEdit As Word.Document
  
      ' The names/emails to send to
      Dim docName As String, sendEmail As String, ccEmail As String, siteName As String
      Dim corName As String
  
      Dim row As Integer
      For row = 2 To 20
  
          sendName = actSheet.Cells(row, 1)
          sendEmail = actSheet.Cells(row, 2)
          ccEmail = actSheet.Cells(row, 3)
          siteName = actSheet.Cells(row, 4)
  
          Set OutMail = OutApp.CreateItem(olMailItem)
          With OutMail
              .SendUsingAccount = OutApp.Session.Accounts.Item(1)
              .To = sendEmail
              .CC = ccEmail
              .Subject = subjEmail &amp; " (Site: " &amp; siteName &amp; ")"
  
              Set outEdit = .GetInspector.WordEditor
              outEdit.Content.Paste
  
              outEdit.Range(0).InsertBefore ("Dear " &amp; sendName &amp; "," &amp; vbNewLine)
  
              .Attachments.Add dirAttach
  
              .Display
              '.Send
  
          End With
          Debug.Print row
  
          Set OutMail = Nothing
          Set outEdit = Nothing
      Next row
  
      docEmail.Close False
      wordApp.Quit
  End Sub
  </code></pre>
  
  <p>Things I've tried based on suggestions:</p>
  
  <ul>
  <li>Checked Outlook settings - default is HTML text</li>
  <li>Moved <code>.display</code> over <code>.GetInspector.WordEditor</code></li>
  </ul>