Hoe het aantal e-mails dat tegelijkertijd wordt geopend met Outlook VBA te beperken

Het tegelijkertijd openen van veel e-mails kan Outlook overbelasten en tot een crash leiden. Daarom is het raadzaam om het aantal geopende e-mails te beperken. In dit artikel leggen we uit hoe u dit met Outlook VBA kunt doen.

Outlook kan crashen wanneer het overbelast raakt, bijvoorbeeld wanneer er te veel e-mails tegelijk worden geopend. Daarom is het beter om slechts een beperkt aantal e-mails tegelijk open te houden. Hoewel Outlook dit niet standaard ondersteunt, kunt u dit eenvoudig op de volgende manieren bereiken.

Beperk het aantal e-mails dat tegelijkertijd wordt geopend

1. Start allereerst uw Outlook-programma.
2. Vervolgens moet u de VBA-editor openen. U kunt naar het tabblad "Ontwikkelaar" gaan en op de knop "Visual Basic" klikken. Of druk gewoon op de toetsen "Alt + F11" in het hoofdscherm.
3. In het volgende venster "Microsoft Visual Basic for Applications" kunt u het project "ThisOutlookSession" zoeken en openen.
4. Vervolgens moet u de onderstaande VBA-code kopiëren en in dit VBA-project plakken.

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. Daarna moet u deze macro ondertekenen.

• Klik op de knop "Extra" in de werkbalk.
• Selecteer vervolgens de optie "Digitale handtekening" in de vervolgkeuzelijst.
• Volg in het pop-upvenster de instructies op het scherm om het te voltooien.

6. Later kunt u de macro-instellingen wijzigen om de digitaal ondertekende macro's toe te staan.
7. Uiteindelijk kunt u uw Outlook-applicatie opnieuw opstarten om de macro te activeren.
8. Vanaf nu krijg je elke keer dat je van plan bent om de zesde e-mail te openen een bericht, zoals de screenshot:
9. Ook wordt de vorige e-mail automatisch gesloten.

Haal waardevolle Outlook-gegevens op

Het valt niet te ontkennen dat Outlook een groot aantal opmerkelijke functies heeft. Maar het betekent niet dat het foutloos is. Het kan nog steeds niet wegkomen met schade. Verschillende factoren kunnen leiden tot corruptie van Outlook. Vandaar dat zo Outlook herstellen gegevens eenvoudiger, moet u regelmatig een back-up van uw PST-bestand maken. Ook een kwalitatief goede reparatietool is ook een noodzaak, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf repareren en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com