Note: The other languages of the website are Google-translated. Back to English

Jak sloučit dvě složky bez duplikátů do jedné složky v aplikaci Outlook?

V aplikaci Outlook můžete mít mnoho e-mailových účtů s mnoha složkami, v některých případech chcete sloučit dvě složky do jedné a odstranit duplicitní položky. Jak můžete tuto práci rychle vyřešit? V tomto článku představuji kód VBA, který vám pomůže s jeho co nejrychlejším zpracováním v Outlooku.

Sloučte dvě složky bez duplikátů do jedné pomocí kódu VBA

Sloučit více složek a odstranit duplicitní položky pomocí Kutools pro Outlook


Sloučte dvě složky bez duplikátů do jedné pomocí kódu VBA

Chcete-li sloučit dvě složky do jedné a odstranit duplicitní položky, můžete to zpracovat pomocí kódu VBA následujícím způsobem:

1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno

2. Poklepejte na ThisOutlookSession od Project1 v levém podokně a poté zkopírujte a vložte pod kód do pravého skriptu.

VBA: Sloučení dvou složek bez duplikátů

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

Sloučit složky dokumentů bez duplikátů 1

3. cvaknutí Tools > Reference a v rozbalovacím dialogu zaškrtněte Microsoft Scripting Runtime checkbox.

Sloučit složky dokumentů bez duplikátů 2 doc šipka vpravo Sloučit složky dokumentů bez duplikátů 3

4. cvaknutí OK. Nyní stiskněte F5 klíč ke spuštění kódu. Zobrazí se dialogové okno, které vám připomene, že jste vybrali první složku, kterou chcete sloučit (poznámka: všechny položky v první složce budou po sloučení s druhou složkou odstraněny).
Sloučit složky dokumentů bez duplikátů 4

5. cvaknutí OKve druhém vyskakovacím dialogovém okně vyberte druhou složku, kterou chcete porovnat a sloučit.
Sloučit složky dokumentů bez duplikátů 5

6. cvaknutí OK, nyní budou všechny položky v první složce přesunuty do druhé složky a budou odstraněny také duplikáty.
Sloučit složky dokumentů bez duplikátů 6


Sloučit více složek a odstranit duplicitní položky pomocí Kutools pro Outlook

Pokud nejste obeznámeni s kódem VBA, zkuste použít Kutools pro aplikaci Outlook, šikovný doplněk, s jeho Konsolidace složek a Duplicitní e-maily nástroje, které tuto práci snadno a rychle zvládnou.

Kutools for Outlook , Obsahuje 100 + výkonné funkce a nástroje pro Microsoft Outlook 2016, 2013, 2010 a Office 365.

Bezplatná instalace Kutools pro Outlook a proveďte následující kroky:

Sloučit více složek

1. cvaknutí Kutools Plus > Konsolidace složek, pak v Sloučit více složek do jedné dialog, klepněte na tlačítko přidat Chcete-li přidat složky do seznamu, který bude sloučen, vyberte složku jako cílovou složku.
doc konsolidovat a odstranit duplikát 1

2. cvaknutí OK > OK. Nyní byly všechny položky ve vybraných složkách sloučeny do jedné konkrétní složky.
doc konsolidovat a odstranit duplikát 2

Odeberte duplicitní položky

3. cvaknutí Kutools > Odstranit duplikát > Duplicitní e-maily. Pak v Duplicitní zprávy V dialogovém okně zaškrtněte složku, ze které chcete odstranit duplikáty.
doc konsolidovat a odstranit duplikát 3

4. cvaknutí další, v Nastavení duplicitních zpráv v dialogovém okně zadejte kritéria, která používáte k porovnání e-mailů, a poté zkontrolujte Odstraňte duplicitní zprávy a zvolte Porovnejte duplicitní zprávy v jedné složce.
doc konsolidovat a odstranit duplikát 4

5. cvaknutí další > další, duplicitní e-maily byly filtrovány. Klepněte na Odstranit duplicitní zprávu tlačítko> OK úspěšně odstranit duplicitní e-maily.
doc konsolidovat a odstranit duplikát 5 Sloučit složky dokumentů bez duplikátů 6


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL