Как ограничить количество писем, открытых одновременно с Outlook VBA

Перспективные решения 29 сентября, 2025
Поделись сейчас:

Одновременное открытие большого количества электронных писем может привести к перегрузке Outlook, что приведет к сбою Outlook. Таким образом, предлагается ограничить количество открываемых электронных писем. Это рost научит вас, как реализовать это с помощью Outlook VBA.

Outlook подвержен сбою, когда он перегружен, например, когда слишком много писем открыто одновременно. Поэтому вам лучше держать открытыми только ограниченное количество электронных писем одновременно. Хотя Outlook изначально не поддерживает это, вы можете легко добиться этого с помощью следующих средств.

Ограничьте количество писем, открытых одновременно с Outlook VBA

Ограничьте количество писем, открытых одновременно

  1. В самом начале сtarв вашей программе Outlook.
  2. Затем вам нужно получить доступ к редактору VBA. Вы можете перейти на вкладку «Разработчик» и нажать кнопку «Visual Basic». Или просто нажмите клавиши «Alt + F11» на главном экране.
  3. В последующем окне «Microsoft Visual Basic для приложений» вы можете найти и открыть проект «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. В конце концов, вы можетеtart ваше приложение Outlook, чтобы активировать макрос.
  3. Отныне каждый раз, когда вы собираетесь открыть шестое электронное письмо, вы будете получать сообщение, подобное скриншоту:Предупреждение
  4. Кроме того, предыдущее письмо будет автоматически закрыто.

Получить ценные данные Outlook

Нельзя отрицать, что Outlook обладает множеством замечательных функций. Но это не значит, что он безупречен. Он все еще не может уйти от повреждений. Различные факторы могут привести к повреждению Outlook. Следовательно, чтобы восстановить Outlook данные проще, вы должны регулярно создавать резервные копии вашего PST-файла. Также необходим качественный ремонтный инструмент, например DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая починить мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

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