如何将 ItemAdd 事件应用到自定义文件夹？展望 2010 VBA

Question

我正在尝试使用 ItemAdd 事件方法来监视新项目何时添加到收件箱下的子文件夹中。

我的目录结构是这样的：

- Inbox 
- - subfolder

我想在将新电子邮件添加到子文件夹时运行代码（原因是我使用将某些电子邮件重定向到此子文件夹的规则）。

目前我正在使用以下方式监控我的收件箱：

Private Sub Application_Startup()
   Set olInboxItems = Session.GetDefaultFolder(olFolderInbox).items
End Sub

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
/* Code here */ 
End Sub 

但是当我尝试对子文件夹执行此操作时

Set subfolderItems = Session.GetDefaultFolder(olFolderInbox).Folders("subfolder").items 
Private Sub subfolderItems_ItemAdd(ByVal Item As Object) 

这不起作用。为什么？添加新电子邮件时如何捕获？

Answer 1

既然你没有提到

Private WithEvents olInboxItems As Items

你可能忘记了

Private WithEvents subfolderItems As Items

Answer 2

确保在全局级别声明 subfolderItems 变量，以确保它保持活动状态。