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

Author: Sun Last Modified: 2025-05-30

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

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

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

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

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

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

steps on manually removing duplicates calendar items one by one

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

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

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

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

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

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

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

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

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

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

استخدام 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". .

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

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

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