Az Outlook egyes színkategóriáiban lévő tételek számának gyors exportálása Excelbe

Ha gyorsan meg szeretné tekinteni az Outlook PST-fájljában található egyes színkategóriák elemeinek teljes számát, használhatja a cikkben bemutatott VBA-kódot. Az összes számot közvetlenül egy Excel-fájlba exportálja a kényelmes ellenőrzés érdekében.

Néha bizonyos okok miatt érdemes megszámolni, hogy hány elem van az egyes színkategóriákban egy Outlook adatfájlban. Általában az azonnali keresést használhatja a számláláshoz. Például először kattintson a keresőmezőre. Ezután kattintson a „Kategorizálás” gombra a „Keresés” szalagon, és válasszon egy adott színkategóriát a legördülő listából. Ezután válassza az „Összes Outlook-elem” lehetőséget a „Hatókör” szalagcsoportban. Később, a keresés befejezése után, a kiválasztott színkategória összes eleme kilistázásra kerül. Mostantól láthatja a keresési eredmények számát az állapotsor bal alsó sarkában.

Kétségtelenül, ha sok színkategóriája van, így egyenként számolni nagyon fárasztó lesz. Ezért ennek a követelménynek megfelelően egy nagyon gyors módszert mutatunk be. Az összes számot azonnal exportálja egy Excel-fájlba.

Exportálja az Outlook egyes színkategóriáiba tartozó tételek számát Excelbe

1. Elsősorban start az Outlook alkalmazásban.
2. Ezután nyomja meg az „Alt + F11” billentyűket az Outlook VBA szerkesztő eléréséhez.
3. A következő „Microsoft Visual Basic for Applications” ablakban nyisson meg egy üres modult.
4. Ezután a következő VBA-kódokat másolhatja ebbe a modulablakba.

Public objDictionary As Object
Public objExcelApp As Excel.Application
Public objExcelWorkbook As Excel.Workbook
Public objExcelWorksheet As Excel.Worksheet
 
Sub ExportCountofItemsinEachColorCategories()
    Dim objCategories As Object
    Dim objCategory As Object
    Dim objPSTFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
    Dim strExcelFile As String
 
    'Create a New Excel file
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
    objExcelWorksheet.Cells(1, 1) = "Color Category"
    objExcelWorksheet.Cells(1, 2) = "Count"
 
    'Find all the color categories
    Set objDictionary = CreateObject("Scripting.Dictionary")

    Set objCategories = Outlook.Application.Session.Categories
    For Each objCategory In objCategories
        objDictionary.Add objCategory.Name, 0
    Next
 
    Set objPSTFile = Outlook.Application.Session.PickFolder
 
    For Each objFolder In objPSTFile.Folders
        ProcessFolder objFolder
    Next
 
    'Save the new Excel file
    objExcelWorksheet.Columns("A:B").AutoFit
    strExcelFile = "E:\Outlook\Color Categories (" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ").xlsx"
    objExcelWorkbook.Close True, strExcelFile

    MsgBox "Complete!", vbExclamation
End Sub
 
Private Sub ProcessFolder(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objSubFolder As Object
    Dim ArrayCategories As Variant
    Dim VarCategory As Variant
    Dim ArrayKey As Variant
    Dim ArrayItem As Variant
    Dim i As Long
    Dim nRow As Integer

    'Count the items in each color category via Dictionary object
    For Each objItem In objCurrentFolder.Items
        If objItem.Categories <> "" Then
           ArrayCategories = Split(objItem.Categories, ",")
           For Each VarCategory In ArrayCategories
               If objDictionary.Exists(VarCategory) = True Then
                  objDictionary.Item(VarCategory) = objDictionary.Item(VarCategory) + 1
               End If
          Next
        End If
    Next
 
    ArrayKey = objDictionary.Keys
    ArrayItem = objDictionary.Items
    nRow = 2
 
    'Input the information into the new Excel file
    For i = LBound(ArrayKey) To UBound(ArrayKey)
        objExcelWorksheet.Cells(nRow, 1) = ArrayKey(i)
        objExcelWorksheet.Cells(nRow, 2) = ArrayItem(i) & “ Items”
        nRow = nRow + 1
    Next
 
    'Process the subfolders recursively
    For Each objSubFolder In objCurrentFolder.Folders
        ProcessFolder objSubFolder
    Next
End Sub

5. Ezt követően ellenőrizze, hogy az Outlook engedélyezi-e a makrókat.
6. Végre egy próbát tehetsz.

• Először nyomja meg az F5 billentyűt ebben az új makróban.
• Ezután ki kell választania egy forrás PST-fájlt, és meg kell nyomnia az „OK” gombot.
• Amikor megjelenik a „Complete” üzenet, lépjen a helyi meghajtóra, és nyissa meg az előre meghatározott mappát az Excel-fájl mentéséhez.
• Keresse meg és nyissa meg az Excel fájlt. A következő képhez hasonlóan fog kinézni:

Mi a teendő, ha az Outlook hirtelen összeomlik

Noha az Outlook számos hatékony funkcióval rendelkezik, az idő múlásával gyakran találkozhat különféle problémákkal az Outlookban. Például az Outlook időnként összeomolhat. Legjobb esetben restarAz Outlook képes lesz megoldani a problémát. A legrosszabb esetben közvetlenül a PST adatok sérüléséhez vezethet. Abban az időben különféle eszközöket fog használni javítás PST fájlt, hogy visszakapja a maximális Outlook-adatot, amelyhez visszatérhet egy tapasztalt eszközhöz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com