Kaip apriboti tuo pačiu metu atidarytų el. laiškų skaičių naudojant „Outlook VBA“.

„Outlook“ sprendimai Rugsėjis 29, 2025
Bendrinti dabar:

Vienu metu atidarius daug el. laiškų, „Outlook“ gali būti perkrauta, o tai gali sukelti „Outlook“ strigtį. Taigi, siūloma apriboti tuo tarpu atidaromų el. Šis post išmokys tai realizuoti naudojant Outlook VBA.

„Outlook“ gali strigti, kai ji perkraunama, pvz., kai vienu metu atidaroma per daug el. laiškų. Todėl geriau vienu metu atidaryti tik ribotus el. laiškus. Nors „Outlook“ to nepalaiko savaime, tai galite lengvai pasiekti naudodami toliau nurodytas priemones.

Apribokite el. laiškų, atidarytų vienu metu, skaičių naudodami „Outlook VBA“.

Apribokite tuo pačiu metu atidarytų el. laiškų skaičių

  1. Pačioje pradžioje start savo „Outlook“ programą.
  2. Tada turite pasiekti VBA redaktorių. Galite pereiti į skirtuką „Kūrėjas“ ir paspausti mygtuką „Visual Basic“. Arba tiesiog paspauskite „Alt + F11“ klavišus pagrindiniame ekrane.
  3. Kitame lange „Microsoft Visual Basic for Applications“ galite rasti ir atidaryti projektą „ThisOutlookSession“.
  4. Tada turėtumėte nukopijuoti ir įklijuoti žemiau esantį VBA kodą į šį 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

VBA kodas – apribokite tuo pačiu metu atidarytų el. laiškų skaičių

  1. Po to turėtumėte pasirašyti šią makrokomandą.
  • Įrankių juostoje paspauskite mygtuką „Įrankiai“.
  • Tada išskleidžiamajame sąraše pasirinkite parinktį „Skaitmeninis parašas“.
  • Iššokančiajame dialogo lange vykdykite ekrane pateikiamas instrukcijas, kad užbaigtumėte.
  1. Vėliau galėsite pakeisti makrokomandos nustatymus, kad būtų galima naudoti skaitmeniniu būdu pasirašytas makrokomandas.
  2. Galų gale, jūs galite restart savo „Outlook“ programą, kad suaktyvintumėte makrokomandą.
  3. Nuo šiol kiekvieną kartą, kai ketinate atidaryti šeštąjį el. laišką, gausite pranešimą, pvz., ekrano kopiją:įspėjimas
  4. Be to, ankstesnis el. laiškas bus automatiškai uždarytas.

Gaukite vertingų Outlook duomenų

Negalima paneigti, kad „Outlook“ turi daugybę nuostabių funkcijų. Tačiau tai nereiškia, kad jis nepriekaištingas. Jis vis tiek negali atsikratyti žalos. Įvairūs veiksniai gali sukelti Outlook sugadinimą. Vadinasi, kad atkurti Outlook lengviau, turėtumėte reguliariais intervalais kurti atsargines PST failo kopijas. Be to, kokybiškas remonto įrankis taip pat yra būtinybės reikalas, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com

Bendrinti dabar:

Komentarai yra uždaryti.