Jak omezit počet e-mailů otevřených současně s aplikací Outlook VBA

Udržování mnoha e-mailů otevřených současně může způsobit přetížení vašeho Outlooku, což může vést k jeho zhroucení. Proto se doporučuje omezit počet e-mailů otevřených mezitím. Tato post vás naučí, jak to realizovat s aplikací Outlook VBA.

Outlook je náchylný k selhání, když je přetížen, například když se otevírá příliš mnoho e-mailů současně. Proto byste měli mít otevřený pouze omezený počet e-mailů najednou. Přestože Outlook toto nativně nepodporuje, můžete toho snadno dosáhnout pomocí následujících prostředků.

Omezte počet e-mailů otevřených současně

1. Hned na začátku, start vašeho programu Outlook.
2. Poté musíte vstoupit do editoru VBA. Můžete přejít na kartu „Vývojář“ a stisknout tlačítko „Visual Basic“. Nebo stačí stisknout klávesy „Alt + F11“ na hlavní obrazovce.
3. V následujícím okně „Microsoft Visual Basic for Applications“ můžete najít a otevřít projekt „ThisOutlookSession“.
4. Dále byste měli zkopírovat a vložit kód VBA níže do tohoto 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

5. Poté byste měli toto makro podepsat.

• Na panelu nástrojů stiskněte tlačítko „Nástroje“.
• Dále vyberte z rozevíracího seznamu možnost „Digitální podpis“.
• Ve vyskakovacím dialogovém okně jej dokončete podle pokynů na obrazovce.

6. Později můžete změnit nastavení maker a povolit digitálně podepsaná makra.
7. Nakonec můžete restarAktivujte makro pomocí aplikace Outlook.
8. Od této chvíle pokaždé, když budete chtít otevřít šestý e-mail, dostanete zprávu, jako je snímek obrazovky:
9. Také předchozí e-mail bude automaticky uzavřen.

Načíst cenná data aplikace Outlook

Nelze popřít, že Outlook má množství pozoruhodných funkcí. To však neznamená, že je bezchybný. Stále nemůže uniknout poškození. Různé faktory mohou vést k poškození aplikace Outlook. Proto, aby obnovit Outlook data, měli byste soubor PST zálohovat v pravidelných intervalech. Nezbytností je také kvalitní opravárenský nástroj, jako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com