如何将 ItemAdd 事件应用到子文件夹

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 变量，以确保它保持活动状态。