événement NewInspector fonctionne une seule fois

Question

je code dans ThisOutlookSession module à partir run a macro when creating new appointment in outlook:

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 

appt_Write travaille pour le premier rendez-vous, je créer ou modifier. Si je crée un second rendez-vous, rien ne se passe.

J'ai trouvé le sous objinspectors_NewInspector ne démarre plus. Je n'ai aucune commande END dans mon code. Pour réexécuter le code, je dois lancer Application_Startup.

Que dois-je faire pour que la macro fonctionne à tout moment?

Answer 1

réexécutez même code que Application_Startup() chaque fois par

Private Sub appt_Write(ByVal Item As Object, Cancel As Boolean) 
    '---- etc 

    Set objinspectors = Application.Inspectors 'add this line ... see what happens 
End Sub