title: VBA - Select text in Outlook email body
body: <p>Below is an image:</p>
  
  <p><img src="https://i.stack.imgur.com/OxG63.png" alt="enter image description here"></p>
  
  <p>Currently, I have the following code:</p>
  
  <pre><code>Sub Mail()
      Dim wb As Workbook, sh As Worksheet
      Set wb = Workbooks("book1"): Set sh = wb.Sheets("Sheet1")
      Dim OutApp As Object
      Dim OutMail As Object
      Dim msgbody As String
  
      With Application
          .EnableEvents = False
          .ScreenUpdating = False
      End With
  
      Set OutApp = CreateObject("Outlook.Application")
      OutApp.Session.Logon
      Set OutMail = OutApp.CreateItem(0)
  
      On Error Resume Next
      With OutMail
          .To = ""
          .CC = ""
          .BCC = ""
          .Subject = "subjsect"
          .Body = "somerandomtexthererhejoiehtjejheirjgoejrgijewr+goehjpogerhgeirog stackoverflow"
          .Display 
      End With
      Set weditor = OutApp.ActiveInspector.wordEditor
      On Error GoTo 0
  
      With Application
          .EnableEvents = True
          .ScreenUpdating = True
      End With
  
      Set OutMail = Nothing
      Set OutApp = Nothing
  End Sub
  </code></pre>
  
  <p>I believe that the key-line is </p>
  
  <pre><code>    Set weditor = OutApp.ActiveInspector.wordEditor
  </code></pre>
  
  <p>because it enables me (I think) to manipulate the body as if it were in Word. I just can't get it to search and select the text I want to be selected (such as stackoverflow in the image above).</p>