不同邮箱上的听众

Question

当我收到不同邮箱的邮件时（如果邮件到达abc@outlook.com执行function1，如果邮件到达def@outlook.com执行功能2），我正在调用一组函数。 我有一个邮箱下面的代码，但我不确定如何扩展它以侦听另一个邮箱没有冲突。我如何设置多个邮箱的监听器？ 任何帮助表示赞赏。谢谢

Private WithEvents Items As Outlook.Items 

Private Sub Application_Startup() 
    Dim olApp As Outlook.Application 
    Dim objNS As Outlook.NameSpace 
    Set olApp = Outlook.Application 
    Set objNS = olApp.GetNamespace("MAPI") 
    ' default local Inbox 
    Set Items = objNS.GetDefaultFolder(olFolderInbox).Items 
End Sub 

Private Sub Items_ItemAdd(ByVal item As Object) 
'do Stuff to mailitem 
End Sub 

Answer 1

只需要添加另外WithEvent观看其他文件夹：

Private WithEvents Items As Outlook.Items 
Private WithEvents Items1 As Outlook.Items 

Private Sub Application_Startup() 
    Dim olApp As Outlook.Application 
    Dim objNS As Outlook.NameSpace 
    Set olApp = Outlook.Application 
    Set objNS = olApp.GetNamespace("MAPI") 
    ' default local Inbox 
    Set Items = objNS.GetDefaultFolder(olFolderInbox).Items 
    Set Items1 = objNS.Folders.Item("def@outlook.com").Folders.Item("Inbox").Folders.Item("ASubFolder").Items 
End Sub 

Private Sub Items_ItemAdd(ByVal Item As Object) 
'do Stuff to mailitem 
End Sub 

Private Sub Items1_ItemAdd(ByVal Item As Object) 
    'do stuff. 
End Sub