So werden Sie gewarnt, wenn sich zu viele ungelesene E-Mails in Ihrem Outlook-Posteingang befinden

Einige Benutzer möchten, dass Outlook Sie warnen kann, wenn sich zu viele ungelesene E-Mails in ihrem Posteingang befinden, einschließlich der Unterordner. Obwohl Outlook eine solche Funktion nicht bietet, kann sie dennoch mit VBA-Code realisiert werden. Dieser Artikel zeigt Ihnen diesen Code.

Aufgrund Ihres vollen Terminkalenders können Sie manchmal eine große Anzahl ungelesener E-Mails in Ihrem Posteingang hinterlassen. Da sich immer mehr E-Mails ansammeln, wird es eine ziemlich mühsame und mühsame Aufgabe sein, sie später zu bearbeiten. In diesem Fall können Sie hoffen, dass Outlook Sie daran erinnert, wenn die Anzahl der ungelesenen E-Mails einen bestimmten Grenzwert überschreitet. Im Folgenden werden wir Ihnen ein Mittel zur Erreichung dieser Funktion vorstellen.

Seien Sie gewarnt, wenn zu viele ungelesene E-Mails vorhanden sind

1. Zu starStarten Sie mit Out Ihr Outlook-Programm wie gewohnt.
2. Drücken Sie anschließend im Outlook-Hauptfenster die Tasten „Alt + F11“.
3. Anschließend gelangen Sie in das Fenster "Microsoft Visual Basic für Applikationen", in dem Sie das Projekt "ThisOutlookSession" suchen und öffnen müssen.
4. Anschließend sollten Sie den folgenden VBA-Code in dieses Projekt kopieren.

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. Danach sollten Sie diesen Code unterschreiben.
6. Verlassen Sie später das aktuelle Fenster und ändern Sie Ihre Outlook-Makroeinstellungen, um digital signierte Makros zu aktivieren.
7. Schließlich können Sie restart Ihr Outlook, um dieses neue Makro zu aktivieren.
8. Von nun an jedes Mal, wenn Sie start Outlook und neue E-Mails kommen in Ihrem Postfach an. Outlook überprüft automatisch die Anzahl der ungelesenen E-Mails im Posteingang und seinen Unterordnern.
9. Wenn die Anzahl Ihr vordefiniertes Limit überschreitet, werden Sie von Outlook wie im folgenden Screenshot gewarnt:

Abrufen von Outlook-Daten nach plötzlichen Abstürzen

Outlook kann Fehler nicht gründlich beseitigen. Und Montagefehler können zu Abstürzen ohne Aufforderung führen. Schwere Abstürze können Ihre Outlook-Datendatei im Handumdrehen beschädigen. Daher müssen Sie ausreichende Vorsichtsmaßnahmen treffen, z. B. regelmäßige Datensicherungen durchführen und ein leistungsfähiges externes Wiederherstellungstool wie z DataNumen Outlook Repair. Es kann Ihnen dabei helfen PST reparieren Datei mit Leichtigkeit.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf-fix und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX