vb.net - 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 对象存储在全局（类）成员中，然后在该变量上设置事件处理程序。