Hoe open ik alle ongelezen e-mails in Outlook?
Als er meerdere ongelezen e-mailberichten in uw Postvak IN van Outlook staan, hoe kunt u ze dan allemaal openen om ze zo snel mogelijk tegelijk te lezen?
Open alle ongelezen e-mailberichten in een specifieke Inbox of een andere map met VBA-code
Open alle ongelezen e-mailberichten in een specifieke Inbox of een andere map met VBA-code
De volgende VBA-code kan u helpen om alle ongelezen e-mailberichten in uw Inbox of een andere specifieke map tegelijk te openen, volg de onderstaande stappen:
1. Allereerst moet u een map selecteren waaruit u alle ongelezen e-mails wilt openen.
2. Houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
3. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module, zie screenshot:
VBA-code: open alle ongelezen e-mailberichten 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. En druk dan op F5 toets om deze code uit te voeren, en alle ongelezen e-mails worden in één keer in de opgegeven map geopend. Eindelijk verschijnt er een promptvenster om het aantal ongelezen e-mails te herinneren dat is geopend, zie screenshot:
Note: deze code is niet beschikbaar voor e-mails voor vergaderingen.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.