Si të eksportoni shpejt listat e kategorive të ngjyrave të të gjitha kutive postare të Outlook në Excel

Zgjidhjet e Outlook Shtator 29, 2025

Ndoshta ju keni më shumë se një llogari emaili të konfiguruar në Outlook tuaj dhe secila kuti postare ka kategori të ndryshme ngjyrash. Nëse dëshironi të eksportoni listat e kategorive të ngjyrave të të gjitha kutive postare në Excel, mund të përdorni qasjen e prezantuar në këtë artikull.

Për shembull, ju dëshironi të ndani kategoritë tuaja të ngjyrave me dikë tjetër ose dëshironi të krahasoni kategoritë e ngjyrave të kutive postare të ndryshme. Në këtë skenar, do të shpresoni të eksportoni listat e kategorive të ngjyrave të kutive tuaja postare. Këtu, ne do t'ju mësojmë ta merrni atë përmes kodit VBA. Për mënyrën se si të përdorni VBA, mund t'i referoheni - "Si të ekzekutoni kodin VBA në Outlook tuaj".Eksporto shpejt listat e kategorive të ngjyrave të të gjitha kutive postare të Outlook në Excel

Eksporto listat e kategorive të ngjyrave të të gjitha kutive postare të Outlook në Excel

  1. Për të filluar, hyni në redaktorin VBA të Outlook përmes "Alt + F11".
  2. Pastaj, në dritaren e re, aktivizoni "MS Excel Object Library" duke iu referuar artikullit - "Si të shtoni një referencë të bibliotekës së objekteve në VBA".
  3. Më pas, vendosni kodin e mëposhtëm VBA në një modul.
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

Kodi VBA - Eksporto listat e kategorive të ngjyrave të të gjitha kutive postare të Outlook në Excel

  1. Përfundimisht, klikoni në nënprogramin "ExportAllColorCategories" dhe shtypni "F5".
  2. Kur të përfundojë makroja, do të shfaqet një libër i ri i Excel-it, i cili duket si pamja e mëposhtme e ekranit.Listat e kategorive të ngjyrave të eksportuara në skedarin Excel

Mbani të organizuar artikujt tuaj të Outlook

Outlook u siguron përdoruesve kategorinë e ngjyrave, e cila synon të organizojë artikujt. Është përdorur nga një numër i madh përdoruesish. Përveç organizimit të mirë të skedarëve, në fakt, sugjerohet gjithashtu që të mbani skedarët tuaj Outlook në madhësi të vogël. Skedari i madh PST është i prirur për korrupsion. Në rast të dëmtimit të PST, nuk keni zgjidhje tjetër veçse të përpiqeni të vështirë Riparimi i PST nëpërmjet një mjeti të fuqishëm, të themi DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.