Skip to main content

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

Author: Sun Last Modified: 2025-08-06

في 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".

doc merge folders without duplicates 2 doc arrow right doc merge folders without duplicates 3

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" لإضافة المجلدات التي تريد دمجها إلى القائمة، واختر مجلداً كمجلد مستهدف.
doc consolidate and remove duplicate 1

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

kutools for outlook features1 kutools for outlook features2