Як обмежити кількість електронних листів, відкритих одночасно з Outlook VBA

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Одночасне відкриття багатьох електронних листів може призвести до перевантаження Outlook, що призведе до його збоїв. Тому рекомендується обмежити кількість електронних листів, які відкриваються одночасно. У цій статті ви дізнаєтесь, як це зробити за допомогою Outlook VBA.

Outlook схильний до збою, коли він перевантажується, наприклад, коли одночасно відкривається забагато електронних листів. Тому краще одночасно залишати лише обмежені електронні листи відкритими. Незважаючи на те, що Outlook цього не підтримує, ви можете легко досягти цього за допомогою наступних засобів.

Обмежте кількість електронних листів, відкритих одночасно з Outlook VBA

Обмежте кількість листів, що відкриваються одночасно

  1. На самому початку запустіть програму Outlook.
  2. Потім вам потрібно отримати доступ до редактора VBA. Ви можете перейти на вкладку "Розробник" і натиснути кнопку "Visual Basic". Або просто натисніть клавіші “Alt + F11” на головному екрані.
  3. У наступному вікні “Microsoft Visual Basic for Applications” ви зможете знайти та відкрити проект “ThisOutlookSession”.
  4. Далі слід скопіювати та вставити код VBA нижче в цей проект 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

Код VBA - обмежте кількість електронних листів, відкритих одночасно

  1. Після цього слід підписати цей макрос.
  • Натисніть кнопку «Інструменти» на панелі інструментів.
  • Далі виберіть із розкривного списку опцію «Цифровий підпис».
  • У діалоговому вікні, що з’явиться, дотримуйтесь інструкцій на екрані, щоб заповнити його.
  1. Пізніше ви можете змінити налаштування макросів, щоб дозволити макроси з цифровим підписом.
  2. Зрештою, ви можете перезапустити програму Outlook, щоб активувати макрос.
  3. Відтепер кожного разу, коли ви маєте намір відкрити шостий електронний лист, ви отримуватимете повідомлення, наприклад, скріншот:попередження
  4. Також попередній електронний лист буде закрито автоматично.

Отримати цінні дані Outlook

Не можна заперечувати, що Outlook має безліч чудових особливостей. Але це не означає, що він бездоганний. Він все ще не може уникнути збитків. Різні фактори можуть призвести до корупції в Outlook. Отже, так відновити Outlook - - даних легше, слід регулярно створювати резервні копії файлів PST. Крім того, якісний інструмент для ремонту також є питанням необхідності, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправити mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.