如果Outlook收件箱中的未讀電子郵件過多，如何發出警告

Outlook解決方案 2025 年 9 月 29 日
立即分享：

有些用戶希望收件箱中包括子文件夾的未讀電子郵件過多，Outlook可以警告您。 儘管Outlook不提供這樣的功能，但仍可以用VBA代碼實現。 本文將向您顯示此代碼。

有時，由於您的日程安排很忙，您可能會在收件箱中留下大量未讀郵件。 隨著越來越多的電子郵件積累，以後處理它們將是一個非常繁瑣且麻煩的任務。 在這種情況下，如果未讀電子郵件的數量超過特定限制，您可能希望Outlook可以提醒您。 在下文中，我們將與您分享實現此功能的方法。

如果您的Outlook收件箱中有太多未讀的電子郵件，則會收到警告

如果未讀電子郵件過多，將收到警告

  1. 到tar然後，照常啟動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. 最後，您可以tar用Outlook激活此新宏。
  4. 從現在開始，每次您tart Outlook和新電子郵件到達您的郵箱時，Outlook將自動檢查“收件箱”及其子文件夾中未讀電子郵件的數量。
  5. 如果該數目超過了您的預定義限制，Outlook將警告您，如以下屏幕截圖所示：警告

突然崩潰後檢索Outlook數據

Outlook無法徹底消除錯誤。 安裝錯誤可能會導致崩潰，而沒有任何提示。 嚴重的崩潰可能會損壞您的Outlook數據文件。 因此，您有必要採取足夠的預防措施，例如進行定期數據備份和使用有效的外部恢復工具，例如 DataNumen Outlook Repair。 它可以幫助您 維修PST 輕鬆歸檔。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 mdf修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。