如果 Outlook 收件箱中有太多未读电子邮件，如何获得警告

展望解决方案 2025 年 9 月 29 日
立即分享：

一些用户希望 Outlook 可以在他们的收件箱（包括子文件夹）中有太多未读电子邮件时向您发出警告。 虽然 Outlook 没有提供这样的功能，但仍然可以用 VBA 代码实现。 本文将向您展示这段代码。

有时，由于您的日程安排很忙，您可能会在收件箱中留下大量未读邮件。 随着邮件的积累越来越多，后期处理这些邮件将是一件相当繁琐和麻烦的工作。 在这种情况下，您可能希望 Outlook 能够在未读邮件数量超过特定限制时提醒您。 下面就给大家分享一个实现这个功能的方法。

如果您的 Outlook 收件箱中有太多未读电子邮件，请收到警告

如果有太多未读电子邮件，请收到警告

  1. 首先，像往常一样启动 Outlook 程序。
  2. 接下来，在 Outlook 主窗口中，按“Alt + F11”键按钮。
  3. 然后，您将进入“Microsoft Visual Basic for Applications”窗口，您需要在其中找到并打开“ThisOutlookSession”项目。
  4. 随后，您应该将以下 VBA 代码复制到该项目中。
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

VBA 代码 - 如果有太多未读邮件得到警告

  1. 之后，您应该签署此代码。
  2. 稍后，退出当前窗口并更改 Outlook 宏设置以启用数字签名的宏。
  3. 最后，您可以重启 Outlook 来激活这个新宏。
  4. 从现在开始，每次启动 Outlook 且邮箱收到新邮件时，Outlook 都会自动检查收件箱及其子文件夹中未读邮件的数量。
  5. 如果数量超过你预定义的限制，Outlook 会警告你，如下图所示：警告

突然崩溃后检索 Outlook 数据

Outlook 无法彻底消除错误。 并且安装错误可能会在没有任何提示的情况下导致崩溃。 严重的崩溃可能会瞬间损坏您的 Outlook 数据文件。 因此，您有必要做好充分的预防措施，例如定期进行数据备份和使用强大的外部恢复工具，例如 DataNumen Outlook Repair. 它可以帮助您 修复PST 文件轻松。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 中密度纤维板修复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。