title: NewInspector event works once only
body: <p>I have code in ThisOutlookSession module from <a href="https://stackoverflow.com/questions/44027860/run-a-macro-when-creating-new-appointment-in-outlook">run a macro when creating new appointment in outlook</a>:</p>
  
  <pre class="lang-vb prettyprint-override"><code>Private WithEvents appt As AppointmentItem
  Private WithEvents objinspectors As Outlook.Inspectors
  
  Private Sub Application_Startup()
      Set objinspectors = Application.Inspectors
  End Sub
  
  Private Sub objinspectors_NewInspector(ByVal Inspector As Inspector)
      If TypeName(Inspector.CurrentItem) = "AppointmentItem" Then
          Set appt = Inspector.CurrentItem
      End If
  End Sub
  
  Private Sub appt_Write(ByVal Item As Object, Cancel As Boolean)
      '---- ect
  end sub
  </code></pre>
  
  <p>appt_Write works for the first appointment I create or modify. If I create a second appointment nothing happens. </p>
  
  <p>I found the sub objinspectors_NewInspector does not start anymore.</p>
  
  <p>I have no <code>END</code> command in my code. To run the code again I have to launch Application_Startup.</p>
  
  <p>What should I do to make the macro work all time?</p>