Outlook'ta kategoriye göre görevler nasıl yazdırılır?

Author: Xiaoyang Last Modified: 2025-08-07

Diyelim ki, Outlook görevlerinizde çeşitli renk kategorileri var ve şimdi bu kategorilere göre farklı sayfalarda görev listelerini yazdırmak istiyorsunuz. Bu işi Outlook'ta nasıl çözebilirsiniz?

Görevleri farklı sayfalarda kategoriye göre tek tek manuel olarak yazdırma

VBA kodu ile görevleri farklı sayfalarda kategoriye göre yazdırma

Görevleri farklı sayfalarda kategoriye göre tek tek manuel olarak yazdırma

Outlook'ta, farklı sayfalardaki farklı kategorilere göre görevleri tek tek manuel olarak yazdırabilirsiniz, lütfen şu adımları izleyin:

1. Outlook'u başlatın ve Görev bölmesine gidin, yazdırmak istediğiniz görev klasörünü seçin ve ardından Ctrl + E tuşlarına basarak Arama kutusunu etkinleştirin. Ardından, Arama sekmesi altında Kategorize simgesine tıklayın ve yazdırmak istediğiniz bir renk kategorisini seçin, aşağıdaki ekran görüntüsüne bakın:

doc print tasks by category 1

2. Ve sonra, belirli bir renk kategorisine sahip tüm görevler hemen listelenir, aşağıdaki ekran görüntüsüne bakın:

doc print tasks by category 2

3. Sonra, Dosya > Yazdır'a tıklayarak aşağıdaki ekran görüntüsünde gösterildiği gibi bu görev listesini yazdırın:

doc print tasks by category 3

4. Diğer renk kategorilerindeki görev listelerini tek tek manuel olarak yazdırmak için yukarıdaki adımları tekrarlayın.

VBA kodu ile görevleri farklı sayfalarda kategoriye göre yazdırma

İşte size farklı sayfalardaki kategorilere göre görevleri bir seferde yazdırmanıza yardımcı olabilecek bir VBA kodu, lütfen şu adımları izleyin:

1. Görev bölmesine gidin ve yazdırmak istediğiniz görev klasörünü seçin.

2. Ardından, Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

3. Ve sonra, Ekle > Modül'e tıklayın, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın:

VBA kodu: Görevleri farklı sayfalarda kategoriye göre yazdırma:

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. Ardından, Araçlar > Referanslar'a tıklayın Microsoft Visual Basic for Applications penceresinde, açılan Referanslar-Proje1 iletişim kutusunda, Mevcut Referanslar listesinden Microsoft Excel Nesne Kitaplığı ve Microsoft Scripting Çalışma Zamanı seçeneklerini işaretleyin, aşağıdaki ekran görüntüsüne bakın:

doc print tasks by category 4

5. Ve sonra, Tamam düğmesine tıklayın, şimdi kodu çalıştırmak için F5 tuşuna basın, kod tamamlandıktan sonra, farklı kategorilere sahip görev listeleri farklı sayfalarda yazdırılacaktır.

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler: