كيف يمكن دمج مجلدين في 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. انقر «أدوات» > «مراجع»، ثم في مربع الحوار المنبثق، فعّل خانة الاختيار «Microsoft Scripting Runtime».

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

5. انقر «موافق». ثم في مربع الحوار المنبثق الثاني، اختر المجلد الثاني الذي ترغب في مقارنته ودمجه معه.

6. انقر «موافق». الآن، سيتم نقل جميع العناصر من المجلد الأول إلى المجلد الثاني، مع إزالة العناصر المكررة تلقائيًا.

---

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

إذا لم تكن معتادًا على كود VBA، جرّب «Kutools لـ Outlook»—إضافة قوية تأتي مع أدوات مثل «تنظيم المجلدات» و«الرسائل المكررة» لإنجاز هذه المهمة بسهولة وسرعة.

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

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

2. انقر «موافق» > «موافق». الآن، تم دمج جميع العناصر من المجلدات المحددة في المجلد الوجهة.

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

3. انقر «Kutools» > «حذف التكرارات» > «الرسائل المكررة». ثم، في مربع حوار «الرسائل المكررة»، فعّل خانة المجلد الذي ترغب في إزالة الرسائل المكررة منه.

4. انقر «التالي». في مربع حوار «إعدادات الرسائل المكررة»، حدد المعايير التي ترغب في استخدامها لمقارنة رسائل البريد الإلكتروني، ثم فعّل خيار «حذف البريد المكرر» واختر «مقارنة داخل مجلد واحد».

5. انقر «التالي» > «التالي» لتصفية الرسائل المكررة، ثم اضغط زر «حذف الرسائل المكررة» > «موافق» لإزالتها بنجاح.