Outlook 메시지 수를 Excel 통합 문서으로 내보내는 방법은 무엇입니까？

일반적으로 가져오기/내보내기 기능을 사용하여 Outlook 메시지를 Excel 파일로 빠르고 쉽게 내보낼 수 있습니다。 그러나 특정 이메일 계정의 모든 폴더에 있는 항목 수를 세어 그 결과를 Excel 통합 문서으로 내보낸 적이 있습니까？

VBA 코드를 사용하여 Outlook 메시지 수를 Excel 통합 문서으로 내보내기

---

VBA 코드를 사용하여 Outlook 메시지 수를 Excel 통합 문서으로 내보내기

다음 VBA 코드를 사용하면 특정 이메일 계정의 모든 폴더에서 개수 결과를 Excel 통합 문서으로 내보낼 수 있습니다。 다음 단계를 따라 주십시오：

1. 「ALT + F11」 키를 누른 상태로 「Microsoft Visual Basic for Applications」 창을 엽니다。

2. 「삽입(Insert)」 > 「모듈(Module)」을 클릭하고， 다음 코드를 「모듈(Module)」 창에 붙여넣습니다。

VBA 코드： Outlook 항목 수를 Excel 통합 문서으로 내보내기

Sub Export_CountOfItems_InEachFolder_toExcel()
    Dim xSourceFolder As Outlook.Folder, xSubFolder As Outlook.Folder
   Dim xFilePath As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    On Error Resume Next
    Set xExcelApp = New Excel.Application
    Set xWb = xExcelApp.Workbooks.Add
    Set xWs = xWb.Sheets(1)
    xWs.Cells(1, 1) = "Folder"
    xWs.Cells(1, 2) = "Count Items"
    Set xSourceFolder = Outlook.Application.Session.PickFolder
    If xSourceFolder = nill Then
        xWb.Close False
        xExcelApp.Quit
        Exit Sub
    End If
    For Each xSubFolder In xSourceFolder.Folders
        Call ProcessFolders(xWs, xSubFolder)
    Next
    xWs.Columns("A:B").AutoFit
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
   If TypeName(xFolder) = "Nothing" Then
        xWb.Close False
        xExcelApp.Quit
        Exit Sub
    End If
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    xFilePath = xFilePath & xSourceFolder.Name & "(" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
    xWb.Close True, xFilePath
    xExcelApp.Quit
    Set xShell = Nothing
    MsgBox "Complete!", vbExclamation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal Ws As Worksheet, ByVal xCurFolder As Outlook.Folder)
    Dim xSubFld As Folder
    Dim xItemCount As Long
   Dim xRow As Integer
    xItemCount = xCurFolder.Items.Count
    xRow = Ws.UsedRange.Rows.Count + 1
    Ws.Cells(xRow, 1) = xCurFolder.FolderPath
    Ws.Cells(xRow, 2) = xItemCount
    If xCurFolder.Folders.Count > 0 Then
       For Each xSubFld In xCurFolder.Folders
           Call ProcessFolders(Ws, xSubFld)
       Next
    End If
End Sub

3. 계속해서 「Microsoft Visual Basic for Applications」 창에서 「도구(Tools)」 > 「참조(References)」를 클릭하여 “References-Project1" 대화상자를 연 후， 「사용 가능한 참조(Available References)」 목록 상자에서 「Microsoft Excel Object Library」 옵션을 선택합니다。 스크린샷 참조：

4. 그런 다음 「확인(OK)」을 클릭하고 “F5" 키를 눌러 이 코드를 실행합니다。 그러면 「폴더 선택(Select Folder)」 창이 나타나며， 항목 수를 내보내려는 이메일 계정을 선택하세요합니다。 스크린샷 참조：

5. 그런 다음 「확인(OK)」을 클릭하면 또 다른 「폴더 찾아보기(Browse For Folder)」 창이 표시됩니다。 Excel 파일을 저장할 폴더를 선택하십시오。 스크린샷 참조：

6. 마지막으로 「확인(OK)」 버튼을 클릭하면 선택한 계정의 모든 폴더에 있는 항목 수가 Excel 통합 문서으로 내보내집니다。 Excel 파일을 열어 결과를 확인할 수 있습니다。 스크린샷 참조：