提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何在Outlook中打開所有未讀電子郵件?

如果Outlook收件箱中有多封未讀電子郵件消息,您如何盡快打開所有消息以便一次閱讀?

使用VBA代碼打開特定收件箱或其他文件夾中的所有未讀電子郵件

使用VBA代碼打開特定收件箱或其他文件夾中的所有未讀電子郵件

以下VBA代碼可以幫助您一次打開收件箱或其他特定文件夾中的所有未讀電子郵件,請按照以下步驟操作:

1。 首先,你應該選擇一個你想打開所有未讀電子郵件的文件夾。

doc打開所有未讀郵件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

doc打開所有未讀郵件2

4。 然後,按 F5 鍵運行此代碼,並且所有未讀電子郵件將立即在指定文件夾中打開,最後,彈出一個提示框以提醒打開的未讀電子郵件的數量,請參閱屏幕截圖:

doc打開所有未讀郵件3

備註:此代碼不適用於會議電子郵件。


Kutools for Outlook - 為Outlook帶來100高級功能,讓工作更輕鬆!

  • 自動CC / BCC 發送電子郵件時的規則; 自動轉發 多個電子郵件按自定義; 自動回复 沒有交換服務器,以及更多自動功能......
  • BCC警告 - 當您嘗試回复所有內容時顯示消息 如果您的郵件地址在BCC列表中; 缺少附件時提醒,以及更多提醒功能......
  • 回复(全部)使用郵件會話中的所有附件; 回复很多電子郵件 很快; 自動添加問候語 回复時; 將日期添加到主題...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,全部保存...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 按慣例; 刪除重複郵件和聯繫人... 使您能夠在Outlook中更智能,更快速,更好地完成工作。
拍攝kutools outlook kutools選項卡1180x121
拍攝kutools outlook kutools加標籤1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.