Paano Makakuha ng Babala Kung Masyadong Maraming Hindi Nabasang Mga Email sa Iyong Outlook Inbox

Ang ilang mga gumagamit ay hinahangad na mapabalaan ka ng Outlook kung maraming mga hindi nabasang email sa kanilang inbox, kasama ang mga subfolder. Kahit na ang Outlook ay hindi nag-aalok ng tulad ng isang pag-andar, maaari pa rin itong mapagtanto sa VBA code. Ipapakita sa artikulong ito ang code na ito sa iyo.

Sa mga oras, dahil sa iyong abalang mga iskedyul, maaari kang mag-iwan ng maraming bilang ng mga hindi nabasang mail sa iyong Inbox. Sa pagdaragdag ng maraming mga email na naipon, ang pagharap sa kanila sa paglaon ay magiging isang nakakapagod at nakakagambalang gawain. Sa kasong ito, maaari kang umasa na maaaring paalalahanan ka ng Outlook kung ang bilang ng mga hindi nabasang email ay lumampas sa isang tukoy na limitasyon. Sa mga sumusunod, magbabahagi kami sa iyo ng isang paraan upang makamit ang pagpapaandar na ito.

Maging Warned Kung Mayroong Maraming Hindi Nabasang Email

1. Para magsimula, ilunsad ang iyong programa sa Outlook gaya ng dati.
2. Susunod, sa pangunahing window ng Outlook, pindutin ang mga pindutan ng "Alt + F11".
3. Pagkatapos, makakapasok ka sa window ng "Microsoft Visual Basic for Applications", kung saan kailangan mong hanapin at buksan ang proyekto na "ThisOutlookSession".
4. Kasunod, dapat mong kopyahin ang sumusunod na VBA code sa proyektong ito.

Private objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items
Private lUnreadItemCount As Long

Private Sub Application_Startup()
    Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
    Set objItems = objInbox.Items
 
    lUnreadItemCount = 0
    Call CountUnreadEmails(objInbox, lUnreadItemCount)
 
    'If there are more than 10 unread emails
    If lUnreadItemCount > 10 Then
       MsgBox "Too many unread emails in Inbox!" & vbCr & "Please deal with them as soon as possible!", vbExclamation + vbOKOnly, "Check Unread Emails"
    End If
End Sub

Private Sub objItems_ItemAdd(ByVal Item As Object)
    Call CountUnreadEmails(objInbox, lUnreadItemCount)
 
    lUnreadItemCount = 0
    If lUnreadItemCount > 10 Then
       MsgBox "Too many unread emails!" & vbCr & "Please deal with them as soon as possible!", vbExclamation + vbOKOnly, "Check Unread Emails"
    End If
End Sub

Private Sub CountUnreadEmails(ByVal objFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objUnreadItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    Set objUnreadItems = objFolder.Items.Restrict("[Unread] = True")
    lCount = objUnreadItems.count + lCount
 
    'Process all subfolders under Inbox recursively
    If objFolder.Folders.count > 0 Then
       For Each objSubfolder In objFolder.Folders
           Call CountUnreadEmails(objSubfolder, lCount)
       Next
    End If
End Sub

5. Pagkatapos nito, dapat mong lagdaan ang code na ito.
6. Mamaya, lumabas sa kasalukuyang window at baguhin ang iyong mga setting ng macro ng Outlook upang paganahin ang mga digital na naka-sign na macros.
7. Panghuli, maaari mong i-restart ang iyong Outlook upang maisaaktibo ang bagong macro na ito.
8. Mula ngayon, sa tuwing bubuksan mo ang Outlook at may darating na bagong email sa iyong mailbox, awtomatikong susuriin ng Outlook ang bilang ng mga hindi pa nababasang email sa Inbox at mga subfolder nito.
9. Kung lumampas ang numero sa iyong paunang natukoy na limitasyon, babalaan ka ng Outlook, tulad ng sumusunod na screenshot:

Kunin ang Data ng Outlook pagkatapos ng Biglang Pag-crash

Hindi matanggal nang husto ng Outlook ang mga error. At ang mga error sa pag-mount ay maaaring humantong sa mga pag-crash nang walang anumang mga senyas. Malubhang mga pag-crash ay maaaring makapinsala sa iyong file ng data ng Outlook sa isang mahirap. Samakatuwid, kinakailangan para sa iyo na gumawa ng sapat na pag-iingat, tulad ng paggawa ng regular na pag-backup ng data at paghawak sa isang malakas na panlabas na tool sa pag-recover, tulad ng DataNumen Outlook Repair. Maaari ka nitong tulungan ayusin ang PST madali nang mag-file.

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 mdf ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa