Note: The other languages of the website are Google-translated. Back to English

Outlook에서 모든 빈 폴더를 일괄 삭제하는 방법은 무엇입니까?

Outlook의 메일 폴더 아래에 빈 폴더가 수십 개 있다고 가정하면 일반적으로 메뉴를 마우스 오른쪽 버튼으로 클릭하여 빈 폴더를 하나씩 삭제할 수 있습니다. 반복적으로 마우스 오른쪽 단추를 클릭하는 것과 비교하여이 문서에서는 한 Outlook 폴더의 모든 빈 하위 폴더를 대량으로 빠르게 삭제하는 VBA를 소개합니다.

VBA를 사용하여 Outlook의 모든 빈 폴더 일괄 삭제

Office 탭-Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Outlook 용 Kutools-Microsoft Outlook에 100 개의 강력한 고급 기능 제공
  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 규칙에 따른 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -메일 주소가 숨은 참조 목록에있는 경우 모두 답장하려고 할 때 메시지를 표시합니다. 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 모든 첨부 파일로 회신 (전체) 메일 대화에서; 한 번에 많은 이메일에 답장하십시오. 인사말 자동 추가 대답 할 때; 제목에 날짜 및 시간 자동 추가 ...
  • 부착 도구: 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 자동 저장 ... 빠른 보고서, 선택한 메일 수, 중복 메일 및 연락처 제거 ...
  • 100개 이상의 고급 기능이 대부분의 문제 해결 Outlook 2021 - 2010 또는 Office 365에서. 전체 기능은 60일 무료 평가판입니다.

화살표 블루 오른쪽 거품VBA를 사용하여 Outlook의 모든 빈 폴더 일괄 삭제

특정 Outlook 폴더의 빈 하위 폴더를 모두 제거하려면 다음과 같이하십시오.

1. 프레스 다른 + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2. 딸깍 하는 소리 끼워 넣다 > 모듈, VBA 코드 아래에 새 모듈 창에 붙여 넣습니다.

VBA : 특정 Outlook 폴더의 모든 빈 하위 폴더를 대량으로 삭제

Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder 'Declare sub folder objects
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then 'If the folder is empty check for subfolders
If xFldr.Folders.Count < 1 Then 'If the folder contains not sub folders confirm deletion
xFldr.Delete 'Delete the folder
xFlag = True
xCount = xCount + 1
Else 'Folder contains sub folders so confirm deletion
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else 'Folder contains items or (subfolders that may be empty).
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub

3. 프레스 F5 키 또는 달리기 버튼을 눌러이 VBA 코드를 실행합니다.

4. 폴더 선택 대화 상자가 나타나면 빈 하위 폴더를 대량으로 삭제할 특정 폴더를 선택하고 OK 단추. 스크린 샷보기 :

5. 이제 Outlook 용 Kutools 대화 상자가 나타나고 얼마나 많은 빈 하위 폴더가 삭제되었는지 보여줍니다. 클릭 OK 버튼을 눌러 닫습니다.

지금까지는 지정된 Outlook 폴더의 모든 하위 폴더가 이미 대량으로 삭제되었습니다.


화살표 블루 오른쪽 거품관련 기사

Outlook에서 폴더 이름으로 폴더 (전체 폴더 경로) 찾기


Outlook 용 Kutools-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
코멘트 (10)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
훌륭한!!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
위의 " 런타임 오류 '-2147352567 (80020009)'를 실행할 때 다음 오류가 발생합니다. 이 폴더를 삭제할 수 없습니다. 폴더를 마우스 오른쪽 버튼으로 클릭한 다음 속성을 클릭하여 폴더에 대한 권한을 확인하십시오. 폴더 소유자를 참조하거나 관리자가 권한을 변경하십시오"

스크립트가 1개 항목을 삭제된 폴더로 이동한 다음 오류가 발생한 것으로 보입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
동의 - 동일한 오류가 발생합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
스크립트는 이미 삭제된 폴더를 삭제하려고 합니다.
이 내용으로 xFlag = False 뒤에 행을 추가했습니다.
오류 시 다음 재개
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
실제로 다음을 추가하십시오.

오류에 대한 다음 재개

후:

Dim x Fldr As Folder '하위 폴더 개체 선언
xFlag = 거짓

다음과 같이 표시되어야합니다.

Dim x Fldr As Folder '하위 폴더 개체 선언
xFlag = 거짓
오류에 대한 다음 재개
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Bryan과 같은 오류가 발생합니다. 지금은?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
스크립트는 이미 삭제된 폴더를 삭제하려고 합니다.
이 내용으로 xFlag = False 뒤에 행을 추가했습니다.
오류 시 다음 재개
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매우 쉽고 매우 유용합니다. 고맙습니다!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
74개의 빈 폴더가 삭제되었지만 불행히도 109개의 폴더도 삭제되지 않았습니다. 다른 빈 폴더는 그대로 두었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 저에게 효과적이었습니다. 고맙습니다. 일부 폴더는 Outlook의 기본 폴더이므로 삭제할 수 없지만 하위 폴더는 잘 작동합니다.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호