Hoe alle ongelezen e-mails in Outlook openen?
Als er meerdere ongelezen e-mailberichten in uw Postvak IN van Outlook zijn, hoe kunt u ze dan allemaal tegelijk zo snel mogelijk openen om te lezen?
Alle ongelezen e-mailberichten openen in een specifiek Postvak IN of andere map met VBA-code
"Alle ongelezen e-mailberichten openen in een specifiek Postvak IN of andere map met VBA-code
Met de volgende VBA-code kunt u alle ongelezen e-mailberichten in uw Postvak IN of een andere specifieke map tegelijk openen. Volg hiervoor onderstaande stappen:
1. Selecteer eerst een map waaruit u alle ongelezen e-mails wilt openen.
2. Druk vervolgens op de toetsen "ALT + F11" om het venster "Microsoft Visual Basic for Applications" te openen.
3. Klik daarna op "Invoegen" > "Module", kopieer en plak de onderstaande code in de geopende lege module, zie screenshot:
VBA-code: Alle ongelezen e-mailberichten openen in een specifieke map
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. Druk vervolgens op de toets "F5" om deze code uit te voeren, en alle ongelezen e-mails zullen tegelijk worden geopend in de gespecificeerde map. Tot slot verschijnt er een pop-upvenster dat u eraan herinnert hoeveel ongelezen e-mails er zijn geopend, zie screenshot:
Notitie: Deze code werkt niet voor vergader-e-mails.
Beste productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
