Ինչպե՞ս բացել բոլոր չընթերցված էլ.փոստերը Outlook- ում:

Եթե Outlook- ի ձեր Մուտքի արկղում կան բազմաթիվ անընթերցված էլփոստի հաղորդագրություններ, ինչպե՞ս կարող եք բացել բոլորն այն ընթերցելու համար, որքան հնարավոր է արագ:

Բացեք բոլոր չընթերցված էլփոստի հաղորդագրությունները որոշակի մուտքի արկղում կամ VBA կոդով այլ թղթապանակում

Բացեք բոլոր չընթերցված էլփոստի հաղորդագրությունները որոշակի մուտքի արկղում կամ VBA կոդով այլ թղթապանակում

Հետևյալ VBA կոդը կարող է օգնել ձեզ միանգամից բացել բոլոր չընթերցված էլփոստի հաղորդագրությունները ձեր Մուտքի արկղում կամ այլ հատուկ թղթապանակում, խնդրում ենք անել ստորև նշված քայլերով.

1, Նախ, դուք պետք է ընտրեք թղթապանակ, որից ցանկանում եք բացել բոլոր չընթերցված էլ.

փաստաթուղթ բացեք բոլոր չընթերցված էլ. փոստերը 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

փաստաթուղթ բացեք բոլոր չընթերցված էլ. փոստերը 2

4, Եվ հետո, սեղմեք F5 այս կոդը գործարկելու բանալին, և բոլոր չընթերցված նամակները միանգամից կբացվեն նշված թղթապանակում, վերջապես, հուշման տուփ կհայտնվի՝ հիշեցնելու բացված չընթերցված նամակների քանակը, տես սքրինշոթը.

փաստաթուղթ բացեք բոլոր չընթերցված էլ. փոստերը 3