title: Outlook attachments.add not working when using WordEditor in VBA
body: <p>I have an Excel file which has an embeded word object for editing the e-mail message and then sending it.</p>
  
  <p>In the code, problem is right after i set the WordEditor object to paste the message, any added attachment previously added is missed, and if i change the code do add it after WordEditor processes the message, nothing is attached although no error is shown.</p>
  
  <p>Here is a simplified version of the code:</p>
  
  <pre><code>    Dim OlApp As Outlook.Application
      Dim Editor As Object
      Dim ObjMail as Outlook.Mailitem
      Dim WdTag As OLEObject
      Dim WdDocTag As Word.Document
      Dim WSmail as Worksheet
  
      set WSmail = ThisWorkbook.Sheets("Email")
  
      Set WdTag = WSmail.OLEObjects("WordTags")
      WdTag.Verb xlVerbPrimary
      Set WdDocTag = WdTag.Object
      WdDocTag.Content.Copy
  
      Set OlApp = CreateObject("Outlook.Application")
  
      Set ObjMail = OlApp.CreateItem(olMailItem)
  
      With ObjMail
         .Attachments.Add "C:\Users\Me\Desktop\txt.txt",,1
  
         'If I check the Attachments Property of ObjMail here at runtime,
         'I can see the information on the attached file. 
         'However, as soon as the code continues, it vanishes.     
  
         .BodyFormat = olFormatRichText
         Set Editor = .GetInspector.WordEditor
         Editor.Content.Paste
         Application.CutCopyMode = False
  
        .To = "Someone"
        .Cc = "Someone"
        .Subject = "MySubject"
        .Display
     End with
  </code></pre>
  
  <p>EDIT:</p>
  
  <p>Actually I found that after setting <code>.BodyFormat = olFormatRichText</code>, any attachments set after or before that line will be placed in the message body.</p>
  
  <p>Now the question would be, how to show the attachment in its proper field and not in the message body?</p>