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

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

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

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

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

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

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

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

6. يظهر الآن مربع الحوار "استعراض". رجاء 1 حدد مجلد الوجهة الذي ستحفظ فيه ملف CSV المُصدَّر ، 2 قم بتسمية ملف CSV بتنسيق اسم الملف مربع و 3 انقر على OK .

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

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

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

10. يتم فتح ملف CSV المُصدَّر في Excel. الرجاء تحديد رأس العمود للموضوع ، وانقر فوق البيانات > الفرز. انظر لقطة الشاشة:

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

11. يتم تصفية مرات حدوث الموعد المتكرر المحدد فقط. من فضلك اضغط قم بتقديم > طباعة لطباعتها.

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

1. في عرض التقويم ، حدد تكرارًا واحدًا للموعد المتكرر الذي ستطبعه ، ثم اضغط قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، ثم قم بلصق كود 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 = "[ابدأ]> = '11/1/2016"و [النهاية] <"6/30/2017 ' و [IsRecurring] = صحيح و [الموضوع] = "& strSubject

3. صحافة F5 مفتاح أو انقر فوق يجري زر لتشغيل هذا VBA.

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

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

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

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