关于用类模块实现触发某一文件夹下所有子文件夹的ItemAdd事件

Bruce_xu

最近接触到类模块，觉得应该可以用来在outlook中实现不少功能，由于平时有整理邮件的习惯，在收件箱下建了很多子文件夹，希望在整理邮件时,从收件箱移过来的邮件可以自动转移到该文件夹对应的本地文件夹。现在已经可以实现针对某一具体的子文件夹，但是不知道如何针对所有子文件夹写类模块。
先放上已成功实现的单个文件夹的代码如下，希望各位高手帮忙看一下怎么实现多文件夹的情况。

类模块(clsSynEvent)：

1. <p>Option Explicit
   
2. Dim WithEvents myOlItems As Outlook.Items
   
3. Private Sub Class_Initialize()
   
4.   Set oApp = Outlook.Application
   
5.   Set oNS = oApp.GetNamespace("MAPI")
   
6.   Set conFolder = oNS.GetDefaultFolder(olFolderInbox).Folders("Syn").Folders("具体文件夹1")　</p><p>  Set myOlItems = conFolder.Items
   
7. End Sub
   
8. </p>

复制代码

普通模块如下：

1. Option Explicit
   
2. Private oEvent As clsSynEvent
   
3. Public oApp As Outlook.Application
   
4. Public oNS As Outlook.NameSpace
   
5. Public conFolder As Outlook.MAPIFolder
   
6. Private Sub SetFolder()
   
7.    Set oEvent = New clsSynEvent
   
8. End Sub
   
9. Private Sub Terminate()
   
10.   Set oEvent = Nothing
    
11. End Sub

复制代码