Kako odpreti vsa neprebrana e-poštna sporočila v programu Outlook?

Če je v mapi »Prejeto« v Outlooku več neprebranih e-poštnih sporočil, kako lahko odprete vsa, da jih lahko preberete hkrati, kakor hitro je mogoče?

Odprite vsa neprebrana e-poštna sporočila v določeni mapi Prejeto ali drugi mapi s kodo VBA

Odprite vsa neprebrana e-poštna sporočila v določeni mapi Prejeto ali drugi mapi s kodo VBA

Naslednja koda VBA vam lahko pomaga, da hkrati odprete vsa neprebrana e-poštna sporočila v mapi »Prejeto« ali v določeni mapi, tako da sledite spodnjim korakom:

1. Najprej izberite mapo, iz katere želite odpreti vsa neprebrana e-poštna sporočila.

odpiranje vseh neprebranih e-poštnih sporočil 1

2. Nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: Odprite vsa neprebrana e-poštna sporočila v določeni mapi:

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

odpiranje vseh neprebranih e-poštnih sporočil 2

4. In nato pritisnite F5 tipko za zagon te kode in vsa neprebrana e-poštna sporočila se bodo odprla v določeni mapi naenkrat, končno se bo pojavilo okno s pozivom, ki vas bo spomnilo na število neprebranih e-poštnih sporočil, ki so odprta, glejte posnetek zaslona:

odpiranje vseh neprebranih e-poštnih sporočil 3