Outlook-ის ამოცანების სიების ამობეჭდვის 2 გზა სხვადასხვა კატეგორიებით სხვადასხვა გვერდებზე

თუ თქვენ მიანიჭეთ სხვადასხვა ფერის კატეგორიები თქვენს Outlook ამოცანებს და ახლა გსურთ ამობეჭდოთ ამოცანების სიები სხვადასხვა კატეგორიებით სხვადასხვა გვერდებზე, შეგიძლიათ მიმართოთ ამ სტატიას. აქ გაგიზიარებთ მის მისაღებად 2 მეთოდს.

იმისათვის, რომ დაალაგოთ და კარგად მართოთ თქვენი ამოცანები, შესაძლოა, თქვენ გამოიყენეთ ფერების კატეგორიები თქვენს ამოცანებზე. ახლა, თუ გსურთ ამობეჭდოთ თქვენი ამოცანების სიები სხვადასხვა კატეგორიებით სხვადასხვა გვერდებზე, გთხოვთ, წაიკითხოთ. შემდგომში გაგაცნობთ მის მისაღებად 2 საშუალებას.

მეთოდი 1: ამოცანების სიების ხელით ამობეჭდვა სათითაოდ

1. პირველ რიგში, Outlook-ში შედით "Tasks" პანელზე.
2. შემდეგ გახსენით Task საქაღალდე.
3. შემდეგი, დააჭირეთ "Ctrl + E" "ძებნის" ლენტის გასააქტიურებლად.
4. ამის შემდეგ, "ძებნა" ჩანართზე დააჭირეთ ღილაკს "კატეგორიზაცია".
5. ჩამოსაშლელი სიიდან აირჩიეთ ფერის კატეგორია.
6. შემდეგ სიაში დარჩება მხოლოდ შერჩეული კატეგორიის ამოცანები.
7. ახლა გადადით "ფაილი" > "ბეჭდვა" ამ ამოცანების სიის დასაბეჭდად.
8. შემდგომში, ანალოგიურად, ხელით ამობეჭდეთ ამოცანების სიები სხვა ფერის კატეგორიებთან ერთად.

მეთოდი 2: ამოცანების სიების ჯგუფური ამობეჭდვა VBA-ით

1. თავიდანვე ჩართეთ VBA რედაქტორი "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
2. შემდეგ, დაამატეთ მითითება „MS Excel-ის ობიექტების ბიბლიოთეკაზე“, როგორც ეს მითითებულია „როგორ დავამატოთ ობიექტის ბიბლიოთეკის მითითება VBA-ში".
3. შემდეგი, დააკოპირეთ შემდეგი VBA კოდი მოდულში.

Sub PrintTaskList_SpecificColorCategory()
    Dim objTasks As Outlook.Items
    Dim objTask As Outlook.TaskItem
    Dim objDictionary As Object
    Dim arrCategory As Variant
    Dim varCategory As Variant
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim varKey As Variant
    Dim strKey As String
    Dim i As Long
    Dim bSheetFound As Boolean
    Dim nLastRow As Integer
    Dim objSheet As Excel.Worksheet
 
    Set objTasks = Application.Session.GetDefaultFolder(olFolderTasks).Items
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
     'Get All Tasks' Categories
    For Each objTask In objTasks
        arrCategory = Split(objTask.Categories, ",")
        For Each varCategory In arrCategory
            If objDictionary.Exists(Trim(varCategory)) = False Then
               objDictionary.Add Trim(varCategory), 0
            End If
        Next
    Next
 
    'Export the Tasks with Different Categories into Different Sheet in an Excel Workbook
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    objExcelApp.Visible = True
 
    i = 0
    For Each varKey In objDictionary.Keys
        strKey = CStr(varKey)

        On Error Resume Next
        objExcelWorkbook.Sheets(strKey).Select
        bSheetFound = (Err = 0)
        On Error GoTo 0
        If bSheetFound = False Then
           i = i + 1
           If i < 4 Then
              Set objExcelWorksheet = objExcelWorkbook.Sheets(i)
           Else
              Set objExcelWorksheet = objExcelWorkbook.Sheets.Add(After:=objExcelWorkbook.Sheets(objExcelWorkbook.Sheets.Count))
           End If
           objExcelWorksheet.Name = strKey
        End If
 
        With objExcelWorksheet
             .Cells(1, 1) = strKey
             .Cells(1, 1).Font.Bold = True
             .Cells(1, 1).Font.Size = 18
             .Cells(2, 1) = "Subject"
             .Cells(2, 1).Font.Bold = True
             .Cells(2, 2) = "Start Date"
             .Cells(2, 2).Font.Bold = True
             .Cells(2, 3) = "Due Date"
             .Cells(2, 3).Font.Bold = True
        End With
 
        For Each objTask In objTasks
            If InStr(objTask.Categories, strKey) > 0 Then
               nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
               With objExcelWorksheet
                    .Range("A" & nLastRow) = objTask.Subject
                    .Range("B" & nLastRow) = objTask.startDate
                    .Range("C" & nLastRow) = objTask.DueDate
               End With
            End If
        Next
 
        objExcelWorksheet.Columns("A:C").AutoFit
    Next
 
    'Print out All Sheets in this Excel Workbook
    For Each objSheet In objExcelWorkbook.Sheets
        objSheet.PrintOut
    Next
 
    objExcelWorkbook.Close False
    objExcelApp.Quit
End Sub

4. ამის შემდეგ, დააჭირეთ ღილაკს "F5" ამ მაკროს დაუყოვნებლივ გასაშვებად.
5. როდესაც მაკრო დასრულდება, სხვადასხვა კატეგორიის ამოცანების სიები დაიბეჭდება სხვადასხვა გვერდებზე, როგორც ეს ნაჩვენებია შემდეგ ეკრანის სურათზე.

დაიბრუნეთ ღირებული მონაცემები კომპრომეტირებული PST ფაილიდან

თუ თქვენ ექვემდებარება მიუწვდომელ PST ფაილს, თქვენი შემდეგი ნაბიჯი უდავოდ არის PST შეკეთება. ამ შემთხვევაში, პირველ რიგში შეგიძლიათ სცადოთ შემოსულების შეკეთების ინსტრუმენტი. იმ პირობით, რომ ის ვერ მოხერხდება, შეგიძლიათ გააგრძელოთ სხვა გარე ხელსაწყოს ცდა, როგორიცაა DataNumen Outlook Repair. მას შეუძლია სწრაფად აღადგინოს PST მონაცემები.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის მდფ-ის აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად