Skip to main content

Outlook: كيفية إزالة العناصر المكررة في التقويم

Author: Sun Last Modified: 2025-08-06

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

إزالة العناصر المكررة في التقويم يدويًا واحدة تلو الأخرى

استخدام VBA لإزالة العناصر المكررة في التقويم دفعة واحدة


إزالة العناصر المكررة في التقويم يدويًا واحدة تلو الأخرى

 

لإزالة العناصر المكررة في التقويم واحدة تلو الأخرى، تحتاج إلى سردها بترتيب معين لرؤية التكرارات بوضوح أولًا، ثم إزالتها واحدة تلو الأخرى.

1. عادةً ما يكون التقويم في عرض "التقويم"، قم بتفعيل التقويم الذي تريد إزالة التكرارات منه، ثم انقر على "عرض" > "تغيير العرض" > "قائمة".

steps on manually removing duplicates calendar items one by one

الآن يتم عرض التقويم كقائمة.

steps on manually removing duplicates calendar items one by one
steps on manually removing duplicates calendar items one by one

2. بعد ذلك، حدد شرطًا تستخدمه لمقارنة إذا كانت العناصر مكررة، على سبيل المثال، مقارنة إذا كانت العناصر لها نفس الموضوع. انقر على "الموضوع" في قائمة التقويم، ثم يتم وضع جميع العناصر التي لها نفس الموضوع معًا.

steps on manually removing duplicates calendar items one by one

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

steps on manually removing duplicates calendar items one by one

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.
doc ai email handle

هذه الميزة تدعم:

  • ردود ذكية: احصل على ردود مصممة من محادثاتك السابقة - مخصصة، دقيقة وجاهزة للإرسال.
  • تحسين المحتوى: قم بتحسين نصوص البريد الإلكتروني تلقائيًا لتحقيق الوضوح والتأثير.
  • الكتابة السهلة: فقط قدم الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع أساليب كتابة متعددة.
  • التوسعات الذكية: قم بتوسيع أفكارك باقتراحات تعتمد على السياق.
  • الملخصات: احصل على ملخصات مختصرة للرسائل الطويلة فورًا.
  • التواصل العالمي: قم بترجمة رسائل البريد الإلكتروني إلى أي لغة بسهولة.

هذه الميزة تدعم:

  • ردود البريد الإلكتروني الذكية
  • المحتوى المُحسّن
  • المسودات المستندة إلى الكلمات المفتاحية
  • التوسع الذكي للمحتوى
  • تلخيص البريد الإلكتروني
  • الترجمة متعددة اللغات

الأفضل من كل هذا، هذه الميزة مجانية تمامًا للأبد! لا تنتظر—حمّل مساعد البريد الإلكتروني الذكي الآن واستمتع


استخدام VBA لإزالة العناصر المكررة في التقويم دفعة واحدة

 

هنا نقدم بعض أوامر VBA التي يمكنها إزالة جميع العناصر المكررة في التقويم في مجلد التقويم في حالات مختلفة.

1. اضغط على مفتاحي "Alt" + "F11" لتفعيل نافذة "Microsoft Visual Basic for Applications".

2. انقر على "إدراج" > "وحدة" لإنشاء وحدة فارغة جديدة، ثم انسخ والصق الكود أدناه في الوحدة.

VBA: إزالة جميع العناصر المكررة في التقويم ضمن فئة معينة

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

في هذا الكود VBA، سيتم إزالة جميع التكرارات في فئة "التاريخ" عن طريق مقارنة الموضوع، الموقع، النص والفئة، ويمكنك تعديلها حسب الحاجة.

steps on using VBA to remove duplicates calendar items at once time

3. ثم اضغط على مفتاحF5" أو انقر فوق تشغيل لتشغيل الكود، ستظهر نافذة منبثقة "Macros"، اختر "RemoveDuplicateCalendar" وانقر على "Run".steps on using VBA to remove duplicates calendar items at once time .

steps on using VBA to remove duplicates calendar items at once time

ثم يتم إزالة العناصر المكررة في فئة "التاريخ".

VBA: إزالة جميع العناصر المكررة في التقويم عبر الفئات

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

عند تشغيل هذا الكود، سيتم إزالة جميع التكرارات التي لها نفس الموضوع، الموقع، النص والفئة في كل فئة.

steps on using VBA to remove duplicates calendar items at once time
steps on using VBA to remove duplicates calendar items at once time

ملاحظة: يعمل الكود VBA أعلاه في مجلد التقويم بما في ذلك المجلدات الفرعية.


أفضل أدوات إنتاجية أوفيس

أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!

اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!

🤖 Kutools AI : يستخدم تقنية الذكاء الاصطناعي المتقدمة لإدارة البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء الرسائل.

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

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

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

🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والمميزة / تذكير عند وصول البريد الهام / تصغير Outlook بدل الإغلاق...

👍 ميزات بضغطة واحدة: الرد على الجميع مع المرفقات / الحماية من التصيد الاحتيالي / 🕘 عرض المنطقة الزمنية للمرسل...

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

استخدم أدوات Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!

kutools for outlook features1 kutools for outlook features2