팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
등록하기
x

or

Outlook에서 모든 폴더 및 하위 폴더의 목록을 내보내고 인쇄하는 방법?

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

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

일반적으로 Outlook에서는 탐색 창의 각 폴더에있는 읽지 않은 항목의 수를 표시합니다. 그러나 Outlook 용 Kutools 모든 폴더에 총 항목 수 표시 기능을 사용하면 단 한 번의 클릭으로 모든 폴더에있는 항목의 총 수를 표시 할 수 있습니다. 제한없이 60 일 무료 평가판을 보려면 클릭하십시오!
모든 폴더에 총 개수가 표시됩니다. kto 9.00

Outlook 용 Kutools: 100 + 새로운 고급 도구 Outlook 용.
사무실 탭: Office에서 탭 편집 및 찾아보기 사용, Chrome, Firefox, IE 8 / 9 / 10과 똑같이.
클래식 메뉴: 이전 메뉴 및 도구 모음 가져 오기 Office 2007, 2010, 2013, 2016 및 2019.

화살표 오른쪽 파란색 거품 새 전자 메일에서 모든 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 용 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.