NewInspector 이벤트는

Question

내가 run a macro when creating new appointment in outlook에서 ThisOutlookSession 모듈의 코드를 한 번 작동합니다

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 내가 만들거나 수정할 첫 번째 약속 작동합니다. 두 번째 약속을 만들면 아무 일도 일어나지 않습니다.

objinspectors_NewInspector 하위가 더 이상 시작하지 않는 것을 발견했습니다.

내 코드에 END 명령이 없습니다. 코드를 다시 실행하려면 Application_Startup을 시작해야합니다.

항상 매크로 작업을 수행하려면 어떻게해야합니까? Application_Startup로

Answer 1

다시 실행 동일한 코드()는 미래의 독자들에게 유용합니다 귀하의 답을 설명하기

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

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