如何在 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”键运行代码，所有未读邮件将会在指定文件夹中一次性打开。操作完成后，将弹出提示框，告知您已打开的未读邮件数量，如下图所示：

注意：此代码不适用于会议邮件。