Come aprire tutte le email non lette in Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

Se ci sono più email non lette nella tua Posta in arrivo di Outlook, come potresti aprirle tutte contemporaneamente per leggerle il più rapidamente possibile?

Apri tutte le email non lette in una specifica Posta in arrivo o altra cartella con il codice VBA

"Apri tutte le email non lette in una specifica Posta in arrivo o altra cartella con il codice VBA

Il seguente codice VBA può aiutarti ad aprire tutte le email non lette nella tua Posta in arrivo o in un'altra cartella specifica in una volta sola. Segui i passaggi qui sotto:

1. Prima di tutto, devi selezionare una cartella da cui vuoi aprire tutte le email non lette.

2. Poi tieni premuti i tasti "ALT + F11" per aprire la finestra "Microsoft Visual Basic for Applications".

3. Successivamente, clicca su "Inserisci" > "Modulo", copia e incolla il codice sottostante nel modulo vuoto appena aperto, vedi screenshot:

Codice VBA: Apri tutte le email non lette in una cartella specifica

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

4. Infine, premi il tasto "F5" per eseguire questo codice, e tutte le email non lette verranno aperte nella cartella specificata in una volta sola. Alla fine, apparirà una finestra di avviso che ti ricorderà il numero di email non lette che sono state aperte, vedi screenshot: