Kako ograničiti broj e-poruka otvorenih u isto vrijeme uz Outlook VBA

Istodobno otvaranje mnogo e-poruka može preopteretiti Outlook, što dovodi do njegovog rušenja. Stoga se preporučuje ograničavanje broja otvorenih e-poruka u međuvremenu. Ovaj članak će vas naučiti kako to postići pomoću Outlook VBA.

Outlook je sklon padu kada se preoptereti, primjerice kada se otvori previše e-poruka u isto vrijeme. Stoga bi bilo bolje da istovremeno držite otvoren samo ograničeni broj poruka e-pošte. Iako Outlook to izvorno ne podržava, to možete lako postići na sljedeći način.

Ograničite broj e-poruka otvorenih u isto vrijeme

1. Na samom početku pokrenite Outlook.
2. Zatim morate pristupiti VBA editoru. Možete prijeći na karticu "Developer" i pritisnuti gumb "Visual Basic". Ili samo pritisnite tipke "Alt + F11" na glavnom zaslonu.
3. U sljedećem prozoru "Microsoft Visual Basic za aplikacije" možete locirati i otvoriti projekt "ThisOutlookSession".
4. Zatim biste trebali kopirati i zalijepiti donji VBA kod u ovaj 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. Nakon toga, trebali biste potpisati ovu makronaredbu.

• Pritisnite gumb "Alati" na alatnoj traci.
• Zatim odaberite opciju "Digitalni potpis" s padajućeg popisa.
• U skočnom dijaloškom okviru slijedite upute na zaslonu da biste to dovršili.

6. Kasnije možete promijeniti postavke makronaredbe kako biste omogućili digitalno potpisane makronaredbe.
7. Na kraju možete ponovno pokrenuti Outlook aplikaciju da biste aktivirali makro.
8. Od sada, svaki put kada namjeravate otvoriti šesti e-mail, dobit ćete poruku, poput slike zaslona:
9. Također, prethodni email će se automatski zatvoriti.

Dohvatite vrijedne Outlook podatke

Ne može se poreći da Outlook ima mnoštvo izvanrednih značajki. No, to ne znači da je besprijekoran. I dalje se ne može izvući s oštećenjem. Razni čimbenici mogu dovesti do oštećenja Outlooka. Stoga, kako bi oporaviti Outlook lakše podatke, trebali biste sigurnosno kopirati svoju PST datoteku u redovitim intervalima. Također, kvalitetan alat za popravak također je nužan, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com