Auditeurs sur différentes boîtes aux lettres

Question

Je cherche à appeler un ensemble de fonctions lorsque je reçois des e-mails dans différentes boîtes aux lettres (si un mail arrive à abc@outlook.com, effect1 fonction1, si un mail arrive à def@outlook.com effectuez function2) J'ai le code ci-dessous pour une boîte aux lettres mais je ne suis pas sûr de savoir comment l'étendre pour écouter également sur une autre boîte aux lettres sans conflit. Comment puis-je configurer les écouteurs pour plusieurs boîtes aux lettres? Toute aide appréciée. Merci

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

d'ajouter une autre withEvent à regarder l'autre dossier:

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