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

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

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

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

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

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

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

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

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

6. الآن سيظهر مربع الحوار تصفح. الرجاء (1) تحديد مجلد وجهة ستقوم بحفظ ملف CSV المصدر فيه، (2) تسمية ملف CSV في مربع اسم الملف، و(3) النقر فوق الزر موافق.

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

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

9. حتى الآن تم تصدير تقويم Outlook كملف CSV. الرجاء فتح المجلد الذي يحتوي على ملف 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