Ako obmedziť počet e-mailov otvorených súčasne s aplikáciou Outlook VBA

Riešenia pre Outlook September 29, 2025

Ak ponecháte otvorených veľa e-mailov súčasne, môže dôjsť k preťaženiu programu Outlook, čo vedie k zlyhaniu programu Outlook. Preto sa odporúča obmedziť počet e-mailov otvorených medzitým. Toto post vás naučí, ako to realizovať pomocou Outlooku VBA.

Outlook je náchylný na zlyhanie, keď sa preťaží, napríklad keď sa otvorí príliš veľa e-mailov súčasne. Preto by ste si mali nechať otvorené naraz iba obmedzený počet e-mailov. Hoci to Outlook natívne nepodporuje, môžete to ľahko dosiahnuť pomocou nasledujúcich prostriedkov.

Obmedzte počet súčasne otvorených e-mailov pomocou programu Outlook VBA

Obmedzte počet e-mailov otvorených v rovnakom čase

  1. Hneď na úvod starváš program Outlook.
  2. Potom musíte vstúpiť do editora VBA. Môžete prejsť na kartu „Vývojár“ a stlačiť tlačidlo „Visual Basic“. Alebo jednoducho stlačte klávesy „Alt + F11“ na hlavnej obrazovke.
  3. V nasledujúcom okne „Microsoft Visual Basic for Applications“ môžete nájsť a otvoriť projekt „ThisOutlookSession“.
  4. Ďalej by ste mali skopírovať a vložiť kód VBA nižšie do tohto projektu 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

Kód VBA - Obmedzte počet e-mailov otvorených súčasne

  1. Potom by ste mali toto makro podpísať.
  • Na paneli nástrojov stlačte tlačidlo „Nástroje“.
  • Potom z rozbaľovacieho zoznamu vyberte možnosť „Digitálny podpis“.
  • V rozbaľovacom dialógovom okne ho dokončite podľa pokynov na obrazovke.
  1. Neskôr môžete zmeniť nastavenia makier a povoliť tak digitálne podpísané makrá.
  2. Nakoniec môžete restarsvoju aplikáciu Outlook aktivovať makro.
  3. Odteraz vždy, keď máte v úmysle otvoriť šiesty e-mail, dostanete správu, ako je snímka obrazovky:Výstraha
  4. Tiež predchádzajúci e-mail sa automaticky uzavrie.

Načítajte cenné údaje programu Outlook

Nedá sa poprieť, že Outlook má množstvo pozoruhodných funkcií. To však neznamená, že je bezchybný. Stále nemôže uniknúť poškodeniu. Rôzne faktory môžu viesť k poškodeniu programu Outlook. Preto, aby obnoviť Outlook údaje, mali by ste svoj súbor PST zálohovať v pravidelných intervaloch. Nevyhnutnosťou je tiež kvalitný opravárenský nástroj, napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Komentáre sú uzavreté.