Wie drucke ich Aufgaben basierend auf der Kategorie in Outlook?

Angenommen, Ihre Outlook-Aufgaben enthalten verschiedene Farbkategorien, und jetzt möchten Sie die Aufgabenlisten basierend auf den Kategorien auf verschiedenen Seiten drucken. Wie können Sie diesen Job in Outlook lösen?

Drucken Sie Aufgaben basierend auf Kategorien auf verschiedenen Seiten manuell nacheinander

Drucken Sie Aufgaben basierend auf Kategorien auf verschiedenen Seiten mit VBA-Code

Drucken Sie Aufgaben basierend auf Kategorien auf verschiedenen Seiten manuell nacheinander

In Outlook können Sie die Aufgaben basierend auf den verschiedenen Kategorien auf verschiedenen Seiten einzeln manuell drucken. Gehen Sie dazu wie folgt vor:

1. Starten Sie Outlook, gehen Sie zum Aufgabenbereich, wählen Sie den Aufgabenordner aus, den Sie drucken möchten, und drücken Sie dann Strg + E um das zu aktivieren Suche Box und dann unter der Suche Tab, klicken Sie auf Kategorisiert Symbol und wählen Sie eine Farbkategorie aus, die Sie drucken möchten, siehe Screenshot:

Dokumentdruckaufgaben nach Kategorie 1

2. Und dann werden alle Aufgaben mit der spezifischen Farbkategorie auf einmal aufgelistet, siehe Screenshot:

Dokumentdruckaufgaben nach Kategorie 2

3. Klicken Sie dann weiter Reichen Sie das > Drucken um diese Aufgabenliste wie folgt auszudrucken:

Dokumentdruckaufgaben nach Kategorie 3

4. Wiederholen Sie die obigen Schritte, um die Aufgabenlisten mit den anderen Farbkategorien einzeln manuell auszudrucken.

Drucken Sie Aufgaben basierend auf Kategorien auf verschiedenen Seiten mit VBA-Code

Hier ist ein VBA-Code, mit dem Sie die Aufgaben basierend auf der Kategorie auf verschiedenen Seiten gleichzeitig drucken können. Führen Sie die folgenden Schritte aus:

1. Geh zum Aufgabe Bereich und wählen Sie den Aufgabenordner aus, den Sie drucken möchten.

2. Halten Sie dann die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3. Und dann klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein:

VBA-Code: Druckaufgaben basierend auf Kategorien auf verschiedenen Seiten:

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. Dann klick Tools > Bibliographie der Microsoft Visual Basic für Applikationen Fenster, in dem heraussprang Referenzen-Projekt1 Dialogfeld überprüfen Microsoft Excel-Objektbibliothek und Microsoft Scripting-Laufzeit Optionen aus dem Verfügbare Referenzen Listenfeld, siehe Screenshot:

Dokumentdruckaufgaben nach Kategorie 4

5. Und dann klicken OK Drücken Sie jetzt die Taste F5 Schlüssel zum Ausführen dieses Codes Nach Abschluss des Codes werden die Aufgabenlisten mit verschiedenen Kategorien auf verschiedenen Seiten gedruckt.