Paano Limitahan ang Bilang ng mga Email na Binuksan nang Kasabay sa Outlook VBA

Ang pagpapanatiling maraming email na nakabukas nang sabay-sabay ay maaaring magdulot ng overload sa iyong Outlook, na hahantong sa pag-crash ng Outlook. Kaya naman, iminumungkahi na limitahan ang bilang ng mga email na nabuksan pansamantala. Ituturo sa iyo ng post na ito kung paano ito gagawin gamit ang Outlook VBA.

Malamang na mag-crash ang Outlook kapag na-overload ito, tulad ng kapag masyadong maraming email ang bukas nang sabay-sabay. Samakatuwid, mas mabuting panatilihin mo na lang ang mga limitadong email na bukas sa isang pagkakataon. Bagama't hindi ito sinusuportahan ng Outlook sa katutubong paraan, madali mo itong makakamit sa pamamagitan ng mga sumusunod na paraan.

Limitahan ang Bilang ng mga Email na Binuksan nang Sabay-sabay

1. Sa pinakasimula pa lang, simulan ang iyong programa sa Outlook.
2. Pagkatapos ay kailangan mong i-access ang VBA editor. Maaari kang lumipat sa tab na "Developer" at pindutin ang button na "Visual Basic". O pindutin lamang ang "Alt + F11" key sa pangunahing screen.
3. Sa kasunod na window ng "Microsoft Visual Basic for Applications", maaari mong hanapin at buksan ang proyektong "ThisOutlookSession".
4. Susunod na dapat mong kopyahin at i-paste ang VBA code sa ibaba sa proyektong ito ng 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. Pagkatapos nito, dapat mong lagdaan ang macro na ito.

• Pindutin ang pindutang "Mga Tool" sa toolbar.
• Susunod na piliin ang opsyong "Digital Signature" mula sa drop down na listahan.
• Sa popup dialog box, sundin ang mga tagubilin sa screen upang makumpleto ito.

6. Sa ibang pagkakataon, maaari mong baguhin ang mga setting ng macro upang payagan ang mga digitally sign na macro.
7. Kalaunan, maaari mong i-restart ang iyong Outlook application upang maisaaktibo ang macro.
8. Mula ngayon, sa tuwing balak mong buksan ang ikaanim na email, makakatanggap ka ng mensahe, tulad ng screenshot:
9. Gayundin, awtomatikong isasara ang nakaraang email.

Kunin ang Mahahalagang Data ng Outlook

Hindi maikakaila na ang Outlook ay may dami ng mga kahanga-hangang tampok. Ngunit, hindi ito nangangahulugan na ito ay walang kamali-mali. Hindi pa rin ito makakawala sa pinsala. Ang iba't ibang salik ay maaaring humantong sa katiwalian sa Outlook. Samakatuwid, upang bawiin ang Outlook mas madali ang data, dapat mong i-back up ang iyong PST file sa mga regular na pagitan. Gayundin, ang isang mahusay na kalidad na tool sa pag-aayos ay isang bagay din ng pangangailangan, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa