Outlook'ta tüm okunmamış e-postaları nasıl açarım?

Outlook Gelen Kutunuzda birden çok okunmamış e-posta iletisi varsa, hepsini olabildiğince hızlı bir şekilde okumak için nasıl açabilirsiniz?

VBA kodu ile belirli bir Gelen Kutusu veya başka bir klasördeki tüm okunmamış e-posta mesajlarını açın

VBA kodu ile belirli bir Gelen Kutusu veya başka bir klasördeki tüm okunmamış e-posta mesajlarını açın

Aşağıdaki VBA kodu, Gelen Kutunuzdaki veya diğer belirli bir klasördeki tüm okunmamış e-posta mesajlarını bir kerede açmanıza yardımcı olabilir, lütfen aşağıdaki adımları uygulayın:

1. Öncelikle, okunmamış tüm e-postaları açmak istediğiniz bir klasör seçmelisiniz.

doc okunmamış tüm eamilleri aç 1

2. Sonra basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. Ve sonra tıklayın Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın, ekran görüntüsüne bakın:

VBA kodu: Okunmamış tüm e-posta mesajlarını belirli bir klasörde açın:

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 okunmamış tüm eamilleri aç 2

4. Ve sonra F5 Bu kodu çalıştırmak için anahtar ve tüm okunmamış e-postalar belirtilen klasörde bir kerede açılacak, sonunda, açılan okunmamış e-postaların sayısını hatırlatmak için bir istem kutusu açılacak, ekran görüntüsüne bakın:

doc okunmamış tüm eamilleri aç 3