Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

 Kako odpreti vsa neprebrana e-poštna sporočila v programu Outlook?

Če je v mapi »Prejeto« v Outlooku več neprebranih e-poštnih sporočil, kako lahko odprete vsa, da jih lahko preberete hkrati, kakor hitro je mogoče?

Odprite vsa neprebrana e-poštna sporočila v določeni mapi Prejeto ali drugi mapi s kodo VBA

Odprite vsa neprebrana e-poštna sporočila v določeni mapi Prejeto ali drugi mapi s kodo VBA

Naslednja koda VBA vam lahko pomaga, da hkrati odprete vsa neprebrana e-poštna sporočila v mapi »Prejeto« ali v določeni mapi, tako da sledite spodnjim korakom:

1. Najprej izberite mapo, iz katere želite odpreti vsa neprebrana e-poštna sporočila.

odpiranje vseh neprebranih e-poštnih sporočil 1

2. Nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: Odprite vsa neprebrana e-poštna sporočila v določeni mapi:

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

odpiranje vseh neprebranih e-poštnih sporočil 2

4. In nato pritisnite F5 ključ za zagon te kode in vsa neprebrana e-poštna sporočila se bodo hkrati odprla v določeni mapi, končno se bo pojavilo pozivno polje, ki bo opozorilo na število neprebranih e-poštnih sporočil, ki se odprejo, glejte posnetek zaslona:

odpiranje vseh neprebranih e-poštnih sporočil 3

Opombe: Ta koda ni na voljo za e-poštna sporočila.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    srinivasan · 3 months ago
    my mails not opening .since 10days. please help me sir.