Hvordan åbner jeg alle ulæste e-mails i Outlook?
Hvis der er flere ulæste e-mail-meddelelser i din indbakke i Outlook, hvordan kan du åbne dem alle for at læse på én gang så hurtigt som muligt?
Åbn alle ulæste e-mail-meddelelser i en bestemt indbakke eller anden mappe med VBA-kode
Åbn alle ulæste e-mail-meddelelser i en bestemt indbakke eller anden mappe med VBA-kode
Følgende VBA-kode kan hjælpe dig med at åbne alle ulæste e-mail-meddelelser i din indbakke eller anden specifik mappe på én gang. Benyt nedenstående trin:
1. Først skal du vælge en mappe, som du vil åbne alle ulæste e-mails fra.
2. Hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbnede blanke modul, se skærmbillede:
VBA-kode: Åbn alle ulæste e-mail-meddelelser i den specifikke mappe:
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. Og tryk derefter på F5 tasten for at køre denne kode, og alle ulæste e-mails vil blive åbnet i den angivne mappe på én gang, til sidst vil en promptboks poppe ud for at minde om antallet af ulæste e-mails, der er åbnet, se skærmbillede:
Bemærk: Denne kode er ikke tilgængelig for mødemails.
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.