Kuinka saada varoitus, jos Outlook-postilaatikossasi on liikaa lukemattomia sähköposteja

Jotkut käyttäjät toivovat, että Outlook voi varoittaa, jos heidän postilaatikossaan, mukaan lukien alikansiot, on liikaa lukemattomia sähköposteja. Vaikka Outlook ei tarjoa tällaista toimintoa, se voidaan silti toteuttaa VBA-koodilla. Tämä artikkeli näyttää tämän koodin sinulle.

Joskus kiireisten aikataulujesi vuoksi saatat jättää suuren määrän lukemattomia viestejä Saapuneet-kansioosi. Kun sähköposteja kertyy yhä enemmän, niiden käsitteleminen myöhemmin on melko työlästä ja vaivalloista tehtävää. Tässä tapauksessa voit toivoa, että Outlook voisi muistuttaa sinua, jos lukemattomien sähköpostien määrä ylittää tietyn rajan. Seuraavassa kerromme sinulle keinon tämän toiminnon saavuttamiseksi.

Saat varoituksen, jos lukemattomia sähköposteja on liikaa

1. Aloita käynnistämällä Outlook-ohjelma normaalisti.
2. Seuraavaksi paina Outlookin pääikkunassa "Alt + F11" -näppäinpainikkeita.
3. Sitten pääset "Microsoft Visual Basic for Applications" -ikkunaan, jossa sinun on löydettävä ja avattava "ThisOutlookSession" -projekti.
4. Sen jälkeen sinun on kopioitava seuraava VBA-koodi tähän projektiin.

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. Sen jälkeen sinun tulee allekirjoittaa tämä koodi.
6. Myöhemmin poistu nykyisestä ikkunasta ja muuta Outlook-makroasetuksia ottaaksesi käyttöön digitaalisesti allekirjoitetut makrot.
7. Lopuksi voit käynnistää Outlookin uudelleen aktivoidaksesi tämän uuden makron.
8. Tästä lähtien aina, kun käynnistät Outlookin ja postilaatikkoosi saapuu uusi sähköposti, Outlook tarkistaa automaattisesti lukemattomien sähköpostien määrän Saapuneet-kansiossa ja sen alikansioissa.
9. Jos määrä ylittää ennalta määritetyn rajan, Outlook varoittaa seuraavan kuvakaappauksen tavoin:

Hae Outlook-tiedot äkillisten kaatumisten jälkeen

Outlook ei voi päästä eroon virheistä perusteellisesti. Ja asennusvirheet voivat johtaa kaatumisiin ilman kehotteita. Vakavat kaatumiset voivat vahingoittaa Outlook-datatiedostoa hetkessä. Siksi sinun on ryhdyttävä riittäviin varotoimiin, kuten säännöllisten tietojen varmuuskopiointi ja tehokkaan ulkoisen palautustyökalun hankkiminen, kuten DataNumen Outlook Repair. Se voi auttaa sinua korjaa PST tiedosto helposti.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com