Paano Mabilis na Pagsamahin ang Mga Item mula sa Maramihang Mga Folder nang walang Mga Duplicate sa Outlook

Kung nais mong pagsamahin ang lahat ng mga item mula sa maraming mga folder ng Outlook at tiyakin na walang duplicate, maaari mong gamitin ang pamamaraang ipinakilala sa artikulong ito. Gumagamit ito ng VBA code upang matulungan kang makamit ito tulad ng isang tapon.

Sa mga oras, maaari mong pagsamahin ang mga item mula sa maraming mga folder ng Outlook, tulad ng pagsasama ng lahat ng mga contact ng maraming mga folder ng Mga Outlook Contact. Sa sitwasyong ito, kung mayroong ilang mga na-duplicate na contact sa mga folder na ito, dapat mong asahan na ang mga duplicate ay maaaring awtomatikong matanggal sa pagsasama. Sa ilalim ng pangyayaring ito, maaari mong magamit ang sumusunod na VBA code upang mapagtanto ito nang walang kahirap-hirap.

Pagsamahin ang Mga Item mula sa Maramihang Mga Folder nang walang Mga Doble

1. Kay start sa, ilunsad ang iyong application ng Outlook.
2. Pagkatapos, dapat mong i-access ang editor ng VBA ng Outlook sa pamamagitan ng pagpindot sa pindutan ng "Alt + F11" sa pangunahing screen ng Outlook.
3. Susunod, sa window na "Microsoft Visual Basic for Applications", kailangan mong buksan ang isang module na hindi ginagamit.
4. Pagkatapos nito, dapat mong kopyahin ang sumusunod na VBA code sa modyul na ito.

'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

5. Sa paglaon kailangan mong suriin ang iyong mga setting ng macro sa Outlook, tinitiyak na pinagana ang macro.
6. Sa wakas maaari kang magkaroon ng isang pagsubok.

• Una, bumalik sa bagong window ng module.
• Susunod na pindutin ang F5 key button upang ma-trigger ang macro na ito.
• Pagkatapos ay kailangan mong piliin ang dalawang folder na isasama. Ang una ay ang pinagmulan, at ang pangalawa ay ang tarkumuha ng isa.
• Pagkatapos nito, magsisimulang ilipat ng Outlook ang lahat ng mga item mula sa pinagmulang folder sa tarkumuha ng isa. Gayundin, pansamantala, awtomatikong aalisin ang mga duplicate.
• Sa huli, maaari kang makatanggap ng isang mensahe na mag-uudyok sa bilang ng mga tinanggal na mga duplicate, tulad ng screenshot sa ibaba:

Ang Maliliit na Error ay Maaaring Mumuno sa Mahusay na Pag-crash

Sa kabila ng pagkarga ng dami ng mahusay na mga pag-andar, ang Outlook ay madaling kapitan sa mga pagkakamali at katiwalian. Marahil ay nakaranas ka ng iba't ibang mga isyu sa Outlook. Maraming mga gumagamit ay may hilig na huwag pansinin ang mga random na error. Gayunpaman, ito ay ang maliit na error na nagpapalitaw ng mga seryosong pag-crash ng Outlook, na magbabanta sa file ng Outlook. Sa gayon, hindi mo dapat balewalain ang anumang maliliit na error. Sa halip, dapat mong alisin ang mga ito sa lalong madaling panahon. Bukod dito, mas mabuti mong mapanatili ang isang apt Pagkumpuni ng PST tool, tulad ng DataNumen Outlook Repair. Sa pamamagitan ng mataas na rate ng pagbawi nito, ang utility na ito ay inakbayan ang mga kapantay nito.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang nasirang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa