انتقل إلى المحتوى الرئيسي

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

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

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

دمج مجلدات متعددة وإزالة العناصر المكررة مع Kutools for Outlook


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

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

1. صحافة ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة

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

فبا: دمج مجلدين بدون مضاعفات

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 بدون تكرارات 1

3. انقر الأدوات > مراجع حسابات وفي مربع الحوار المنبثق ، تحقق وقت تشغيل البرمجة لـ Microsoft مربع.

مجلدات دمج doc بدون تكرارات 2 دوك السهم الأيمن مجلدات دمج doc بدون تكرارات 3

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

5. انقر OK، في مربع الحوار الثاني ، اختر المجلد الثاني الذي تريد المقارنة والدمج معه.
مجلدات دمج doc بدون تكرارات 5

6. انقر OKالآن ، سيتم نقل جميع العناصر الموجودة في المجلد الأول إلى المجلد الثاني ، وستتم أيضًا إزالة العناصر المكررة.
مجلدات دمج doc بدون تكرارات 6


دمج مجلدات متعددة وإزالة العناصر المكررة مع Kutools for Outlook

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

Kutools for Outlook , ويشمل +100 ميزات وأدوات قوية لبرنامج Microsoft Outlook 2016 و 2013 و 2010 و Office 365.

تثبيت مجاني Kutools for Outlook ، ثم قم بالخطوات التالية:

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

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

2. انقر OK > OK. الآن تم دمج جميع العناصر الموجودة في المجلدات المحددة في مجلد واحد محدد.
doc دمج وإزالة المكررة 2

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

3. انقر كوتولس > حذف مكرر > رسائل بريد إلكتروني مكررة. ثم في رسائل مكررة الحوار ، حدد المجلد الذي تريد إزالة التكرارات.
doc دمج وإزالة المكررة 3

4. انقر التالى، في إعدادات الرسائل المكررة مربع الحوار ، حدد المعايير التي تستخدمها لمقارنة رسائل البريد الإلكتروني ، ثم تحقق احذف الرسائل المكررة الخيار وحدد قارن مع الرسائل المكررة داخل مجلد واحد.
doc دمج وإزالة المكررة 4

5. انقر التالى > التالى، تمت تصفية رسائل البريد الإلكتروني المكررة. انقر احذف الرسالة المكررة زر> OK لإزالة رسائل البريد الإلكتروني المكررة بنجاح.
doc دمج وإزالة المكررة 5 مجلدات دمج doc بدون تكرارات 6


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

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

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

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

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

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

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations