Outlook商店事件永不觸發

Question

當我偵聽每個商店默認文件夾的Item_add事件時，它們從不觸發。這怎麼可能？

'doesnt work: 
    For Each st As Outlook.Store In Application.Session.Stores 
     AddHandler st.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail) 
     .Items.ItemAdd, AddressOf sentmail 
     AddHandler st.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail) _ 
     .Items.ItemAdd, Function() MsgBox(55) 
    Next 


'works 
AddHandler Application.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail) _ 
.Items.ItemAdd, AddressOf sentmail 

Answer 1

觸發事件（您的案例中的項目）的對象必須處於活動狀態才能觸發事件。 將Items對象存儲在全局（類）成員中，然後在該變量上設置事件處理程序。