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

Održavanje mnogo otvorenih e-poruka istovremeno može preopteretiti Outlook, što dovodi do njegovog pada. 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 rušenju kada je preopterećen, kao što je kada se istovremeno otvori previše e-poruka. Stoga je bolje da istovremeno držite otvorene samo ograničene poruke e-pošte. Iako Outlook ovo izvorno ne podržava, to možete lako postići na sljedeće načine.

Ograničite broj e-poruka otvorenih u isto vrijeme

1. Na samom početku pokrenite Outlook program.
2. Zatim morate pristupiti VBA editoru. Možete se prebaciti na karticu "Developer" i pritisnuti dugme "Visual Basic". Ili jednostavno pritisnite tipke “Alt + F11” na glavnom ekranu.
3. U narednom prozoru „Microsoft Visual Basic za aplikacije“ možete pronaći i otvoriti projekat „ThisOutlookSession“.
4. Zatim biste trebali kopirati i zalijepiti VBA kod ispod u ovaj VBA projekat.

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 ovaj makro.

• Pritisnite dugme "Alati" na traci sa alatkama.
• Zatim odaberite opciju “Digitalni potpis” sa padajuće liste.
• U iskačućem dijaloškom okviru, slijedite upute na ekranu da biste ga dovršili.

6. Kasnije možete promijeniti postavke makroa kako biste dozvolili digitalno potpisane makroe.
7. Na kraju možete ponovo pokrenuti Outlook aplikaciju da biste aktivirali makro.
8. Od sada, svaki put kada namjeravate otvoriti šesti mejl, dobijat ćete poruku, poput snimka ekrana:
9. Također, prethodni email će se automatski zatvoriti.

Dohvatite vrijedne Outlook podatke

Ne može se poreći da Outlook ima mnogo izvanrednih karakteristika. Ali, to ne znači da je besprekoran. I dalje se ne može izvući sa oštećenjem. Različiti faktori mogu dovesti do oštećenja Outlooka. Dakle, tako da oporaviti Outlook podataka lakše, trebali biste sigurnosno kopirati svoju PST datoteku u redovnim intervalima. Također, kvalitetan alat za popravku također je neophodan, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com