انتقل إلى المحتوى الرئيسي

كيفية طباعة المهام على أساس الفئة في Outlook؟

لنفترض أن هناك فئات ألوان متنوعة في مهام Outlook الخاصة بك ، والآن ، تريد طباعة قوائم المهام بناءً على الفئات في الصفحات المختلفة. كيف يمكنك حل هذه الوظيفة في Outlook؟

مهام الطباعة على أساس الفئات في صفحات مختلفة يدويًا واحدة تلو الأخرى

مهام الطباعة على أساس الفئات في صفحات مختلفة مع رمز VBA


مهام الطباعة على أساس الفئات في صفحات مختلفة يدويًا واحدة تلو الأخرى

في Outlook ، يمكنك طباعة المهام يدويًا بناءً على الفئات المختلفة في صفحات مختلفة واحدة تلو الأخرى ، يرجى القيام بذلك على النحو التالي:

1. قم بتشغيل Outlook ، وانتقل إلى جزء المهام وحدد مجلد المهام الذي تريد طباعته ، ثم اضغط على CTRL + E لتنشيط بحث مربع ، ثم تحت بحث ، انقر فوق مصنف أيقونة ، واختر فئة لون واحدة تحتاج إلى طباعتها ، انظر لقطة الشاشة:

مهام طباعة المستند حسب الفئة 1

2. وبعد ذلك ، يتم سرد جميع المهام ذات فئة الألوان المحددة مرة واحدة ، انظر الصورة:

مهام طباعة المستند حسب الفئة 2

3. ثم ، استمر في النقر قم بتقديم > طباعة لطباعة قائمة المهام هذه كما هو موضح في لقطة الشاشة التالية:

مهام طباعة المستند حسب الفئة 3

4. كرر الخطوات المذكورة أعلاه لطباعة قوائم المهام مع فئات الألوان الأخرى واحدة تلو الأخرى يدويًا.


مهام الطباعة على أساس الفئات في صفحات مختلفة مع رمز VBA

فيما يلي رمز VBA الذي يمكن أن يساعدك في طباعة المهام بناءً على الفئة في صفحات مختلفة في وقت واحد ، يرجى القيام بالخطوات التالية:

1. انتقل إلى مهمة وحدد مجلد المهام الذي تريد طباعته.

2. ثم اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. ثم انقر فوق إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة:

كود فبا: مهام الطباعة على أساس الفئات في صفحات مختلفة:

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. ثم اضغط الأدوات > مراجع حسابات في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة في الخارج المراجع - مشروع 1 مربع الحوار ، تحقق مكتبة كائنات Microsoft Excel و وقت تشغيل البرمجة لـ Microsoft خيارات من المراجع المتاحة مربع القائمة ، انظر لقطة الشاشة:

مهام طباعة المستند حسب الفئة 4

5. ثم انقر فوق OK زر الآن اضغط F5 مفتاح لتشغيل هذا الرمز ، بعد الانتهاء من الرمز ، ستتم طباعة قوائم المهام بفئات مختلفة في صفحات مختلفة.


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات بروحفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة  /  تقسيم مجموعة اتصال إلى مجموعات فردية  /  إزالة تذكير عيد ميلاد 

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations