Shared MailBox & 2 macros

Bonjour,

J'ai une macro Outlook qui s’exécute en permanence afin de vérifier la réception de mails (différents traitements réagissent en suivant).

Private Sub Application_Startup()

    Dim olApp As Outlook.Application
    Dim Comptes_messagerie()
    Dim Dossier As Outlook.MAPIFolder
    
    'définition application
    Set olApp = Outlook.Application
    'définition compte de messagerie
    Comptes_messagerie = Array("BOITEMAILPARTAGEE@mail.com")
    'sélection dossiers Outlook a analyser
    For Each Dossier In olApp.GetNamespace("MAPI").Folders
        If UBound(Filter(Comptes_messagerie, Dossier.Name)) > -1 Then
            'assignation évènements de la boîte de réception du Compte de messagerie
            Set myOlItems = Dossier.Folders("09 - Folder1").Items
        End If
    Next Dossier
End Sub

Néanmoins, j'ai également une deuxième macro qui doit tourner et cela sur le même poste et sur un autre dossier de cette boîte mail partagé.

Private Sub Application_Startup()

    Dim olApp1 As Outlook.Application
    Dim Comptes_messagerie1()
    Dim Dossier1 As Outlook.MAPIFolder
    
    'définition application
    Set olApp1 = Outlook.Application
    'définition Comptes de messagerie
    Comptes_messagerie1 = Array("BOITEMAILPARTAGEE@mail.com")
    'balayage Dossiers Outlook
    For Each Dossier1 In olApp.GetNamespace("MAPI").Folders
        If UBound(Filter(Comptes_messagerie1, Dossier1.Name)) > -1 Then
            'assignation évenements de la boîte de réception du Compte de messagerie
            Set myOlItems1 = Dossier1.Folders("10 - Folder2").Items
        End If
    Next Dossier1

End Sub

Ma question est la suivante, lorsque je compile ces deux macros afin d'avoir une analyse des mails reçu sur la boîte partagée, cela ne fonctionne pas :

Private Sub Application_Startup()

    Dim olApp As Outlook.Application
    Dim Comptes_messagerie()
    Dim Dossier As Outlook.MAPIFolder
    
    'définition application
    Set olApp = Outlook.Application
    'définition compte de messagerie
    Comptes_messagerie = Array("BOITEMAILPARTAGEE@mail.com")
    'sélection dossiers Outlook a analyser
    For Each Dossier In olApp.GetNamespace("MAPI").Folders
        If UBound(Filter(Comptes_messagerie, Dossier.Name)) > -1 Then
            'assignation évènements de la boîte de réception du Compte de messagerie
            Set myOlItems = Dossier.Folders("09 - Folder1").Items
        End If
    Next Dossier
    

    Dim olApp1 As Outlook.Application
    Dim Comptes_messagerie1()
    Dim Dossier1 As Outlook.MAPIFolder
    
    'définition application
    Set olApp1 = Outlook.Application
    'définition Comptes de messagerie
    Comptes_messagerie1 = Array("BOITEMAILPARTAGEE@mail.com")
    'balayage Dossiers Outlook
    For Each Dossier1 In olApp.GetNamespace("MAPI").Folders
        If UBound(Filter(Comptes_messagerie1, Dossier1.Name)) > -1 Then
            'assignation évenements de la boîte de réception du Compte de messagerie
            Set myOlItems1 = Dossier1.Folders("10 - Folder2").Items
        End If
    Next Dossier1

End Sub

Le problème semble venir de "myOlItems", lors que je rajoute un 1 permettant de faire la différence entre les deux parties de la macro, cela ne comprend pas la variable. Et lorsque je laisse "myOlItems" normal, cela remplace la précédente (normal)...

Comment faire pour contourner cela ?


Cordialement,
Florian