كيفية دمج مجلدين بدون تكرارات في مجلد واحد في Outlook؟
في 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
3. انقر على "Tools" > "References"، وفي مربع الحوار المنبثق، قم بتحديد خانة الاختيار "Microsoft Scripting Runtime".
 |  |  |
4. انقر على "OK". الآن اضغط على مفتاح "F5" لتشغيل الكود. سيظهر مربع حوار ينبهك لاختيار أول مجلد تريد دمجه (ملاحظة: سيتم إزالة جميع العناصر الموجودة في المجلد الأول بعد دمجها مع المجلد الثاني).
5. انقر على "OK". في مربع الحوار الثاني الذي يظهر، اختر المجلد الثاني الذي تريد مقارنته ودمجه معه.
6. انقر على "OK". الآن، سيتم نقل جميع العناصر الموجودة في المجلد الأول إلى المجلد الثاني، وسيتم إزالة العناصر المكررة.
دمج مجلدات متعددة وإزالة العناصر المكررة باستخدام أدوات Kutools لـ Outlook
إذا لم تكن على دراية بكود VBA، جرب استخدام "Kutools for Outlook"، وهو إضافة عملية، مع أدوات "Consolidating Folders" و"Duplicate Emails" التي يمكنها التعامل مع هذه المهمة بسهولة وسرعة.
قل وداعًا لعدم كفاءة Outlook! تجعل أدوات Kutools لـ Outlook معالجة البريد الإلكتروني الدُفعية أسهل - الآن مع ميزات مجانية مدعومة بالذكاء الاصطناعي! قم بتنزيل أدوات Kutools لـ Outlook الآن!!
دمج مجلدات متعددة
1. انقر على "Kutools Plus" > "Consolidating Folders"، ثم في مربع الحوار "Merge multiple folders into one"، انقر على "Add" لإضافة المجلدات التي تريد دمجها إلى القائمة، واختر مجلداً كمجلد مستهدف.
2. انقر على "OK" > "OK". الآن تم دمج جميع العناصر الموجودة في المجلدات المحددة في المجلد المحدد.
إزالة العناصر المكررة
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" لإزالة الرسائل المكررة بنجاح.
أفضل أدوات تعزيز الإنتاجية في المكتب
خبر عاجل: Kutools لـ Outlook يطلق إصدارًا مجانيًا!
جرب الإصدار الجديد كليًا من Kutools لـ Outlook مع أكثر من100 ميزة مذهلة! انقر لتنزيل الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد الإلكتروني / نسخة تلقائية/مخفية بناءً على القاعدة عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم تلقائي لرسائل البريد الإلكتروني متعددة المستلمين إلى رسائل فردية ...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...
📁 إعدادات المرفقات الاحترافية: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...
🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...
👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة دفعة لجهات الاتصال من البريد الإلكتروني المحدد / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...
استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!
افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!
🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office
موصى به بقوة: Kutools لـ Office (خمسة في واحد)
بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!
- ✅ سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
- 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
- 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint