Πώς να ανοίξετε όλα τα μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook;

Εάν υπάρχουν πολλά μη αναγνωσμένα μηνύματα email στα Εισερχόμενά σας του Outlook, πώς θα μπορούσατε να ανοίξετε όλα αυτά για να τα διαβάσετε ταυτόχρονα όσο πιο γρήγορα μπορείτε;

Ανοίξτε όλα τα μη αναγνωσμένα μηνύματα email σε ένα συγκεκριμένο Inbox ή άλλο φάκελο με κωδικό VBA

Ανοίξτε όλα τα μη αναγνωσμένα μηνύματα email σε ένα συγκεκριμένο Inbox ή άλλο φάκελο με κωδικό VBA

Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να ανοίξετε όλα τα μη αναγνωσμένα μηνύματα email στα Εισερχόμενά σας ή σε άλλο συγκεκριμένο φάκελο ταυτόχρονα, κάντε τα παρακάτω βήματα:

1. Αρχικά, πρέπει να επιλέξετε έναν φάκελο από τον οποίο θέλετε να ανοίξετε όλα τα μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου.

doc ανοίξτε όλα τα μη αναγνωσμένα eamils 1

2. Στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην ανοιχτή κενή ενότητα, δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Άνοιγμα όλων των μη αναγνωσμένων μηνυμάτων email σε συγκεκριμένο φάκελο:

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 ανοίξτε όλα τα μη αναγνωσμένα eamils 2

4. Και μετά, πατήστε F5 κλειδί για να εκτελέσετε αυτόν τον κώδικα και όλα τα μη αναγνωσμένα μηνύματα ηλεκτρονικού ταχυδρομείου θα ανοίξουν στον καθορισμένο φάκελο αμέσως, επιτέλους, θα εμφανιστεί ένα παράθυρο προτροπής για να υπενθυμίσει τον αριθμό των μη αναγνωσμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου που ανοίγουν, δείτε στιγμιότυπο οθόνης:

doc ανοίξτε όλα τα μη αναγνωσμένα eamils 3