쿠키는 우리의 서비스를 제공 도움이됩니다. 우리의 서비스를 사용하면 쿠키의 우리의 사용에 동의합니다.
팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
등록하기
x

or

Outlook에서 모든 하위 폴더를 여는 방법은 무엇입니까?

Outlook 폴더 아래에 여러 하위 폴더를 만드는 경우 이러한 하위 폴더를 모두 열거 나 확장하는 방법은 무엇입니까? 이 기사에서는이 작업을 해결할 수있는 유용한 VBA 코드를 소개합니다.

VBA 코드로 Outlook의 모든 하위 폴더를 열거 나 확장하십시오.


VBA 코드로 Outlook의 모든 하위 폴더를 열거 나 확장하십시오.

모든 Outlook 계정의 모든 하위 폴더를 확장하려면 다음 VBA 코드를 적용하십시오.

1. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈다음 매크로를 모듈 창에 붙여 넣습니다.

VBA 코드 : Outlook에서 모든 하위 폴더 열기 :

하위 ExpandAllMailFolders () Dim xCurrentFolder 폴더로 Dim xAllFolders 폴더로 Dim xFolder On Folder 오류시 다음 세트 다시 시작 xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Application.Session.Folders xAllFolders의 각 xFolder에 대해 ProcessFolders (xFolder)를 호출합니다. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolders (폴더로 ByVal CurFolder) 폴더에 오류가있을 때 Dim xSubfolder 다음에 다시 시작 CurFolder.DefaultItemType <> olMailItem 그런 다음 Sub Set를 종료합니다. Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents If CurFolder.Folders.Count = 0 그런 다음 CurFolder.Folders의 각 xSubfolder에 대해 Exit Sub를 호출합니다. ProcessFolders (xSubfolder)를 호출합니다. 다음 End Sub

3. 그런 다음 F5 이 코드를 실행하기위한 키. Outlook의 모든 계정에있는 모든 하위 폴더가 확장되었습니다. 스크린 샷보기 :

doc 하위 폴더 1 확장



Outlook 용 Kutools

Outlook 100, 2010, 2013, 2016 및 2019 용 365 고급 기능 이상

배너 201812를 위해 작은 전망을위한 스크린 샷 kutools

더 많은 특징 | 무료 다운로드 | 수백 개의 함수에 대해서만 $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.