Comment ouvrir tous les e-mails non lus dans Outlook ?

S’il y a plusieurs messages non lus dans votre boîte de réception Outlook, comment les ouvrir tous d’un seul coup pour les lire le plus rapidement possible ?

Ouvrir tous les messages électroniques non lus d’une boîte de réception spécifique ou d’un autre dossier à l’aide d’un code VBA

---

"Ouvrir tous les messages électroniques non lus d’une boîte de réception spécifique ou d’un autre dossier à l’aide d’un code VBA

Le code VBA suivant vous permet d’ouvrir simultanément tous les messages électroniques non lus de votre boîte de réception ou d’un autre dossier spécifique. Suivez les étapes ci-dessous :

1. Commencez par sélectionner un dossier à partir duquel vous souhaitez ouvrir tous les e-mails non lus.

2. Ensuite, maintenez enfoncées les touches « ALT + F11 » pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez ensuite sur « Insertion » > « Module », puis copiez-collez le code ci-dessous dans le module vide qui s’ouvre. Voir la capture d’écran :

Code VBA : Ouvrir tous les messages électroniques non lus d’un dossier spécifique

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. Enfin, appuyez sur la touche « F5 » pour exécuter ce code : tous les e-mails non lus du dossier spécifié s’ouvriront instantanément, suivis d’une boîte de dialogue indiquant leur nombre. Voir la capture d’écran :

Remarque : Ce code ne fonctionne pas avec les e-mails d’invitation à des réunions.