كيفية دمج مجلدين بدون تكرارات في مجلد واحد في Outlook؟

Author: Sun Last Modified: 2025-05-30

في Outlook، قد يكون لديك العديد من حسابات البريد الإلكتروني مع العديد من المجلدات، وفي بعض الحالات، قد ترغب في دمج مجلدين في واحد وإزالة العناصر المكررة. كيف يمكنك حل هذه المهمة بسرعة؟ في هذه المقالة، أقدم لك كود VBA لمساعدتك على التعامل معها بأسرع وقت ممكن في Outlook.

دمج مجلدين بدون تكرارات في واحد باستخدام كود VBA

دمج مجلدات متعددة وإزالة العناصر المكررة باستخدام أدوات Kutools لـ Outlook

دمج مجلدين بدون تكرارات في واحد باستخدام كود VBA

لدمج مجلدين في واحد وإزالة العناصر المكررة، يمكنك التعامل مع ذلك باستخدام كود VBA باتباع الخطوات التالية:

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

2. انقر نقراً مزدوجاً على "ThisOutlookSession" من "Project1" في الجزء الأيسر، ثم قم بنسخ ولصق الكود أدناه في نافذة النصوص على اليمين.

VBA: دمج مجلدين بدون تكرارات

Sub MergeOutlookFolders_WithoutDuplicates()
'UpdatebyExtendoffice20180521
Dim xSourceFolder As Outlook.Folder
Dim xTargetFolder As Outlook.Folder
Dim xCount, i As Long
Dim xItem As Object
Dim xSourceItem As Object
Dim xTargetItem As Object
Dim xDictionary As Scripting.Dictionary  'Object
Dim xStr As String
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
Set xSourceFolder = Application.Session.PickFolder
Set xTargetFolder = Application.Session.PickFolder
xCount = 0
If xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Then
    MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
For i = xSourceFolder.Items.Count To 1 Step -1
    Set xSourceItem = xSourceFolder.Items.Item(i)
    xSourceItem.Move xTargetFolder
Next
For i = xTargetFolder.Items.Count To 1 Step -1
    Set xTargetItem = xTargetFolder.Items.Item(i)
    Select Case xTargetItem.Class
        Case olMail
            With xTargetItem
                xStr = .Subject & .Body & .SentOn
            End With
        Case olAppointment
            With xTargetItem
                xStr = .Subject & .Start & .Duration & .Location & .Body
            End With
        Case olContact
            With xTargetItem
                xStr = .FullName & .Email1Address & .Email2Address & .Email3Address
            End With
        Case olTask
            With xTargetItem
                xStr = .Subject & .StartDate & .DueDate & .Body
            End With
    End Select
    If xDictionary.Exists(xStr) = True Then
        xTargetItem.Delete
        xCount = xCount + 1
    Else
        xDictionary.Add xStr, True
    End If
Next i
If xCount <> 0 Then
    MsgBox xCount & " duplicates removed when merging!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

doc merge folders without duplicates 1

3. انقر على "Tools" > "References"، وفي مربع الحوار المنبثق، قم بتحديد خانة الاختيار "Microsoft Scripting Runtime".

4. انقر على "OK". الآن اضغط على مفتاح "F5" لتشغيل الكود. سيظهر مربع حوار ينبهك لاختيار أول مجلد تريد دمجه (ملاحظة: سيتم إزالة جميع العناصر الموجودة في المجلد الأول بعد دمجها مع المجلد الثاني).
doc merge folders without duplicates 4

5. انقر على "OK". في مربع الحوار الثاني الذي يظهر، اختر المجلد الثاني الذي تريد مقارنته ودمجه معه.
doc merge folders without duplicates 5

6. انقر على "OK". الآن، سيتم نقل جميع العناصر الموجودة في المجلد الأول إلى المجلد الثاني، وسيتم إزالة العناصر المكررة.
doc merge folders without duplicates 6

دمج مجلدات متعددة وإزالة العناصر المكررة باستخدام أدوات Kutools لـ Outlook

إذا لم تكن على دراية بكود VBA، جرب استخدام "Kutools for Outlook"، وهو إضافة عملية، مع أدوات "Consolidating Folders" و"Duplicate Emails" التي يمكنها التعامل مع هذه المهمة بسهولة وسرعة.

افتح الباب أمام كفاءة البريد الإلكتروني القصوى مع أدوات Kutools لـ Outlook! استمتع بـ 70 ميزات قوية مجانًا تمامًا، إلى الأبد. قم بتنزيل النسخة المجانية الآن!

دمج مجلدات متعددة

1. انقر على "Kutools Plus" > "Consolidating Folders"، ثم في مربع الحوار "Merge multiple folders into one"، انقر على "Add" لإضافة المجلدات التي تريد دمجها إلى القائمة، واختر مجلداً كمجلد مستهدف.

2. انقر على "OK" > "OK". الآن تم دمج جميع العناصر الموجودة في المجلدات المحددة في المجلد المحدد.
doc consolidate and remove duplicate 2

إزالة العناصر المكررة

3. انقر على "Kutools" > "Delete Duplicate" > "Duplicate Emails". ثم في مربع الحوار "Duplicate messages"، قم بتحديد المجلد الذي تريد إزالة التكرارات منه.

4. انقر على "Next". في مربع الحوار "Duplicate Messages Settings"، حدد المعايير التي ستستخدمها لمقارنة رسائل البريد الإلكتروني. ثم قم بتحديد خيار "Delete duplicate messages" واختر "Compare for duplicate messages within a single folder".

5. انقر على "Next" > "Next"، وسيتم تصفية الرسائل المكررة. انقر على زر "Delete duplicate message" > "OK" لإزالة الرسائل المكررة بنجاح.
doc merge folders without duplicates 6