Kuinka yhdistää kaksi kansiota ilman kaksoiskappaleita yhdeksi kansioon Outlookissa?
Outlookissa sinulla voi olla useita sähköpostitilejä, joissa on useita kansioita, joissakin tapauksissa haluat yhdistää kaksi kansiota yhdeksi ja poistaa päällekkäiset kohteet. Kuinka voit ratkaista tämän työn nopeasti? Tässä artikkelissa esittelen VBA-koodin, joka auttaa sinua käsittelemään sitä mahdollisimman nopeasti Outlookissa.
Yhdistä kaksi kansiota ilman kaksoiskappaleita yhdeksi VBA-koodilla
Yhdistä useita kansioita ja poista päällekkäiset kohteet Kutools for Outlook -sovelluksella
Yhdistä kaksi kansiota ilman kaksoiskappaleita yhdeksi VBA-koodilla
Jos haluat yhdistää kaksi kansiota yhdeksi ja poistaa päällekkäiset kohteet, voit käsitellä sitä VBA-koodilla seuraavasti:
1. Avaa Microsoft Visual Basic for Applications -ikkuna painamalla Alt + F11-näppäimiä.
2. Kaksoisnapsauta "ThisOutlookSession" "Project1"-kohdasta vasemmassa ruudussa ja kopioi ja liitä alla oleva koodi oikeanpuoleiseen komentosarjaikkunaan.
VBA: Yhdistä kaksi kansiota ilman kaksoiskappaleita
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. Napsauta "Työkalut" > "Viitteet" ja valitse ponnahdusikkunassa "Microsoft Scripting Runtime" -valintaruutu.
 |  |  |
4. Napsauta "OK". Paina nyt "F5"-näppäintä suorittaaksesi koodin. Näyttöön tulee valintaikkuna, joka muistuttaa sinua valitsemaan ensimmäinen kansio, jonka haluat yhdistää (huomaa: kaikki ensimmäisen kansion kohteet poistetaan, kun se on yhdistetty toiseen kansioon).
5. Napsauta "OK". Valitse toisessa ponnahdusikkunassa toinen kansio, jota haluat verrata ja johon haluat yhdistää.
6. Napsauta "OK". Nyt kaikki ensimmäisen kansion kohteet siirretään toiseen kansioon ja päällekkäiset poistetaan.
Yhdistä useita kansioita ja poista päällekkäiset kohteet Kutools for Outlook -sovelluksella
Jos et tunne VBA-koodia, kokeile käyttää "Kutools for Outlook" -ohjelmaa, kätevää apuohjelmaa "Consolidating Folders"- ja "Duplicate Emails" -apuohjelmineen, jotka voivat hoitaa tämän tehtävän helposti ja nopeasti.
Avaa äärimmäinen sähköpostitehokkuus Kutools for Outlookin avulla! Pääsy 70 tehokkaat ominaisuudet täysin ilmaisia, ikuisesti. Lataa ilmainen versio nyt!
Yhdistä useita kansioita
1. Napsauta "Kutools Plus" > "Consolidating Folders", sitten "Yhdistä useita kansioita yhdeksi" -valintaikkunassa "Lisää" lisätäksesi kansiot, jotka haluat yhdistää luetteloon, ja valitse kansio kohdekansioksi.
2. Napsauta "OK" > "OK". Nyt kaikki valittujen kansioiden kohteet on yhdistetty määritettyyn kansioon.
Poista päällekkäiset kohteet
3. Napsauta "Kutools" > "Poista kaksoiskappale" > "Duplicate Emails". Valitse sitten Kopioi viestit -valintaikkunasta kansio, josta haluat poistaa kaksoiskappaleet.
4. Napsauta "Seuraava". Määritä "Duplicate Messages Settings" -valintaikkunassa kriteerit, joita käytät sähköpostien vertailuun. Valitse sitten "Poista kaksoisviestit" ja valitse "Vertaa päällekkäisiä viestejä yhdessä kansiossa".
5. Napsauta "Seuraava" > "Seuraava", niin päällekkäiset sähköpostit suodatetaan. Napsauta "Poista kaksoisviesti" -painiketta > "OK" poistaaksesi päällekkäiset sähköpostit.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
