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

Question

这个问题已经有答案了:

How do I trigger a macro to run after a new mail is received in Outlook? (2 个回答)

已关闭 7 年前。

我正在尝试使用 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