메인 컨텐츠로 가기

Outlook의 모든 폴더 및 하위 폴더 목록을 내보내고 인쇄하는 방법은 무엇입니까?

저자: 켈리 최종 수정 날짜: 2020-12-11

일반적으로 Ctrl 키 + 6 키를 눌러 Outlook의 탐색 창에있는 모든 폴더 목록을 봅니다. 그러나 폴더 목록은 인쇄 할 수 없습니다. 이 기사에서는 Outlook의 모든 폴더 및 하위 폴더 목록을 내보내고 인쇄하는 두 가지 VBA 스크립트를 소개합니다.


모든 Outlook 폴더 및 하위 폴더 목록을 새 전자 메일로 내보내고 인쇄합니다.

이 방법은 지정된 전자 메일 계정의 모든 폴더 및 하위 폴더 목록을 Outlook의 새 전자 메일로 내보내는 VBA를 도입 한 다음 폴더 목록을 쉽게 인쇄 할 수 있습니다.

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

2. 클릭 끼워 넣다 > 모듈을 클릭 한 다음 VBA 코드 아래에 새 모듈 창에 붙여 넣습니다.

VBA : Outlook의 새 이메일에서 폴더 및 하위 폴더 목록 내보내기

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.mailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)

Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

    For i = CurrentFolder.Folders.Count To 1 Step -1
Set oFolder = CurrentFolder.Folders(i)

sFolderPaths = oFolder.FolderPath
gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
If oSubFolder.Name <> "Deleted Items" Then
ProcessFolder oSubFolder
End If

Next

End Sub

3. 프레스 F5 이 VBA를 실행하는 키입니다.

4. 폴더 선택 대화 상자가 나타나면 폴더 목록을 인쇄하려는 이메일 계정을 선택하고 OK 단추. 스크린 샷보기 :

5. 이제 지정된 이메일 계정의 폴더 목록이 아래 스크린 샷과 같이 새 이메일에 복사됩니다. 클릭하세요 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 인쇄 복사 된 폴더 목록을 인쇄합니다.

6. 인쇄 후 저장하지 않고 새 이메일을 닫으십시오.


메모장의 하위 폴더에있는 모든 Outlook 폴더 목록을 내보내고 인쇄합니다.

이 방법은 지정된 전자 메일 계정의 모든 폴더 및 하위 폴더 목록을 Outlook에서 메모장으로 내보내는 VBA를 도입 한 다음 메모장에서 Outlook 폴더 목록을 쉽게 인쇄 할 수 있습니다.

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

2. 클릭 끼워 넣다 > 모듈을 클릭 한 다음 VBA 코드 아래에 새 모듈 창에 붙여 넣습니다.

VBA : Outlook에서 메모장으로 모든 Outlook 폴더 및 하위 폴더 목록 내보내기

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

  Set objOutlook = CreateObject("Outlook.Application")

  Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
Set Folders = F.Folders

    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
If Result = 6 Then
gCreateTree = True
Else
gCreateTree = False
End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))

LoopFolders Folders

Set F = Nothing
Set Folders = Nothing
Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F

For Each F In Folders
WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
CreateFolderTree = Mid(OLKfolderpath, 3)
Else
Dim i, x, OLKprefix
i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))

    For x = gBase To i
OLKprefix = OLKprefix & "-"
Next

CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3. 프레스 F5 이 VBA를 실행하는 키입니다. 다음으로 폴더 선택 열기 대화 상자에서 폴더 목록을 내보내고 인쇄하려는 이메일 계정을 선택하고 OK 단추. 스크린 샷보기 :

4. 그러면 출력 폴더 트리 대화 상자가 나타납니다. 클릭하십시오 가능 버튼 또는 아니 당신이 필요로하는 버튼.

이제 다음과 같은 텍스트 파일이 Outlook- 폴더 아래 스크린 샷과 같이 바탕 화면에 생성되고 저장됩니다.

5. 두 번 클릭하여 새 텍스트 파일을 연 다음 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 인쇄 내 보낸 Outlook 폴더 목록을 인쇄합니다.

한 번의 클릭으로 Outlook의 탐색 창에있는 모든 폴더의 총 항목 수를 표시합니다.

일반적으로 Outlook은 탐색 창에있는 각 폴더의 읽지 않은 항목 수를 표시합니다. 그러나 Outlook 용 Kutools 모든 폴더에 총 항목 수가 표시됨 기능을 사용하면 한 번의 클릭으로 모든 폴더의 총 항목 수를 표시 할 수 있습니다.


모든 폴더는 총 수 kto 9.00을 표시합니다.

관련 기사


최고의 사무 생산성 도구

속보: Outlook용 Kutools 출시 무료 버전!

완전히 새로운 Outlook용 Kutools를 경험해보세요 70개 이상의 놀라운 기능을 갖춘 무료 버전으로 영원히 사용할 수 있습니다.! 지금 다운로드하려면 클릭하세요!

🤖 Kutools AI : AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 자동 회신(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 리콜 이메일  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  중요한 이메일이 오면 알림  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

한 번의 클릭으로 Outlook용 Kutools를 즉시 잠금 해제—영구적으로 무료. 기다리지 마세요. 지금 다운로드하여 효율성을 높이세요!

Outlook 기능을 위한 kutools1 Outlook 기능을 위한 kutools2
 

 

 

Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thank you so much for this very valuable post. It really helped me a lot as outlook is still not able to show the folder structure!
This comment was minimized by the moderator on the site
Saved us a ton of time. Thanks for the detailed instructions. Worked like a charm! :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
Most excellent tip. Thank you!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations