異なるメールボックスのリスナー

Question

異なるメールボックスに電子メールを受信したときに関数のセットを呼び出すことを検討しています（abc@outlook.comにメールが届くとfunction1を実行し、def@outlook.comにファンクション2を実行すると、 私は以下のコードを1つのメールボックスに対して持っていますが、それを拡張して矛盾することなく別のメールボックスで聴く方法もわかりません。複数のメールボックスのリスナーを設定するにはどうすればよいですか？ 助けていただければ幸いです。

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