Come faccio ad aprire tutte le email non lette in Outlook?

Se nella Posta in arrivo di Outlook ci sono più messaggi email non letti, come si fa ad aprirli tutti contemporaneamente per leggerli nel modo più rapido possibile?

Apri tutti i messaggi email non letti in una Posta in arrivo specifica o in un'altra cartella con codice VBA

---

"Apri tutti i messaggi email non letti in una Posta in arrivo specifica o in un'altra cartella con codice VBA

Il seguente codice VBA ti permette di aprire contemporaneamente tutti i messaggi email non letti presenti nella Posta in arrivo o in un’altra cartella specifica. Segui questi semplici passaggi:

1. Innanzitutto, seleziona una cartella da cui desideri aprire tutte le email non lette.

2. Successivamente, tieni premuti i tasti «ALT + F11» per aprire la finestra di Microsoft Visual Basic, Applications.

3. Fai clic su «Inserisci» > «Modulo», quindi copia e incolla il codice seguente nel modulo vuoto appena aperto; vedi screenshot:

Codice VBA: Apri tutti i messaggi email non letti 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 il codice: tutte le email non lette presenti nella cartella specificata verranno aperte contemporaneamente e, al termine dell'operazione, apparirà una finestra di avviso con il numero di email non lette aperte; vedi screenshot:

Nota: Questo codice non può essere utilizzato per le email relative alle riunioni.