如何在 Outlook 中一次開啟所有未讀郵件？

如果您的 Outlook 收件匣中有大量未讀郵件，如何才能最快地一次全部開啟並閱讀呢？

使用 VBA 程式碼在特定收件匣或其他資料夾中開啟所有未讀郵件

---

"使用 VBA 程式碼在特定收件匣或其他資料夾中開啟所有未讀郵件

下列 VBA 程式碼可協助您一次開啟收件匣或其他指定資料夾中的所有未讀郵件，請依照以下步驟操作：

1. 首先，請選擇一個資料夾，以便從中開啟所有未讀郵件。

2. 接著按下「Alt + F11」，即可開啟「Microsoft Visual Basic for Applications」視窗。

3. 接著點選「插入」>「模組」，將下方程式碼複製並貼上至開啟的空白模組中，詳情請參閱截圖：

VBA 程式碼：在指定資料夾中開啟所有未讀郵件

Sub OpenAllUnreadEmails()
Dim xFolders As Outlook.Folders
Dim xFolder As Outlook.Folder
Dim xUnreadEmailCount As Long
On Error Resume Next
xUnreadEmailCount = 0
Set xFolders = Application.ActiveExplorer.CurrentFolder.Folders
Call OperatingFolders(Application.ActiveExplorer.CurrentFolder, xUnreadEmailCount)
For Each xFolder In xFolders
    Call OperatingFolders(xFolder, xUnreadEmailCount)
Next
MsgBox "Open " & xUnreadEmailCount & " unread emails successfully!", vbExclamation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub OperatingFolders(ByVal xCurrentFld As Outlook.Folder, UnreadEmailCount As Long)
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xSubFolder As Outlook.Folder
On Error Resume Next
If xCurrentFld.DefaultItemType = olMailItem Then
    For Each xItem In xCurrentFld.Items
        If xItem.Class = olMail Then
            Set xMailItem = xItem
            If xMailItem.UnRead = True Then
                xMailItem.Display
                UnreadEmailCount = UnreadEmailCount + 1
            End If
        End If
    Next
End If
If xCurrentFld.Folders.Count > 0 Then
    For Each xSubFolder In xCurrentFld.Folders
        Call OperatingFolders(xSubFolder, UnreadEmailCount)
    Next
End If
End Sub

4. 接著按下「F5」鍵執行此程式碼，所有未讀郵件將立即在指定資料夾中開啟，並彈出提示方塊顯示已開啟的未讀郵件數量，請參閱截圖：

注意：此程式碼不適用於會議邀請郵件。