title: What VBA method could Outlook trigger as mail is composed or replied?
body: <h3>What I'd need guidance specifically:</h3>
  <p>To have <strong>an indication of a native VBA method available on a new mail compose that would be triggered at any written word / phrase (or as often as possible)</strong>, or a guidance on how to create an observable of a dynamic form property.</p>
  <h3>Purpose:</h3>
  <p>One Outlook functionality that could be interesting to have is to know its readability values as the mail is composed. I know they can be obtained by doing the spell checker, but I'd like to avoid the burden of doing the spellcheck to get the result - I'd like to see numbers going up and down <em>as the mail is written</em>.</p>
  <h3>Problem:</h3>
  <p>I kind of created the function I'd need but I failed to find a <em>method that could trigger it at every word written</em>. I'd assume it'd be something like <code>WordEditor_Change</code>, <code>HTMLBody_Change</code> or something alike. It'd be similar to the <code>Worksheet_Change</code> we have in Excel, where values can be obtained as the Excel sheet is edited.</p>
  <p>I tried to set an observable of <code>WordEditor.words.count</code> but also failed miserably.</p>
  <h3>What I have so far:</h3>
  <pre><code>WithEvents myMail As Outlook.MailItem
  
  Private Sub Application_ItemLoad(ByVal Item As Object)
      
      Set myMail = Item
      
  End Sub
  
  Sub checkStatistics()
      
      Dim objInsp As Outlook.Inspector
  
      Set objInsp = myMail.GetInspector
      
      'Enum Outlook: https://msdn.microsoft.com/es-es/VBA/Outlook-VBA/articles/olobjectclass-enumeration-outlook
      If objInsp.EditorType = olEditorWord Then ' outlook 2013
          
          'Doc obj: https://msdn.microsoft.com/en-us/vba/word-vba/articles/document-object-word
          Set objdoc = objInsp.WordEditor
           
          Dim var As ClassHandlesEvent
          Dim tst As classWithEvent
          
          Set var = New ClassHandlesEvent
          Set tst = New classWithEvent
          var.EventVariable = tst
          tst.value = objdoc.Words.Count
           
           MsgBox objdoc.ReadabilityStatistics(9) &amp; &quot;: &quot; &amp; objdoc.ReadabilityStatistics(9).value &amp; vbCrLf &amp; &quot;(Ideal values above 60)&quot;
           MsgBox objdoc.ReadabilityStatistics(8) &amp; &quot;: &quot; &amp; objdoc.ReadabilityStatistics(8).value &amp; vbCrLf &amp; &quot;(Ideal values above 60)&quot;
           
      End If
  
      Set objdoc = Nothing
      Set objInsp = Nothing
      
  End Sub
  </code></pre>