Az egyidejűleg megnyitott e-mailek számának korlátozása az Outlook VBA segítségével

Ha egyszerre sok e-mailt tart nyitva, az túlterhelheti az Outlookot, ami az Outlook összeomlásához vezethet. Ezért javasolt az időközben megnyitott e-mailek számának korlátozása. Ez a bejegyzés megtanítja, hogyan valósíthatja meg ezt az Outlook VBA használatával.

Az Outlook hajlamos összeomlani, ha túlterhelődik, például ha túl sok e-mail nyílik meg egyszerre. Ezért jobb, ha egyszerre csak korlátozott számú e-mailt tart nyitva. Bár az Outlook ezt natívan nem támogatja, a következő eszközökkel könnyen elérheti.

Korlátozza az egyidejűleg megnyitott e-mailek számát

1. Legelőször indítsa el az Outlook programot.
2. Ezután el kell érnie a VBA-szerkesztőt. Léphet a „Fejlesztő” fülre, és nyomja meg a „Visual Basic” gombot. Vagy csak nyomja meg az „Alt + F11” billentyűket a főképernyőn.
3. A következő „Microsoft Visual Basic for Applications” ablakban megkeresheti és megnyithatja a „ThisOutlookSession” projektet.
4. Ezután másolja és illessze be az alábbi VBA-kódot ebbe a VBA-projektbe.

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. Ezt követően alá kell írnia ezt a makrót.

• Nyomja meg az „Eszközök” gombot az eszköztáron.
• Ezután válassza ki a „Digitális aláírás” lehetőséget a legördülő listából.
• A felugró párbeszédpanelen kövesse a képernyőn megjelenő utasításokat a befejezéshez.

6. Később módosíthatja a makróbeállításokat, hogy engedélyezze a digitálisan aláírt makrókat.
7. Végül újraindíthatja az Outlook alkalmazást a makró aktiválásához.
8. Mostantól minden alkalommal, amikor meg akarja nyitni a hatodik e-mailt, egy üzenetet fog kapni, például a képernyőképet:
9. Ezenkívül az előző e-mail automatikusan bezárul.

Értékes Outlook-adatok lekérése

Tagadhatatlan, hogy az Outlook számos figyelemre méltó funkcióval rendelkezik. De ez nem jelenti azt, hogy hibátlan. Még mindig nem kerülheti el a károkat. Különféle tényezők vezethetnek az Outlook korrupciójához. Ennélfogva úgy az Outlook helyreállítása könnyebben mentse a PST-fájlt rendszeres időközönként. Emellett egy jó minőségű javítószerszám is elengedhetetlen, pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com