Wie öffne ich alle ungelesenen E-Mails in Outlook?

Wenn sich in Ihrem Posteingang des Outlooks mehrere ungelesene E-Mail-Nachrichten befinden, wie können Sie alle öffnen, um sie so schnell wie möglich gleichzeitig zu lesen?

Öffnen Sie alle ungelesenen E-Mail-Nachrichten in einem bestimmten Posteingang oder einem anderen Ordner mit VBA-Code

Öffnen Sie alle ungelesenen E-Mail-Nachrichten in einem bestimmten Posteingang oder einem anderen Ordner mit VBA-Code

Der folgende VBA-Code kann Ihnen dabei helfen, alle ungelesenen E-Mail-Nachrichten in Ihrem Posteingang oder einem anderen bestimmten Ordner auf einmal zu öffnen. Führen Sie dazu bitte die folgenden Schritte aus:

1. Zunächst sollten Sie einen Ordner auswählen, aus dem Sie alle ungelesenen E-Mails öffnen möchten.

doc öffne alle ungelesenen eamils 1

2. Dann halten Sie die ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3. Und dann klicken Insert > Modul, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein, siehe Screenshot:

VBA-Code: Alle ungelesenen E-Mail-Nachrichten in einem bestimmten Ordner öffnen:

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

doc öffne alle ungelesenen eamils 2

4. Und dann drücken F5 Geben Sie die Taste ein, um diesen Code auszuführen, und alle ungelesenen E-Mails werden auf einmal im angegebenen Ordner geöffnet. Zum Schluss erscheint ein Eingabeaufforderungsfeld, das Sie an die Anzahl der geöffneten ungelesenen E-Mails erinnert, siehe Screenshot:

doc öffne alle ungelesenen eamils 3