Outlook의 받은 편지함과 같은 특정 폴더 아래에 많은 수의 하위 폴더를 만들었을 수 있습니다. 이 경우 하위 폴더를 계산하려면 수동으로 계산하는 것을 꺼려해야 합니다. 여기서 우리는 당신에게 훨씬 더 똑똑한 방법을 공유할 것입니다.

Outlook에서 항목을 더 잘 분류하고 보관하기 위해 많은 사용자가 다양한 폴더와 하위 폴더를 만드는 데 익숙합니다. 그러나 나중에 너무 많은 폴더를 관리하는 것이 조금 어렵다고 생각할 수 있습니다. 이 경우 특정 폴더 아래에 있는 하위 폴더 수를 세고 싶을 수 있습니다. 의심의 여지없이 수동으로 계산하는 것은 어리석고 지루합니다. 따라서 다음에서는 훨씬 더 지능적인 수단을 제시합니다.
특정 폴더 아래의 총 하위 폴더 수 가져오기
- 처음에는 start Outlook 프로그램.
- 그런 다음 Outlook 창에서 "Alt + F11" 키 버튼을 눌러 VBA 편집기에 액세스할 수 있습니다.
- 다음으로 팝업 창에서 사용하지 않는 모듈을 열어야 합니다.
- 그런 다음 다음 VBA 코드를 복사하여이 모듈에 붙여 넣습니다.
Sub CountSubfoldersUnderRootFolder()
Dim objRootFolder As Folder
Dim lFolderCount As Long
Dim objFolder As Object
'Get the current folder
Set objRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
'If you want to select, use the following line instead
'Set objRootFolder = Outlook.Application.Session.PickFolder
If objRootFolder.Folders.count > 0 Then
For Each objFolder In objRootFolder.Folders
'Exclude the hidden folders under Inbox
If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
lFolderCount = lFolderCount + 1
'Process subfolders recursively
Call ProcessFolders(objFolder, lFolderCount)
End If
Next
MsgBox lFolderCount & " subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
Else
MsgBox "No subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
End If
End Sub
Sub ProcessFolders(objCurrentFolder As Object, lCount As Long)
Dim objSubfolder As Object
lCount = lCount + objCurrentFolder.Folders.count
For Each objSubfolder In objCurrentFolder.Folders
Call ProcessFolders(objSubfolder, lCount)
Next
End Sub
- 그 후에 현재 창을 종료 할 수 있습니다.
- 나중에 "파일" > "옵션" > "빠른 액세스 도구 모음"으로 이동합니다. 여기에서 빠른 실행 도구 모음에 새 매크로를 추가할 수 있습니다.
- 마지막으로이 매크로를 시도해 볼 수 있습니다.
- 먼저 카운트할 하위 폴더가 있는 폴더를 선택합니다.
- 그런 다음 빠른 실행 도구 모음에서 매크로 버튼을 클릭합니다.
- 즉시 Outlook에서 이 매크로를 실행합니다.
- 매크로가 완료되면 다음 이미지와 같은 메시지가 표시됩니다.
Outlook 손상에 대처하는 요령
Outlook은 바이러스, 소프트웨어 또는 하드웨어 문제, 정전 등을 포함한 많은 요인에 매우 취약합니다. 누구도 Outlook 파일이 손상되지 않도록 유지할 수 있다고 보장할 수 없습니다. 따라서 손상에 대처하는 몇 가지 트릭을 마스터하는 것이 필수적입니다. 첫째, 정기적인 PST 백업을 만들어야 합니다. 또한 활용 방법을 알아야합니다. 스캔프스트, 내장 수리 도구. 마지막으로 다음과 같은 보다 강력한 외부 도구를 준비해야 합니다. DataNumen Outlook repair.
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. mdf 수정 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM


