Cum se deschid toate e-mailurile necitite în Outlook?

Dacă există mai multe mesaje de e-mail necitite în Mesaje primite din Outlook, cum le-ați putea deschide pe toate pentru a le citi dintr-o dată cât de repede puteți?

Deschideți toate mesajele de e-mail necitite într-o anumită căsuță de e-mail sau alt dosar cu cod VBA

Deschideți toate mesajele de e-mail necitite într-o anumită căsuță de e-mail sau alt dosar cu cod VBA

Următorul cod VBA vă poate ajuta să deschideți simultan toate mesajele de e-mail necitite din Mesaje primite sau alt dosar specific, vă rugăm să urmați pașii de mai jos:

1. Mai întâi, ar trebui să selectați un folder din care doriți să deschideți toate e-mailurile necitite.

doc deschide toate eamilurile necitite 1

2. Apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis, vedeți captura de ecran:

Cod VBA: Deschideți toate mesajele de e-mail necitite într-un folder specific:

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 deschide toate eamilurile necitite 2

4. Și apoi, apăsați F5 tasta pentru a rula acest cod și toate e-mailurile necitite vor fi deschise simultan în folderul specificat, în cele din urmă, va apărea o casetă de prompt pentru a reaminti numărul de e-mailuri necitite care sunt deschise, a se vedea captura de ecran:

doc deschide toate eamilurile necitite 3