Outlookのカテゴリに基づいてタスクを印刷するにはどうすればよいですか？

Outlookタスクにさまざまな色のカテゴリがあり、さまざまなページのカテゴリに基づいてタスクのリストを印刷するとします。 Outlookでこの仕事をどのように解決できますか？

異なるページのカテゴリに基づいてタスクをXNUMXつずつ手動で印刷します

VBAコードを使用して、さまざまなページのカテゴリに基づいてタスクを印刷します

異なるページのカテゴリに基づいてタスクをXNUMXつずつ手動で印刷します

Outlookでは、さまざまなカテゴリに基づいて、さまざまなページのタスクをXNUMXつずつ手動で印刷できます。次のようにしてください。

1。 Outlookを起動し、[作業ウィンドウ]に移動して、印刷するタスクフォルダーを選択し、を押します。 Ctrlキー+ E を活性化する を検索 ボックス、そして下に を検索 タブをクリックします。 分類された アイコンをクリックし、印刷する必要のあるカラーカテゴリをXNUMXつ選択します。スクリーンショットを参照してください。

カテゴリ別のドキュメント印刷タスク1

2。次に、特定の色のカテゴリを持つすべてのタスクが一度に一覧表示されます。スクリーンショットを参照してください。

カテゴリ別のドキュメント印刷タスク2

3。次に、クリックします File > 印刷物 次のスクリーンショットのようにこのタスクリストを印刷するには：

カテゴリ別のドキュメント印刷タスク3

4.上記の手順を繰り返して、他のカラーカテゴリのタスクのリストをXNUMXつずつ手動で印刷します。

VBAコードを使用して、さまざまなページのカテゴリに基づいてタスクを印刷します

これは、カテゴリに基づいたタスクをさまざまなページに一度に印刷するのに役立つVBAコードです。次の手順で実行してください。

1。行く仕事ペインを開き、印刷するタスクフォルダを選択します。

2。次に、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3。次に、をクリックします インセット > モジュール、以下のコードをコピーして、開いた空白のモジュールに貼り付けます。

VBAコード：さまざまなページのカテゴリに基づいてタスクを印刷します。

Sub PrintTaskList_SpecificColorCategory()
    Dim xTaskItems As Outlook.Items
    Dim xTask As Outlook.TaskItem
    Dim xDictionary As Scripting.Dictionary
    Dim xCategoryArr As Variant, xCategory As Variant
    Dim xExcelApp As Excel.Application
    Dim xExcelWorkbook As Excel.Workbook
    Dim xExcelWorksheet As Excel.Worksheet
    Dim xSheet As Excel.Worksheet
    Dim xKey As Variant
    Dim xKeyStr As String
    Dim i As Long, xLastRow As Integer
    On Error Resume Next
    If Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olTaskItem Then Exit Sub
    Set xTaskItems = Application.ActiveExplorer.CurrentFolder.Items
    Set xDictionary = New Scripting.Dictionary
    For Each xTask In xTaskItems
        xCategoryArr = Split(xTask.Categories, ",")
        For Each xCategory In xCategoryArr
            If xDictionary.Exists(Trim(xCategory)) = False Then
               xDictionary.Add Trim(xCategory), 0
            End If
        Next
    Next
    If xDictionary.Count = 0 Then
        MsgBox "The current Task doesn’t have any category", vbOKOnly + vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    Set xExcelApp = New Excel.Application
    Set xExcelWorkbook = xExcelApp.Workbooks.Add
    xExcelApp.Visible = True
    i = 0
    If xDictionary.Count > xExcelWorkbook.Sheets.Count Then
        xExcelWorkbook.Sheets.Add Count:=xDictionary.Count - xExcelWorkbook.Sheets.Count
    End If
    For Each xKey In xDictionary.Keys
        xKeyStr = CStr(xKey)
        i = i + 1
        Set xExcelWorksheet = xExcelWorkbook.Sheets(i)
        xExcelWorksheet.Name = xKeyStr
        With xExcelWorksheet
             .Range("A1") = xKeyStr
             .Range("A1").Font.Bold = True
             .Range("A1").Font.Size = 18
             .Range("A1", "C1").HorizontalAlignment = xlCenter
             .Range("A1", "C1").VerticalAlignment = xlCenter
             .Range("A1", "C1").Merge
             .Range("A2") = "Subject"
             .Range("A2").Font.Bold = True
             .Range("B2") = "Start Date"
             .Range("B2").Font.Bold = True
             .Range("C2") = "Due Date"
             .Range("C2").Font.Bold = True
        End With
        For Each xTask In xTaskItems
            If InStr(xTask.Categories, xKeyStr) > 0 Then
               xLastRow = xExcelWorksheet.UsedRange.Rows.Count + 1
               With xExcelWorksheet
                    .Range("A" & xLastRow) = xTask.Subject
                    .Range("B" & xLastRow) = xTask.StartDate
                    .Range("C" & xLastRow) = xTask.DueDate
               End With
            End If
        Next
        xExcelWorksheet.Columns("A:C").AutoFit
    Next
    For Each xSheet In xExcelWorkbook.Sheets
        xSheet.PrintOut
    Next
    xExcelWorkbook.Close False
    xExcelApp.Quit
End Sub

4。次に、をクリックします ツール > 参考文献 セクションに アプリケーション向け Microsoft Visual Basic 飛び出した窓 参考資料-Project1 ダイアログボックス、チェック MicrosoftExcelオブジェクトライブラリ & Microsoftスクリプトランタイム からのオプション 利用可能な参考文献 リストボックス、スクリーンショットを参照：

カテゴリ別のドキュメント印刷タスク4