Comment ouvrir tous les e-mails non lus dans Outlook?
S'il y a plusieurs messages électroniques non lus dans votre boîte de réception d'Outlook, comment pouvez-vous les ouvrir tous pour les lire en même temps aussi rapidement que possible?
Ouvrez tous les e-mails non lus dans une boîte de réception spécifique ou un autre dossier avec le code VBA
Le code VBA suivant peut vous aider à ouvrir tous les messages électroniques non lus dans votre boîte de réception ou dans un autre dossier spécifique à la fois, veuillez suivre les étapes ci-dessous:
1. Tout d'abord, vous devez sélectionner un dossier à partir duquel vous souhaitez ouvrir tous les e-mails non lus.
2. Puis maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
3. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran:
Code VBA: ouvrez tous les e-mails non lus dans 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. Et puis, appuyez sur F5 clé pour exécuter ce code, et tous les e-mails non lus seront ouverts dans le dossier spécifié à la fois, enfin, une boîte de dialogue apparaîtra pour rappeler le nombre d'e-mails non lus qui sont ouverts, voir capture d'écran:
Notes: Ce code n'est pas disponible pour les e-mails de réunion.
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...
📧 Email Automation: Absent du bureau (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel facile des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Boostez votre productivité Outlook avec des vues à onglets / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.