So begrenzen Sie die Anzahl der gleichzeitig mit Outlook VBA geöffneten E-Mails

Wenn Sie viele E-Mails gleichzeitig geöffnet haben, kann Outlook überlastet werden und abstürzen. Daher empfiehlt es sich, die Anzahl der gleichzeitig geöffneten E-Mails zu begrenzen. Dieser Beitrag zeigt Ihnen, wie Sie dies mit Outlook VBA umsetzen können.

Outlook kann abstürzen, wenn es überlastet wird, z. B. wenn zu viele E-Mails gleichzeitig geöffnet sind. Daher sollten Sie nur begrenzte E-Mails gleichzeitig geöffnet lassen. Obwohl Outlook dies nicht nativ unterstützt, können Sie es auf folgende Weise problemlos erreichen.

Begrenzen Sie die Anzahl der gleichzeitig geöffneten E-Mails

1. Starten Sie als Erstes Ihr Outlook-Programm.
2. Dann müssen Sie auf den VBA-Editor zugreifen. Sie können zur Registerkarte "Entwickler" wechseln und auf die Schaltfläche "Visual Basic" klicken. Oder drücken Sie einfach die Tasten „Alt + F11“ im Hauptbildschirm.
3. Im nachfolgenden Fenster "Microsoft Visual Basic für Applikationen" können Sie das Projekt "ThisOutlookSession" suchen und öffnen.
4. Als nächstes sollten Sie den folgenden VBA-Code kopieren und in dieses VBA-Projekt einfügen.

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. Danach sollten Sie dieses Makro signieren.

• Klicken Sie in der Symbolleiste auf die Schaltfläche "Extras".
• Wählen Sie anschließend die Option „Digitale Signatur“ aus der Dropdown-Liste.
• Befolgen Sie im Popup-Dialogfeld die Anweisungen auf dem Bildschirm, um den Vorgang abzuschließen.

6. Später können Sie die Makroeinstellungen ändern, um die digital signierten Makros zuzulassen.
7. Schließlich können Sie Ihre Outlook-Anwendung neu starten, um das Makro zu aktivieren.
8. Von nun an erhalten Sie jedes Mal, wenn Sie die sechsten E-Mails öffnen möchten, eine Nachricht wie den Screenshot:
9. Außerdem wird die vorherige E-Mail automatisch geschlossen.

Wertvolle Outlook-Daten abrufen

Es ist nicht zu leugnen, dass Outlook eine Menge bemerkenswerter Funktionen bietet. Das heißt aber nicht, dass es einwandfrei ist. Es kann immer noch nicht mit Schaden davonkommen. Verschiedene Faktoren können zur Beschädigung von Outlook führen. Daher, um Outlook wiederherstellen Daten einfacher, sollten Sie Ihre PST-Datei in regelmäßigen Abständen sichern. Auch ein qualitativ hochwertiges Reparaturwerkzeug ist eine Notwendigkeit, wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX