Hogyan kaphat figyelmeztetést, ha túl sok olvasatlan e-mail van az Outlook beérkező levelei között

Egyes felhasználók azt szeretnék, ha az Outlook figyelmeztetné Önt, ha túl sok olvasatlan e-mail van a beérkező leveleikben, beleértve az almappákat is. Az Outlook ugyan nem kínál ilyen funkciót, de VBA kóddal mégis megvalósítható. Ez a cikk megmutatja ezt a kódot.

Elfoglaltságai miatt időnként nagyszámú olvasatlan levelet hagyhat a Beérkezett üzenetek mappájában. Mivel egyre több e-mail gyűlik össze, a későbbi kezelésük meglehetősen fárasztó és fáradságos feladat lesz. Ebben az esetben remélheti, hogy az Outlook emlékeztetni tudja, ha az olvasatlan e-mailek száma túllép egy meghatározott korlátot. A következőkben megosztjuk Önnel a funkció elérésének módját.

Figyelmeztetést kaphat, ha túl sok az olvasatlan e-mail

1. Először is indítsa el az Outlook programot a szokásos módon.
2. Ezután az Outlook főablakában nyomja meg az „Alt + F11” billentyűket.
3. Ezután megjelenik a „Microsoft Visual Basic for Applications” ablak, amelyben meg kell találnia és meg kell nyitnia a „ThisOutlookSession” projektet.
4. Ezt követően be kell másolnia a következő VBA-kódot ebbe a projektbe.

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. Ezt követően alá kell írnia ezt a kódot.
6. Később lépjen ki az aktuális ablakból, és módosítsa az Outlook makró beállításait a digitálisan aláírt makrók engedélyezéséhez.
7. Végül újraindíthatja az Outlookot az új makró aktiválásához.
8. Mostantól minden alkalommal, amikor elindítja az Outlookot, és új e-mail érkezik a postaládájába, az Outlook automatikusan ellenőrzi az olvasatlan e-mailek számát a Beérkezett üzenetek mappában és almappáiban.
9. Ha a szám meghaladja az előre meghatározott korlátot, az Outlook figyelmezteti Önt, például a következő képernyőképen:

Az Outlook adatok lekérése hirtelen összeomlások után

Az Outlook nem tud alaposan megszabadulni a hibáktól. A szerelési hibák pedig felszólítás nélküli összeomláshoz vezethetnek. Súlyos összeomlások egy pillanat alatt károsíthatják az Outlook-adatfájlt. Ezért megfelelő óvintézkedéseket kell tennie, például rendszeres biztonsági mentést kell készítenie az adatokról, és be kell szereznie egy hatékony külső helyreállítási eszközt, mint pl. DataNumen Outlook Repair. Segíthet abban javítás PST fájllal könnyedén.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com