Sub LONG_STRING_CHANGER()
    Dim strFind, strReplace As String
    Dim objInspectors As Outlook.Inspectors
    Dim objInspector As Outlook.Inspector
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
'    Dim objSubject As Word.Document
    Dim objSubject As String
 
'Enter the specific text
'    strFind = InputBox("Enter the text for find: (Case Sensitive)")
'    strReplace = InputBox("Enter the text for replacement: (Case Sensitive)")

'EMAIL MESSAGE BODY

strFind = "The ESD MPEs (minimum performance expectations) is currently set for all agents to be able to process a minimum of 4 tickets/hour.  You are currently showing xx tickets per hour based on xx total tickets process divided by the usual 7 hour shift (Considering 8 hour shift minus 30 minutes for Lunch and 30 minutes for the two paid 15 minute breaks)."
strReplace = "The ESD MPEs (minimum performance expectations) is currently set for all agents to be able to process a minimum of 4 tickets/hour.  You are currently showing xx tickets per hour based on xx total tickets."
 
    If Trim(strFind) <> "" Then
       Set objInspectors = Outlook.Application.Inspectors
 
       For Each objInspector In objInspectors
           If objInspector.CurrentItem.Class = olMail Then
              If objInspector.EditorType = olEditorWord Then
                 Set objMail = objInspector.CurrentItem
                 Set objMailDocument = objMail.GetInspector.WordEditor
                 
                 'Find & replace specific text
                 With objMailDocument.Content.Find
                      .ClearFormatting
                      .Text = strFind
                      .Replacement.ClearFormatting
                      .Replacement.Text = strReplace
                      .Forward = True
                      .Wrap = wdFindContinue
                      .Format = False
                      .MatchCase = True
                      .MatchWholeWord = False
                      .Execute Replace:=wdReplaceAll
                End With
                objMail.Save
             End If
         End If
      Next

End Sub