Cum să limitați numărul de e-mailuri deschise în același timp cu Outlook VBA

Menținerea mai multor e-mailuri deschise în același timp poate supraîncărca Outlook, ducând la blocarea acestuia. Prin urmare, este recomandat să limitați numărul de e-mailuri deschise între timp. Această postare vă va învăța cum să realizați acest lucru cu Outlook VBA.

Outlook este predispus să se blocheze atunci când este supraîncărcat, cum ar fi atunci când se deschid prea multe e-mailuri în același timp. Prin urmare, ar fi bine să păstrați deschise doar e-mailuri limitate la un moment dat. Deși Outlook nu acceptă acest lucru în mod nativ, îl puteți realiza cu ușurință prin următoarele mijloace.

Limitați numărul de e-mailuri deschise în același timp

1. Chiar de la început, porniți programul Outlook.
2. Apoi trebuie să accesați editorul VBA. Puteți trece la fila „Dezvoltator” și apăsați butonul „Visual Basic”. Sau doar apăsați tastele „Alt + F11” în ecranul principal.
3. În fereastra ulterioară „Microsoft Visual Basic for Applications”, puteți găsi și deschide proiectul „ThisOutlookSession”.
4. Apoi, ar trebui să copiați și să lipiți codul VBA de mai jos în acest proiect 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. După aceea, ar trebui să semnați această macrocomandă.

• Apăsați butonul „Instrumente” din bara de instrumente.
• Apoi selectați opțiunea „Semnătură digitală” din lista verticală.
• În caseta de dialog pop-up, urmați instrucțiunile de pe ecran pentru a o finaliza.

6. Mai târziu, puteți modifica setările macro pentru a permite macrocomenzile semnate digital.
7. În cele din urmă, puteți reporni aplicația Outlook pentru a activa macrocomanda.
8. De acum înainte, de fiecare dată când intenționați să deschideți al șaselea e-mail, veți primi un mesaj, precum captura de ecran:
9. De asemenea, e-mailul anterior va fi închis automat.

Preluați date valoroase din Outlook

Nu se poate nega că Outlook are o mulțime de caracteristici remarcabile. Dar, asta nu înseamnă că este impecabil. Încă nu poate scăpa de daune. Diferiți factori pot duce la corupția Outlook. Prin urmare, astfel încât să recuperați Outlook date mai ușor, ar trebui să faceți copii de rezervă ale fișierului PST la intervale regulate. De asemenea, un instrument de reparare de bună calitate este, de asemenea, o chestiune de necesitate, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com