आउटलुक में डुप्लिकेट के बिना दो फ़ोल्डरों को एक फ़ोल्डर में कैसे मर्ज करें?

लेखक: रवि अंतिम संशोधित: 2020-10-29

आउटलुक में, आपके पास कई फ़ोल्डरों वाले कई ईमेल खाते हो सकते हैं, कुछ मामलों में, आप दो फ़ोल्डरों को एक में मर्ज करना चाहते हैं और डुप्लिकेट आइटम हटाना चाहते हैं। आप इस काम को जल्दी कैसे हल कर सकते हैं? इस आलेख में, मैं आउटलुक में इसे यथाशीघ्र संभालने में आपकी सहायता के लिए एक वीबीए कोड प्रस्तुत करता हूं।

बिना डुप्लिकेट वाले दो फ़ोल्डरों को VBA कोड द्वारा एक में मर्ज करें

आउटलुक के लिए कुटूल के साथ एकाधिक फ़ोल्डरों को मर्ज करें और डुप्लिकेट आइटम हटाएं

बिना डुप्लिकेट वाले दो फ़ोल्डरों को VBA कोड द्वारा एक में मर्ज करें

दो फ़ोल्डरों को एक में मर्ज करने और डुप्लिकेट आइटम को हटाने के लिए, आप इसे निम्न चरणों के अनुसार VBA कोड से संभाल सकते हैं:

1। दबाएँ ऑल्ट + 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

डुप्लिकेट के बिना दस्तावेज़ मर्ज फ़ोल्डर्स 1

3। क्लिक करें टूल्स > संदर्भ और पॉपिंग डायलॉग में, जांचें माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम चेकबॉक्स.

डुप्लिकेट के बिना दस्तावेज़ मर्ज फ़ोल्डर्स 2

डुप्लिकेट के बिना दस्तावेज़ मर्ज फ़ोल्डर्स 3

4। क्लिक करें OK। अब प्रेस करें F5 कोड चलाने की कुंजी. आपको यह याद दिलाने के लिए एक संवाद पॉप होता है कि आप उस पहले फ़ोल्डर का चयन करें जिसे आप मर्ज करना चाहते हैं (ध्यान दें: पहले फ़ोल्डर के सभी आइटम दूसरे फ़ोल्डर के साथ विलय के बाद हटा दिए जाएंगे)।
डुप्लिकेट के बिना दस्तावेज़ मर्ज फ़ोल्डर्स 4

5। क्लिक करें OK, दूसरे पॉपिंग डायलॉग में, वह दूसरा फ़ोल्डर चुनें जिसके साथ आप तुलना और विलय करना चाहते हैं।
डुप्लिकेट के बिना दस्तावेज़ मर्ज फ़ोल्डर्स 5

6। क्लिक करें OK, अब, पहले फ़ोल्डर के सभी आइटम दूसरे फ़ोल्डर में ले जाए जाएंगे, और डुप्लिकेट भी हटा दिए जाएंगे।
डुप्लिकेट के बिना दस्तावेज़ मर्ज फ़ोल्डर्स 6

आउटलुक के लिए कुटूल के साथ एकाधिक फ़ोल्डरों को मर्ज करें और डुप्लिकेट आइटम हटाएं

यदि आप वीबीए कोड से परिचित नहीं हैं, तो इसका उपयोग करने का प्रयास करें आउटलुक के लिए कुटूल, इसके साथ एक आसान ऐड-इन फ़ोल्डरों को समेकित करना और डुप्लिकेट ईमेल उपयोगिताएँ जो इस कार्य को आसानी से और शीघ्रता से संभाल सकती हैं।

Kutools for Outlook , शामिल है 100 + Microsoft Outlook 2016, 2013, 2010 और Office 365 के लिए शक्तिशाली सुविधाएँ और उपकरण।
डाउनलोड पर जाएं नि:शुल्क परीक्षण 45 दिन

नि:शुल्क इंस्टॉल आउटलुक के लिए कुटूल, और फिर नीचे दिए गए चरणों के अनुसार कार्य करें:

एकाधिक फ़ोल्डर मर्ज करें

1। क्लिक करें कुटूल्स प्लस > फ़ोल्डरों को समेकित करना, तो में अनेक फ़ोल्डरों को एक में मर्ज करें संवाद, क्लिक करें मर्ज किए जाने वाले फ़ोल्डरों को सूची में जोड़ने के लिए, गंतव्य फ़ोल्डर के रूप में एक फ़ोल्डर चुनें।

2। क्लिक करें OK > OK. अब चयनित फ़ोल्डर के सभी आइटम एक विशिष्ट फ़ोल्डर में मर्ज कर दिए गए हैं।
दस्तावेज़ को समेकित करें और डुप्लिकेट 2 को हटा दें

डुप्लिकेट आइटम हटाएँ

3। क्लिक करें कुटूल > डुप्लिकेट हटाएँ > डुप्लिकेट ईमेल। फिर में डुप्लिकेट संदेश संवाद, उस फ़ोल्डर की जाँच करें जिसे आप डुप्लिकेट हटाना चाहते हैं।

4। क्लिक करें अगलामें डुप्लिकेट संदेश सेटिंग्स संवाद, ईमेल की तुलना करने के लिए आपके द्वारा उपयोग किए जाने वाले मानदंड निर्दिष्ट करें, फिर जांचें डुप्लिकेट संदेश हटाएँ विकल्प और चयन करें एक ही फ़ोल्डर में डुप्लिकेट संदेशों की तुलना करें.

5। क्लिक करें अगला > अगला, डुप्लिकेट ईमेल फ़िल्टर कर दिए गए हैं। क्लिक डुप्लिकेट संदेश हटाएँ बटन> OK डुप्लिकेट ईमेल को सफलतापूर्वक हटाने के लिए।
डुप्लिकेट के बिना दस्तावेज़ मर्ज फ़ोल्डर्स 6