Kā ierobežot vienlaikus atvērto e-pasta ziņojumu skaitu ar Outlook VBA

Ja vienlaikus tiek atvērti daudzi atvērti e-pasta ziņojumi, programma Outlook var būt pārslogota, izraisot Outlook avāriju. Tādējādi tiek ieteikts ierobežot pa to laiku atvērto e-pastu skaitu. Šī post iemācīs, kā to realizēt, izmantojot Outlook VBA.

Programma Outlook ir pakļauta avārijai, kad tā tiek pārslogota, piemēram, ja vienlaikus tiek atvērts pārāk daudz e-pasta ziņojumu. Tādēļ labāk vienlaikus turēt atvērtus tikai ierobežotus e-pasta ziņojumus. Lai gan programma Outlook to neatbalsta dabiski, to var viegli sasniegt, izmantojot šādus līdzekļus.

Ierobežojiet tajā pašā laikā atvērto e-pastu skaitu

1. Jau pašā sākumā start savu Outlook programmu.
2. Tad jums ir jāpiekļūst VBA redaktoram. Varat pāriet uz cilni “Izstrādātājs” un nospiediet pogu “Visual Basic”. Vai vienkārši nospiediet taustiņus “Alt + F11” galvenajā ekrānā.
3. Nākamajā logā “Microsoft Visual Basic for Applications” varat atrast un atvērt projektu “ThisOutlookSession”.
4. Pēc tam jums vajadzētu nokopēt un ielīmēt zemāk esošo VBA kodu šajā VBA projektā.

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. Pēc tam jums vajadzētu parakstīt šo makro.

• Rīkjoslā nospiediet pogu “Rīki”.
• Pēc tam nolaižamajā sarakstā atlasiet opciju “Digitālais paraksts”.
• Uznirstošajā dialoglodziņā izpildiet ekrānā redzamos norādījumus, lai to pabeigtu.

6. Vēlāk jūs varat mainīt makro iestatījumus, lai atļautu digitāli parakstītus makro.
7. Galu galā jūs varat restar● savu Outlook lietojumprogrammu, lai aktivizētu makro.
8. Turpmāk katru reizi, kad plānojat atvērt sestos e-pasta ziņojumus, jūs saņemsit ziņojumu, piemēram, ekrānuzņēmumu:
9. Arī iepriekšējais e-pasts tiks automātiski aizvērts.

Iegūt vērtīgus Outlook datus

Nevar noliegt, ka programmā Outlook ir ievērojamu funkciju daudzums. Bet tas nenozīmē, ka tas ir nevainojams. Tas joprojām nevar atbrīvoties no bojājumiem. Outlook korupciju var izraisīt dažādi faktori. Līdz ar to tā atgūt Outlook vienkāršākus datus, regulāri dublējiet PST failu. Labas kvalitātes remonta rīks ir arī nepieciešamība, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar