title: Find Text in an email and delete all text after this in Outlook 2010
body: <p>I am trying to find text in an email and delete all text after this point.
  I have managed to get a working macro in Word 2010 however I have been unable to replicate something similar in Outlook.</p>
  
  <p>There will always be a certain text heading "Text" and then some text after this which does differ for each email.</p>
  
  <p>The macro I have been using for word: This was taken from <a href="https://stackoverflow.com/questions/497624/find-a-string-in-a-document-and-delete-everything-after-it">Find a string in a document and delete everything after it</a></p>
  
  <pre><code>Sub DeleteText()
  
  Set myRange = Application.ActiveInspector.CurrentItem
  myRange.Find.Execute FindText:="Text", _
      Forward:=True
  If myRange.Find.Found = True Then
  myRange.SetRange (myRange.End + 1), ActiveDocument.Content.End
  myRange.Delete
  
  End If
  
  End Sub
  </code></pre>
  
  <p>Any suggestions on how something similar can be implemented in Outlook 2010?</p>