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
3. cvaknutí Tools > Reference a v rozbalovacím dialogu zaškrtněte Microsoft Scripting Runtime checkbox.
 |  |  |
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).
5. cvaknutí OKve druhém vyskakovacím dialogovém okně vyberte druhou složku, kterou chcete porovnat a sloučit.
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 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 si Duplicitní e-maily nástroje, které tuto práci snadno a rychle zvládnou.
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.
2. cvaknutí OK > OK. Nyní byly všechny položky ve vybraných složkách sloučeny do jedné konkrétní složky.
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.
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.
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.
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Připomenout e-maily / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Připomeňte si, když přijdou důležité e-maily / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
