Как да отворя всички непрочетени имейли в Outlook?

Автор: Xiaoyang Последна промяна: 2018-05-03

Ако има множество непрочетени имейл съобщения във вашата входяща кутия на Outlook, как можете да отворите всички, за да ги прочетете наведнъж възможно най-бързо?

Отворете всички непрочетени имейл съобщения в конкретна входяща кутия или друга папка с VBA код

Отворете всички непрочетени имейл съобщения в конкретна входяща кутия или друга папка с VBA код

Следният VBA код може да ви помогне да отворите всички непрочетени имейл съобщения във вашата пощенска кутия или друга специфична папка наведнъж, моля, направете следните стъпки:

1. Първо, трябва да изберете папка, от която искате да отваряте всички непрочетени имейли.

doc отвори всички непрочетени имейли 1

2. След това задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

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