Kohteiden nopea yhdistäminen useista kansioista ilman kopioita Outlookissa

Jos haluat yhdistää kaikki kohteet useista Outlook-kansioista etkä välttää päällekkäisyyksiä, voit käyttää tässä artikkelissa esitettyä menetelmää. Se käyttää VBA-koodia auttamaan sinua saavuttamaan sen kuin korkki.

Toisinaan saatat haluta yhdistää kohteita useista Outlook-kansioista, kuten yhdistää useiden Outlook-yhteystietokansioiden kaikki yhteystiedot. Jos tällaisissa kansioissa on joitain päällekkäisiä yhteystietoja, sinun on toivottava, että kaksoiskappaleet voidaan poistaa automaattisesti yhdistämisen aikana. Tässä tilanteessa voit käyttää seuraavaa VBA-koodia sen toteuttamiseksi vaivattomasti.

Yhdistä kohteet useista kansioista ilman kopioita

1. Kohteeseen starKäynnistä Outlook-sovellus.
2. Sitten sinun pitäisi käyttää Outlook VBA -editoria painamalla "Alt + F11" -näppäintä Outlookin päänäytössä.
3. Seuraavaksi sinun on avattava Microsoft Visual Basic for Applications -ikkunassa moduuli, jota ei käytetä.
4. Sen jälkeen sinun on kopioitava seuraava VBA-koodi tähän moduuliin.

'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. Myöhemmin sinun on tarkistettava Outlook-makroasetuksesi varmistaaksesi, että makro on käytössä.
6. Lopuksi voit kokeilla.

• Ensinnäkin, palaa uuteen moduuliikkunaan.
• Seuraavaksi paina F5-näppäintä käynnistääksesi tämän makron.
• Sitten sinun on valittava kaksi yhdistettävää kansiota. Ensimmäinen on lähde, ja toinen on tarota yksi.
• Sen jälkeen Outlook alkaa siirtää kaikkia kohteita lähdekansiosta tarota yksi. Sillä välin kaksoiskappaleet poistetaan automaattisesti.
• Viime kädessä saatat saada viestin, joka kehottaa poistettujen kaksoiskappaleiden määrää, kuten alla oleva kuvakaappaus:

Pienet virheet voivat aiheuttaa suuria kaatumisia

Huolimatta siitä, että siinä on runsaasti erinomaisia ​​toimintoja, Outlook on edelleen altis virheille ja korruptiolle. Ehkä olet kohdannut useita Outlook-ongelmia. Monet käyttäjät ovat taipuvaisia ​​sivuuttamaan satunnaiset virheet. Pieni virhe aiheuttaa kuitenkin vakavat Outlook-kaatumiset, mikä vaarantaa Outlook-tiedoston. Siksi sinun ei pidä jättää huomioimatta pieniä virheitä. Sen sijaan sinun tulisi poistaa ne mahdollisimman pian. Lisäksi sinun on parasta pitää apt PST-korjaus työkalu, kuten DataNumen Outlook Repair. Korkean palautumisasteensa ansiosta tämä apuohjelma on hartautunut ikäisensä yli.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien vioittunut sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com