كيف يمكن طباعة قائمة تحتوي على حدث Outlook المتكرر الواحد؟

طباعة قائمة بموعد Outlook المتكرر واحد مع التصدير

طباعة قائمة بموعد Outlook المتكرر واحد باستخدام VBA

في الواقع، لا توجد طريقة مباشرة لطباعة قائمة بجميع التكرارات الخاصة بموعد Outlook المتكرر. لكن يمكنك تصدير بيانات التقويم إلى Excel، وتصفية التكرارات المرتبطة بهذا الموعد، ثم طباعتها بسهولة. يُرجى اتباع الخطوات التالية:

1. في Outlook، يُرجى النقر علىملف > فتح والتصدير(أو)فتح) > استيراد/تصدير(أو)استيراد).

2. في معالج الاستيراد والتصدير، يُرجى النقر على خيارالتصدير إلى ملف، ثم النقر على زرالتالي.

3. في مربع حوار التصدير الأول إلى ملف، يُرجى النقر على خيارقيم مفصولة بفواصل، ثم النقر على زرالتالي.

4. في مربع حوار التصدير الثاني إلى ملف، يرجى تحديدتقويمالذي يحتوي على الموعد المتكرر الذي تريد طباعته، ثم انقر على زرالتالي.

5. في مربع حوار التصدير الثالث إلى ملف، يُرجى النقر على زراستعراض.

6. الآن ظهر مربع حوار الاستعراض. يُرجى (1) تحديد مجلد الوجهة الذي ستحفظ فيه ملف CSV المصدر، (2) إدخال اسم لملف CSV في خانةاسم الملف، ثم (3) النقر على زرموافق.

7. انقر على زرَيالتاليوإنهاءفي مربعي الحوار الثالث والأخير للتصدير.

8. يُرجى تحديد نطاق التاريخ الذي سيتم تصدير التقويم منه في مربع حوار تعيين نطاق التاريخ، ثم النقر على زرموافق.

9. حتى الآن، تم تصدير تقويم Outlook كملف CSV. يُرجى فتح المجلد الذي يحتوي على ملف CSV، ثم النقر بزر الماوس الأيمن على الملف واختيارفتح باستخدام > Excel من القائمة السياقية. انظر لقطة الشاشة:

10. يتم الآن فتح ملف CSV المصدر في Excel. يرجى تحديد رأس عمود الموضوع، ثم النقر علىبيانات > تصفية. انظر لقطة الشاشة:

10. انقر على أيقونة التصفية في رأس عمود الموضوع، وحدد من القائمة المنسدلة موضوع الموعد المتكرر الذي تريد طباعته فقط، ثم انقر على زرموافقزر.

11. تم الآن تصفية التكرارات الخاصة بالموعد المتكرر المحدد فقط. يُرجى النقر علىملف > طباعةلطباعتها.

ستقدّم هذه الطريقة نصًا برمجيًا (VBA) يُسهّل طباعة قائمة بالمواعيد المتكررة في Outlook. يُرجى اتباع الخطوات التالية:

1. في عرض التقويم، حدد إحدى تكرارات الموعد المتكرر الذي تريد طباعته، ثم اضغط على مفاتيحAlt+F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر علىإدراج > وحدة نمطية، ثم الصق رمز VBA أدناه في نافذة الوحدة النمطية الجديدة.

VBA: طباعة قائمة بجميع التكرارات في موعد Outlook المتكرر

Sub RecurringList()

Dim CalendarFolder As Outlook.MAPIFolder
Dim CalendarItems As Outlook.Items
Dim RestrictItems As Outlook.Items
Dim sFilter, sSubject, sOccur As String
Dim iNumRestricted As Integer
Dim itm, itmNew As Object
Dim tStart, tEnd As Date

Set CalendarFolder = Application.ActiveExplorer.CurrentFolder
Set CalendarItems = CalendarFolder.Items

   CalendarItems.Sort "[Start]"
CalendarItems.IncludeRecurrences = True

    tEnd = Format(Now + 10, "Short Date")

sSubject = Application.ActiveExplorer.Selection.Item(1).Subject

   sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Subject] = " & sSubject

   Set RestrictItems = CalendarItems.Restrict(sFilter)

   iNumRestricted = 0

   For Each itm In RestrictItems
iNumRestricted = iNumRestricted + 1
sOccur = sOccur & vbCrLf & itm.Subject & vbTab & " >> " & vbTab & itm.Start & vbTab & " to: " & vbTab & itm.End
Next

Set itmNew = Application.CreateItem(olMailItem)
itmNew.Body = sOccur & vbCrLf & iNumRestricted & " occurrences found."
itmNew.Display

End Sub

ملاحظة: يُرجى تغيير نطاق التاريخ التي سيتم طباعة الموعد المتكرر منها في الكود: sFilter = "[Start] >= '11/1/2016‹ And [End] < ›6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

3. اضغط على مفتاحF5 أو انقر على زرتشغيللتنفيذ هذا النص البرمجي (VBA).

4. الآن، تم نسخ قائمة جميع التكرارات من الموعد المتكرر المحدد ولصقها في بريد إلكتروني جديد كما هو موضح في لقطة الشاشة أدناه. يُرجى النقر علىملف > طباعةلطباعة القائمة.

طباعة تقويم فارغ (بدون مواعيد) في Outlook

طباعة أسبوعين/شهرين من التقويم في صفحة واحدة في Outlook

طباعة التقويم اليومي في Outlook