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