Outlook 에서 읽지 않은 모든 이메일을 여는 방법은 무엇입니까？

Outlook 받은 편지함에 읽지 않은 이메일이 여러 개 있다면， 가능한 한 빠르게 한 번에 모두 열어 읽으려면 어떻게 해야 합니까？

VBA 코드를 사용하여 특정 받은 편지함이나 다른 폴더의 읽지 않은 모든 이메일 메시지 열기

---

"VBA 코드를 사용하여 특정 받은 편지함이나 다른 폴더의 읽지 않은 모든 이메일 메시지 열기

다음 VBA 코드를 사용하면 받은 편지함이나 지정한 특정 폴더에 있는 읽지 않은 모든 이메일 메시지를 한 번에 열 수 있습니다。 아래 단계에 따라 진행하세요：

1. 먼저 읽지 않은 모든 이메일을 열고자 하는 폴더를 폴더 선택 해야 합니다。

2. 그런 다음 「ALT + F11」 키를 누른 상태로 「Microsoft Visual Basic for Applications」 창을 엽니다。

3. 그리고 「삽입(Insert)」 > 「모듈(Module)」을 클릭한 후 아래 코드를 열린 빈 모듈에 복사하여 붙여넣습니다。 스크린샷 참조：

VBA 코드： 특정 폴더의 읽지 않은 모든 이메일 메시지 열기

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. 그런 다음 “F5" 키를 눌러 이 코드를 실행하면 지정한 폴더의 읽지 않은 모든 이메일이 한 번에 열리며， 마지막으로 열린 읽지 않은 이메일 수를 알리는 메시지 상자가 표시됩니다。 스크린샷 참조：

참고： 이 코드는 회의 관련 이메일에는 적용되지 않습니다。