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

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

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

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

---

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

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

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

أصبح التقويم الآن معروضًا في شكل قائمة.

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

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

---

---

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

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

1. اضغط«Alt» + "F11"لتفعيل نافذة «مايكروسوفت فيجوال بيسك للتطبيقات».

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

في هذا الكود، سيتم إزالة جميع العناصر المكررة ضمن الفئة «date» عبر مقارنة الموضوع والموقع والمحتوى والفئة، ويمكنك تعديل هذه المعايير وفقًا لاحتياجاتك.

3. ثم اضغط على "F5« أو انقر على »تشغيل« لتنفيذ الكود. ستظهر نافذة »وحدات الماكرو«، فاختر »RemoveDuplicateCalendar« ثم انقر على »تشغيل".

وبذلك تكون العناصر المكررة ضمن فئة «date» قد تمت إزالتها.

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

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

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