Vb.net outlook存储事件从不触发

当我监听每个存储默认文件夹的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

---

触发事件的对象（案例中的项目）必须是激活的，才能触发事件。 将Items对象存储在全局（类）成员中，然后在该变量上设置事件处理程序