특정 이메일 계정 또는 Outlook의 모든 메일박스 아래 폴더 수를 어떻게 계산합니까?

이 문서는 특정 이메일 계정 또는 Outlook의 모든 메일박스 아래 폴더 수를 계산하는 방법에 대해 설명합니다.

VBA 코드로 특정 이메일 계정 또는 모든 메일박스 아래 폴더 수 계산하기

"VBA 코드로 특정 이메일 계정 또는 모든 메일박스 아래 폴더 수 계산하기"

아래 VBA 코드를 사용하여 특정 이메일 계정 또는 모든 메일박스 아래 폴더 수를 계산할 수 있습니다. 다음 단계를 따르세요.

1. "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

2. "Microsoft Visual Basic for Applications" 창에서 "삽입" > "사용자 정의 양식"을 클릭합니다. 스크린샷 보기:

3. 그런 다음 "UserForm1"에 두 개의 "옵션 버튼"과 두 개의 "명령 버튼"을 삽입하고, 아래 스크린샷에 표시된 대로 버튼의 표시 텍스트를 변경합니다.

4. 첫 번째 옵션 버튼의 이름을 “opbCurAccount”로 변경하고 "값" 속성을 "True"로 설정합니다. 스크린샷 보기:

5. 두 번째 옵션 버튼의 이름을 "opbAllAccounts"로 계속 변경합니다. 그리고 두 명령 버튼의 이름을 각각 "cdbOk”와 ”cdbCancel"로 지정합니다.

6. UserForm1의 아무 빈 공간을 두 번 클릭한 후, Userform1 (코드) 창에서 원래 코드를 아래 VBA 코드로 바꿉니다.

VBA 코드: Outlook에서 폴더 수 계산하기

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. 코드를 실행하기 위해 "F5" 키를 누릅니다. 그런 다음 "UserForm1" 대화 상자가 나타나며, 현재 계정의 폴더 수를 계산하려면 "현재 계정" 옵션을 선택하고 "확인" 버튼을 클릭하세요. 모든 메일박스의 폴더 수를 계산하려면 "모든 계정" 옵션을 선택하고 "확인" 버튼을 클릭하세요. 스크린샷 보기:

9. 그런 다음 "Kutools for Outlook" 대화 상자가 나타나 현재 계정 또는 모든 메일박스에 존재하는 폴더 수를 알려줍니다. 아래 스크린샷을 참조하세요. "확인" 버튼을 클릭하세요.

메모: 대화 작업 설정 폴더 및 빠른 단계 설정 폴더와 같은 모든 숨겨진 폴더가 폴더 계산에 포함됩니다.

아웃룩의 AI 메일 도우미: 더 스마트한 답장, 더 명확한 커뮤니케이션 (한 번의 클릭으로 끝내기!) ⚡ 무료

Kutools for Outlook의 AI 메일 도우미로 매일 처리하는 아웃룩 작업을 간소화하세요. 이 강력한 도구는 과거 이메일을 학습하여 지능적이고 정확한 답변을 제공하고, 이메일 내용을 최적화하며, 초안 작성 및 메시지 수정을 쉽게 도와줍니다.

이 기능은 다음을 지원합니다:

• 스마트 답장: 과거 대화를 기반으로 맞춤형, 정확한 답변을 받아보세요. 바로 사용할 수 있습니다.
• 개선된 콘텐츠: 이메일 텍스트를 자동으로 다듬어 명확도와 영향력을 높여보세요.
• 손쉬운 작문: 키워드만 제공하면 AI가 나머지를 처리해 다양한 작문 스타일로 도와줍니다.
• 지능적인 확장: 맥락에 맞는 제안으로 생각을 확장하세요.
• 요약 기능: 긴 이메일의 간결한 요약본을 즉시 받아보세요.
• 글로벌 도달: 이메일을 손쉽게 다른 언어로 번역하세요.

이 기능은 다음을 지원합니다:

• 스마트 이메일 답장
• 최적화된 콘텐츠
• 키워드 기반 초안 작성
• 지능적인 콘텐츠 확장
• 이메일 요약
• 다국어 번역

가장 좋은 점은 이 기능이 영원히 완전 무료라는 것입니다! 기다리지 말고 지금 AI 메일 도우미를 다운로드하고 즐겨보세요!

관련 기사:

• Outlook에서 폴더를 선택하기 위한 "폴더 찾아보기" 대화 상자를 표시하는 방법은 무엇입니까?