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 모든 폴더에 총 항목 수가 표시됨 기능을 사용하면 한 번의 클릭으로 모든 폴더의 총 항목 수를 표시 할 수 있습니다.
관련 기사
최고의 사무 생산성 도구
Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능
🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...
📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능) / 이메일 보내기 예약 / 이메일 발송 시 규칙에 따른 자동 참조/숨은참조 / 자동 전달(고급 규칙) / 인사말 자동 추가 / 여러 수신자 이메일을 개별 메시지로 자동 분할 ...
📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다. / 제목 및 기타 사기 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 통합 ...
📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘 / 탭 보기로 Outlook 생산성 향상 / 문을 닫는 대신 전망을 최소화하세요 ...
???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신 / 피싱 방지 이메일 / 🕘발신자의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...
이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.