메인 컨텐츠로 가기

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

일반적으로 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 - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

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

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

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

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

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

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

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

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
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations