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

Author: Xiaoyang Last Modified: 2025-06-10

Outlook'un Gelen Kutusu'nda birden fazla okunmamış e-posta varsa, bunların hepsini mümkün olduğunca hızlı bir şekilde tek seferde nasıl açabilirsiniz?

Belirli bir Gelen Kutusu veya diğer klasördeki tüm okunmamış e-postaları VBA kodu ile açın

"Belirli bir Gelen Kutusu veya diğer klasördeki tüm okunmamış e-postaları VBA kodu ile açın

Aşağıdaki VBA kodu, Gelen Kutusu'nuzda veya başka belirli bir klasördeki tüm okunmamış e-postaları tek seferde açmanıza yardımcı olabilir. Lütfen aşağıdaki adımları izleyin:

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

2. Sonra "ALT + F11" tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.

3. Ardından, "Ekle" > "Modül" üzerine tıklayın, 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: Belirli bir klasördeki tüm okunmamış e-postaları açma

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

4. Ve sonra, bu kodu çalıştırmak için "F5" tuşuna basın ve belirlenen klasördeki tüm okunmamış e-postalar anında açılacaktır. En sonunda, kaç tane okunmamış e-postanın açıldığını bildiren bir uyarı kutusu çıkacak, ekran görüntüsüne bakın: