Outlook VBA를 통해 폴더 및 모든 하위 폴더의 총 항목 수를 빠르게 가져 오는 방법

Outlook 솔루션 2025 년 9 월 29 일

특정 폴더 아래에 여러 하위 폴더가 있고 이제이 폴더와 모든 하위 폴더의 항목을 계산하려는 경우이 문서에서 소개 한 방법을 사용할 수 있습니다.

일반적으로 한 폴더에있는 총 항목 수를 확인하려면 두 가지 방법이 있습니다. 하나는이 폴더를 선택하는 것입니다. 그러면 상태 표시 줄의 왼쪽 아래 모서리에서 항목 수를 볼 수 있습니다. 다른 하나는 폴더 속성을 변경하여 총 항목 수를 표시하도록 설정하는 것입니다. 그러나이 폴더 아래에 여러 개의 하위 폴더가있는 경우 위의 두 가지 방법으로 계산에 하위 폴더를 포함 할 수 없습니다. 따라서 폴더 및 모든 하위 폴더에있는 항목의 총 개수를 얻으려면 다음과 같은 다른 방법을 찾아야합니다. 이러한 총계를 빠르게 달성하기 위해 VBA 코드를 사용하고 있습니다. 자세한 단계와 VBA 코드를 얻으려면 계속 읽으십시오.

폴더 및 모든 하위 폴더의 총 항목 수 가져 오기

처음에는 다음을 수행 할 수 있습니다.tart 평소와 같이 Outlook 프로그램.
그런 다음 "Alt + F11"키 버튼을 눌러 Outlook VBA 편집기를 표시합니다.
다음으로 빈 모듈을 열 수 있습니다.
그런 다음 다음 VBA 코드를 복사하여이 모듈에 붙여 넣습니다.

Sub CountItems()
    Dim objMainFolder As Outlook.Folder
    Dim lItemsCount As Long
 
    'Select a folder
    Set objMainFolder = Outlook.Application.Session.PickFolder
 
    If objMainFolder Is Nothing Then
       MsgBox "You choose select a valid folder!", vbExclamation + vbOKOnly, "Warning for Pick Folder"
    Else
       'Initialize the total count
       lItemsCount = 0
       Call LoopFolders(objMainFolder, lItemsCount)
    End If
 
    'Display a message for the total count
    MsgBox "There are " & lItemsCount & " items in the " & objMainFolder.Name & " folder Including its subfolders.", vbInformation, "Count Items"
End Sub

Sub LoopFolders(ByVal objCurrentFolder As Outlook.Folder, lCurrentItemsCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    lCurrentItemsCount = lCurrentItemsCount + objCurrentFolder.Items.Count
 
    'Process all folders and subfolders recursively
    If objCurrentFolder.Folders.Count Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call LoopFolders(objSubfolder, lCurrentItemsCount)
       Next
    End If
End Sub

그런 다음 Outlook 매크로 보안 수준을 낮음으로 변경해야합니다.
마지막으로 시도해 볼 수 있습니다.

새 매크로 창에서 F5 키 버튼을 누릅니다.
한 번에 폴더를 선택해야합니다.
즉시 아래 그림과 같이 선택한 폴더와 모든 하위 폴더에있는 항목의 총 개수를 묻는 새 메시지가 표시됩니다.

시간 내에 오래된 항목 보관

가능한 한 빨리 PST 파일에 이전 항목을 보관하는 것이 좋습니다. 그렇지 않으면이 파일에 점점 더 많은 항목이 누적되어 오류와 손상이 발생하기 쉽습니다. PST 파일이 손상되면 복구에 많은 노력을 기울일 것입니다. 손상된 Outlook 데이터. 다음과 같은 경험이 풍부한 도구로 돌아 가지 않는 한 꽤 어려울 것입니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 부정한 SQL Server 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM