2 способа печати списков задач Outlook с разными категориями на разных страницах

Если вы назначили своим задачам Outlook различные цветовые категории и теперь хотите распечатать списки задач с разными категориями на разных страницах, вы можете обратиться к этой статье. Здесь мы поделимся с вами двумя способами, чтобы получить его.

Возможно, вы применили к своим задачам цветовые категории для классификации задач и управления ими. Теперь, если вы хотите распечатать списки ваших задач с разными категориями на разных страницах, читайте дальше. Далее мы познакомим вас с двумя способами его получения.

Способ 1: вручную распечатать списки задач один за другим

1. Прежде всего, в Outlook откройте панель «Задачи».
2. Затем откройте папку задач.
3. Затем нажмите «Ctrl + E», чтобы активировать ленту «Поиск».
4. После этого на вкладке «Поиск» нажмите кнопку «Категоризировать».
5. В раскрывающемся списке выберите цветовую категорию.
6. Тогда в списке останутся только задачи с выбранной категорией.
7. Теперь перейдите в «Файл»> «Печать», чтобы распечатать этот список задач.
8. В дальнейшем таким же образом вручную распечатайте списки задач с другими цветовыми категориями.

Метод 2: пакетная печать списков задач с помощью VBA

1. В самом начале запустите редактор VBA в соответствии с «Как запустить код VBA в Outlook».
2. Затем добавьте ссылку на «MS Excel Object Librarг "согласно"Как добавить объектную библиотекуrary Ссылка в 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.com