outlook store事件永远不会触发

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）必须处于激活状态才能触发事件。 将Items对象存储在全局（类）成员中，然后在该变量上设置事件处理程序。