Kako omejiti število e-poštnih sporočil, odprtih hkrati z Outlookom VBA

Če imate hkrati odprtih veliko e-poštnih sporočil, lahko to preobremeni Outlook, kar povzroči njegovo sesutje. Zato je priporočljivo, da omejite število e-poštnih sporočil, ki jih lahko odprete hkrati. Ta objava vas bo naučila, kako to doseči z Outlook VBA.

Outlook je nagnjen k zrušitvi, ko je preobremenjen, na primer ko se odpre preveč e-poštnih sporočil hkrati. Zato je bolje, da imate hkrati odprta le omejena e-poštna sporočila. Čeprav Outlook tega izvorno ne podpira, lahko to preprosto dosežete z naslednjimi sredstvi.

Omejite število e-poštnih sporočil, odprtih hkrati

1. Na samem začetku zaženite program Outlook.
2. Nato morate dostopati do urejevalnika VBA. Lahko se premaknete na zavihek »Razvijalec« in pritisnete gumb »Visual Basic«. Ali pa preprosto pritisnite tipki "Alt + F11" na glavnem zaslonu.
3. V naslednjem oknu »Microsoft Visual Basic for Applications« lahko poiščete in odprete projekt »ThisOutlookSession«.
4. Nato bi morali kopirati in prilepiti spodnjo kodo VBA v ta projekt 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. Po tem bi morali podpisati ta makro.

• V orodni vrstici pritisnite gumb »Orodja«.
• Nato na spustnem seznamu izberite možnost »Digitalni podpis«.
• V pojavnem pogovornem oknu sledite navodilom na zaslonu, da ga dokončate.

6. Pozneje lahko spremenite nastavitve makra, da omogočite digitalno podpisane makre.
7. Sčasoma lahko znova zaženete aplikacijo Outlook, da aktivirate makro.
8. Od zdaj naprej boste vsakič, ko nameravate odpreti šesto e-pošto, prejeli sporočilo, kot je posnetek zaslona:
9. Prav tako bo prejšnje e-poštno sporočilo samodejno zaprto.

Pridobite dragocene Outlookove podatke

Ni mogoče zanikati, da ima Outlook ogromno izjemnih funkcij. Vendar to ne pomeni, da je brezhibno. Še vedno se ne more izogniti poškodbam. Različni dejavniki lahko povzročijo pokvarjenost Outlooka. Zato, tako da obnoviti Outlook lažje podatke, morate redno varnostno kopirati datoteko PST. Prav tako je potrebno kakovostno orodje za popravilo, npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popraviti mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com