Có thể bạn có nhiều tài khoản email được định cấu hình trong Outlook của mình và mỗi hộp thư có các danh mục màu khác nhau. Nếu bạn muốn xuất danh sách danh mục màu của tất cả các hộp thư sang Excel, bạn có thể sử dụng phương pháp được giới thiệu trong bài viết này.
Chẳng hạn, bạn muốn chia sẻ danh mục màu của mình với người khác hoặc bạn muốn so sánh danh mục màu của các hộp thư khác nhau. Trong trường hợp này, bạn sẽ hy vọng xuất danh sách danh mục màu của hộp thư của mình. Ở đây, chúng tôi sẽ hướng dẫn bạn lấy nó thông qua mã VBA. Về cách sử dụng VBA, bạn có thể tham khảo – “Cách chạy mã VBA trong Outlook của bạn".
Xuất danh sách danh mục màu của tất cả các hộp thư Outlook sang Excel
- Để bắt đầu, hãy truy cập trình soạn thảo Outlook VBA thông qua “Alt + F11”.
- Sau đó, trong cửa sổ mới, hãy bật “Thư viện đối tượng MS Excel” theo hướng dẫn trong bài viết – “Cách thêm tham chiếu thư viện đối tượng trong VBA".
- Tiếp theo, đặt mã VBA sau vào một mô-đun.
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
- Cuối cùng, nhấp vào chương trình con “ExportAllColorCategories” và nhấn “F5”.
- Khi macro kết thúc, một sổ làm việc Excel mới sẽ xuất hiện, trông giống như ảnh chụp màn hình sau.
Sắp xếp các mục Outlook của bạn
Outlook cung cấp cho người dùng danh mục màu nhằm sắp xếp các mục. Nó đã được sử dụng bởi một lượng lớn người dùng. Ngoài việc tổ chức tốt các tệp, trên thực tế, bạn cũng nên giữ các tệp Outlook của mình ở kích thước nhỏ. Tệp PST lớn dễ bị hỏng. Trong trường hợp PST bị hỏng, bạn không có lựa chọn nào khác ngoài việc cố gắng hết sức PST sửa chữa thông qua một công cụ mạnh mẽ, nói DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm