كيفية طباعة المهام على أساس الفئة في Outlook؟
لنفترض أن هناك فئات ألوان متنوعة في مهام Outlook الخاصة بك ، والآن ، تريد طباعة قوائم المهام بناءً على الفئات في الصفحات المختلفة. كيف يمكنك حل هذه الوظيفة في Outlook؟
مهام الطباعة على أساس الفئات في صفحات مختلفة يدويًا واحدة تلو الأخرى
مهام الطباعة على أساس الفئات في صفحات مختلفة مع رمز VBA
مهام الطباعة على أساس الفئات في صفحات مختلفة يدويًا واحدة تلو الأخرى
في Outlook ، يمكنك طباعة المهام يدويًا بناءً على الفئات المختلفة في صفحات مختلفة واحدة تلو الأخرى ، يرجى القيام بذلك على النحو التالي:
1. قم بتشغيل Outlook ، وانتقل إلى جزء المهام وحدد مجلد المهام الذي تريد طباعته ، ثم اضغط على CTRL + E لتنشيط بحث مربع ، ثم تحت بحث ، انقر فوق مصنف أيقونة ، واختر فئة لون واحدة تحتاج إلى طباعتها ، انظر لقطة الشاشة:
2. وبعد ذلك ، يتم سرد جميع المهام ذات فئة الألوان المحددة مرة واحدة ، انظر الصورة:
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 خيارات من المراجع المتاحة مربع القائمة ، انظر لقطة الشاشة:
5. ثم انقر فوق OK زر الآن اضغط F5 مفتاح لتشغيل هذا الرمز ، بعد الانتهاء من الرمز ، ستتم طباعة قوائم المهام بفئات مختلفة في صفحات مختلفة.
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.