Si të kufizoni numrin e emaileve të hapura në të njëjtën kohë me Outlook VBA

Mbajtja e shumë email-eve të hapura në të njëjtën kohë mund ta mbingarkojë Outlook-un tuaj, duke çuar në bllokim të Outlook-ut. Prandaj, sugjerohet të kufizoni numrin e email-eve të hapura ndërkohë. Ky postim do t'ju mësojë se si ta realizoni këtë me Outlook VBA.

Outlook është i prirur të rrëzohet kur mbingarkohet, si për shembull kur hapen shumë emaile në të njëjtën kohë. Prandaj, është më mirë të mbani të hapura vetëm emaile të kufizuara në të njëjtën kohë. Megjithëse Outlook nuk e mbështet këtë në mënyrë origjinale, mund ta arrini lehtësisht me mjetet e mëposhtme.

Kufizoni numrin e emaileve të hapura në të njëjtën kohë

1. Që në fillim, nisni programin tuaj Outlook.
2. Pastaj ju duhet të hyni në redaktorin VBA. Mund të kaloni në skedën "Zhvilluesi" dhe të shtypni butonin "Visual Basic". Ose thjesht shtypni butonat "Alt + F11" në ekranin kryesor.
3. Në dritaren pasuese "Microsoft Visual Basic për Aplikacione", mund të gjeni dhe hapni projektin "ThisOutlookSession".
4. Më pas ju duhet të kopjoni dhe ngjisni kodin VBA më poshtë në këtë 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. Pas kësaj, ju duhet të nënshkruani këtë makro.

• Shtypni butonin "Tools" në shiritin e veglave.
• Pastaj zgjidhni opsionin "Nënshkrimi Dixhital" nga lista rënëse.
• Në kutinë e dialogut që shfaqet, ndiqni udhëzimet në ekran për ta përfunduar atë.

6. Më vonë mund të ndryshoni cilësimet e makrove për të lejuar makrot e nënshkruara dixhitale.
7. Përfundimisht, mund ta rinisni aplikacionin tuaj Outlook për të aktivizuar makron.
8. Që tani e tutje, sa herë që keni ndërmend të hapni emailet e gjashtë, do të merrni një mesazh, si pamja e ekranit:
9. Gjithashtu, emaili i mëparshëm do të mbyllet automatikisht.

Merrni të dhëna të vlefshme të Outlook

Nuk mund të mohohet se Outlook ka një numër karakteristikash të jashtëzakonshme. Por, kjo nuk do të thotë se është pa të meta. Ende nuk mund të largohet nga dëmtimi. Faktorë të ndryshëm mund të çojnë në korrupsionin e Outlook. Prandaj, në mënyrë që të rikuperoni Outlook të dhënat më të lehta, duhet të bëni kopje rezervë të skedarit tuaj PST në intervale të rregullta. Gjithashtu, një mjet riparimi me cilësi të mirë është gjithashtu një çështje domosdoshmërie, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregulloni mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com