Hogyan lehet megnyitni az összes olvasatlan e-mailt az Outlook programban?

Ha több olvasatlan e-mail van az Outlook beérkezett üzeneteiben, hogyan nyithatná meg mindet, hogy a lehető leggyorsabban olvashassa el egyszerre?

Nyissa meg az összes olvasatlan e-mailt egy adott Beérkező levelek mappában vagy más, VBA kóddal rendelkező mappában

Nyissa meg az összes olvasatlan e-mailt egy adott Beérkező levelek mappában vagy más, VBA kóddal rendelkező mappában

A következő VBA-kód segíthet az összes olvasatlan e-mail üzenet megnyitásában a Beérkező levelek mappában vagy más meghatározott mappában, kérjük, tegye az alábbi lépéseket:

1. Először ki kell választania egy mappát, amelyből az összes olvasatlan e-mailt meg akarja nyitni.

doc megnyitja az összes olvasatlan eamilt 1

2. Ezután tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba, lásd a képernyőképet:

VBA kód: Nyissa meg az összes olvasatlan e-mailt egy adott mappában:

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 megnyitja az összes olvasatlan eamilt 2

4. És akkor nyomja meg F5 kulcs a kód futtatásához, és minden olvasatlan e-mail egyszerre megnyílik a megadott mappában, végül megjelenik egy felszólító mező, amely emlékezteti a megnyitott olvasatlan e-mailek számát, lásd a képernyőképet:

doc megnyitja az összes olvasatlan eamilt 3