Outlook에 둘 이상의 이메일 계정이 구성되어 있고 각 사서함에 서로 다른 색상 범주가있을 수 있습니다. 모든 사서함의 색상 범주 목록을 Excel로 내보내려는 경우이 문서에 소개 된 방법을 사용할 수 있습니다.
예를 들어 색상 범주를 다른 사람과 공유하거나 다른 사서함의 색상 범주를 비교하려고합니다. 이 시나리오에서는 사서함의 색상 범주 목록을 내보내려고합니다. 여기에서는 VBA 코드를 통해 가져 오는 방법을 알려드립니다. VBA 사용 방법에 대해서는 –“Outlook에서 VBA 코드를 실행하는 방법".
모든 Outlook 사서함의 색상 범주 목록을 Excel로 내보내기
- 먼저 "Alt + F11"을 통해 Outlook VBA 편집기에 액세스합니다.
- 그런 다음 새 창에서“MS Excel Object Librar기사를 참조하여 y "–"개체 라이브러리를 추가하는 방법rary VBA의 참조".
- 다음으로 다음 VBA 코드를 모듈에 넣으십시오.
Sub ExportAllColorCategories()
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim objStores As Outlook.Stores
Dim objStore As Outlook.Store
Dim objCategories As Outlook.Categories
Dim objCategory As Outlook.Category
Dim nLastRow As Integer
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Add
objExcelApp.Visible = True
Set objStores = Outlook.Application.Session.Stores
For i = objStores.Count To 1 Step -1
Set objStore = objStores.Item(i)
Set objExcelWorksheet = objExcelWorkbook.Sheets(i)
With objExcelWorksheet
.Cells(1, 1) = "Category"
.Cells(1, 1).Font.Size = 12
.Cells(1, 1).Font.Bold = True
.Cells(1, 2) = "Color"
.Cells(1, 2).Font.Size = 12
.Cells(1, 2).Font.Bold = True
End With
Set objCategories = objStore.Categories
For Each objCategory In objCategories
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
With objExcelWorksheet
.Cells(nLastRow, 1) = objCategory.Name
.Cells(nLastRow, 2) = GetColor(objCategory.Color)
.Cells(nLastRow, 2).Interior.Color = GetRGB(objCategory.Color)
End With
Next
objExcelWorksheet.Name = objStore.DisplayName
objExcelWorksheet.Columns("A:B").AutoFit
Next
End Sub
Function GetColor(Color) As String
Select Case Color
Case -1
GetColor = "No Color"
Case 15
GetColor = "Black"
Case 8
GetColor = "Blue"
Case 23
GetColor = "Dark Blue"
Case 20
GetColor = "Dark Green"
Case 25
GetColor = "Dark Maroon"
Case 22
GetColor = "Dark Olive"
Case 17
GetColor = "Dark Orange"
Case 18
GetColor = "Dark Peach"
Case 24
GetColor = "Dark Purple"
Case 16
GetColor = "Dark Red"
Case 12
GetColor = "Dark Steel"
Case 21
GetColor = "Dark Teal"
Case 19
GetColor = "Dark Yellow"
Case 13
GetColor = "Gray"
Case 5
GetColor = "Green"
Case 10
GetColor = "Maroon"
Case 7
GetColor = "Olive"
Case 2
GetColor = "Orange"
Case 3
GetColor = "Peach"
Case 9
GetColor = "Purple"
Case 1
GetColor = "Red"
Case 11
GetColor = "Steel"
Case 6
GetColor = "Teal"
Case 4
GetColor = "Yellow"
Case Else
GetColor = "Unknown"
End Select
End Function
Function GetRGB(Color) As Long
Select Case Color
Case -1
GetRGB = RGB(255, 255, 255)
Case 15
GetRGB = RGB(0, 0, 0)
Case 8
GetRGB = RGB(115, 155, 203)
Case 23
GetRGB = RGB(42, 99, 168)
Case 20
GetRGB = RGB(0, 126, 0)
Case 25
GetRGB = RGB(126, 0, 126)
Case 22
GetRGB = RGB(138, 172, 70)
Case 17
GetRGB = RGB(226, 107, 10)
Case 18
GetRGB = RGB(151, 120, 7)
Case 24
GetRGB = RGB(103, 66, 130)
Case 16
GetRGB = RGB(192, 0, 0)
Case 12
GetRGB = RGB(82, 110, 144)
Case 21
GetRGB = RGB(49, 147, 98)
Case 19
GetRGB = RGB(180, 176, 0)
Case 13
GetRGB = RGB(224, 224, 244)
Case 5
GetRGB = RGB(0, 176, 80)
Case 10
GetRGB = RGB(216, 136, 176)
Case 7
GetRGB = RGB(181, 205, 133)
Case 2
GetRGB = RGB(249, 176, 115)
Case 3
GetRGB = RGB(255, 218, 185)
Case 9
GetRGB = RGB(171, 153, 195)
Case 1
GetRGB = RGB(255, 113, 113)
Case 11
GetRGB = RGB(204, 216, 218)
Case 6
GetRGB = RGB(123, 211, 167)
Case 4
GetRGB = RGB(255, 255, 0)
Case Else
GetRGB = RGB(255, 255, 255)
End Select
End Function
- 결국 "ExportAllColorCategories"서브 루틴을 클릭하고 "F5"를 누릅니다.
- 매크로가 완료되면 다음 스크린 샷과 같은 새 Excel 통합 문서가 나타납니다.
Outlook 항목 정리
Outlook은 항목을 구성하기위한 색상 범주를 사용자에게 제공합니다. 많은 사용자가 사용하고 있습니다. 파일을 잘 구성하는 것 외에도 Outlook 파일을 작은 크기로 유지하는 것이 좋습니다. 큰 PST 파일은 손상되기 쉽습니다. PST 손상의 경우 어려운 시도를 할 수밖에 없습니다. PST 수리 강력한 도구를 통해 DataNumen Outlook Repair.
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. mdf 복구 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM