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

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-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
코멘트 (2)
5에서 평가 된 5 · 1 등급
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
가장 훌륭한 팁. 고맙습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
많은 시간을 절약했습니다. 자세한 지침에 감사드립니다. 매력처럼 일했습니다! :)
5에서 평가 된 5
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

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