Comment limiter le nombre d'e-mails ouverts en même temps avec Outlook VBA

Garder de nombreux e-mails ouverts simultanément peut surcharger Outlook et entraîner son plantage. Il est donc conseillé de limiter le nombre d'e-mails ouverts en même temps. Cet article vous explique comment y parvenir grâce à Outlook VBA.

Outlook est susceptible de planter lorsqu'il est surchargé, par exemple lorsque trop d'e-mails s'ouvrent en même temps. Par conséquent, vous feriez mieux de ne garder ouverts qu'un nombre limité d'e-mails à la fois. Bien qu'Outlook ne le prenne pas en charge de manière native, vous pouvez facilement y parvenir par les moyens suivants.

Limitez le nombre d'e-mails ouverts en même temps

1. Dès le départ, lancez votre programme Outlook.
2. Ensuite, vous devez accéder à l'éditeur VBA. Vous pouvez passer à l'onglet "Développeur" et appuyer sur le bouton "Visual Basic". Ou appuyez simplement sur les touches "Alt + F11" dans l'écran principal.
3. Dans la fenêtre "Microsoft Visual Basic pour Applications" suivante, vous pouvez localiser et ouvrir le projet "ThisOutlookSession".
4. Ensuite, vous devez copier et coller le code VBA ci-dessous dans ce projet VBA.

Public WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal objNewInspector As Inspector)
    Dim objInspector As Outlook.Inspector
    Dim i As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    i = 0
    If objNewInspector.CurrentItem.Class = olMail Then
 
       If objInspectors.count > 5 Then
          For Each objInspector In objInspectors
              If objInspector.CurrentItem.Class = olMail Then
                 i = i + 1
              End If
          Next
 
          If i > 5 Then
             strMsg = "You're allowed to open 5 emails at the same time. The previous email is closed!"
 
             MsgBox strMsg, vbExclamation + vbOKOnly
 
             ActiveInspector.CurrentItem.Close olSave
          End If
 
      End If
    End If
End Sub

5. Après cela, vous devez signer cette macro.

• Appuyez sur le bouton "Outils" dans la barre d'outils.
• Sélectionnez ensuite l'option "Signature numérique" dans la liste déroulante.
• Dans la boîte de dialogue contextuelle, suivez les instructions à l'écran pour la terminer.

6. Plus tard, vous pouvez modifier les paramètres de macro pour autoriser les macros signées numériquement.
7. Enfin, vous pouvez redémarrer votre application Outlook pour activer la macro.
8. A partir de maintenant, chaque fois que vous avez l'intention d'ouvrir le sixième e-mail, vous recevrez un message, comme la capture d'écran :
9. De plus, l'e-mail précédent sera fermé automatiquement.

Récupérer de précieuses données Outlook

Il est indéniable qu'Outlook possède des quantités de fonctionnalités remarquables. Mais cela ne veut pas dire qu'il est impeccable. Il ne peut toujours pas s'en tirer avec des dégâts. Divers facteurs peuvent entraîner la corruption d'Outlook. Dès lors, afin de récupérer Outlook données plus faciles, vous devez sauvegarder votre fichier PST à intervalles réguliers. En outre, un outil de réparation de bonne qualité est également une question de nécessité, comme DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris fixer mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com