Как да ограничите броя имейли, отворени едновременно с Outlook VBA

Поддържането на много имейли отворени едновременно може да претовари Outlook, което да доведе до срив на Outlook. Поради това се препоръчва да ограничите броя на имейлите, които се отварят едновременно. Тази публикация ще ви научи как да го направите с Outlook VBA.

Outlook е склонен да се срине, когато се претовари, например когато се отворят твърде много имейли едновременно. Затова е по-добре да държите само отворени имейли отворени наведнъж. Въпреки че Outlook не поддържа това първоначално, можете лесно да го постигнете чрез следните средства.

Ограничете броя на имейлите, отворени по едно и също време

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

5. След това трябва да подпишете този макрос.

• Натиснете бутона „Инструменти“ в лентата с инструменти.
• След това изберете опцията „Цифров подпис“ от падащия списък.
• В изскачащия диалогов прозорец следвайте инструкциите на екрана, за да го завършите.

6. По-късно можете да промените настройките на макросите, за да разрешите цифрово подписаните макроси.
7. В крайна сметка можете да рестартирате приложението Outlook, за да активирате макроса.
8. Отсега нататък всеки път, когато възнамерявате да отворите шестите имейли, ще получавате съобщение, като екранната снимка:
9. Също така, предишният имейл ще бъде затворен автоматично.

Изтеглете ценни данни на Outlook

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

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправям mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com