Jak scalić dwa foldery bez duplikatów w jeden folder w Outlooku?
W programie Outlook możesz mieć wiele kont e-mail z wieloma folderami, w niektórych przypadkach chcesz scalić dwa foldery w jeden i usunąć zduplikowane elementy. Jak możesz szybko rozwiązać tę pracę? W tym artykule przedstawiam kod VBA, który pomoże Ci jak najszybciej obsłużyć go w Outlooku.
Połącz dwa foldery bez duplikatów w jeden według kodu VBA
Scal wiele folderów i usuń zduplikowane elementy za pomocą Kutools for Outlook
Połącz dwa foldery bez duplikatów w jeden według kodu VBA
Aby połączyć dwa foldery w jeden i usunąć zduplikowane elementy, możesz obsłużyć to za pomocą kodu VBA w następujący sposób:
1. naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno
2. Kliknij dwukrotnie Ta sesja programu Outlook od Project1 w lewym okienku, a następnie skopiuj i wklej poniższy kod do prawego skryptu.
VBA: Scal dwa foldery bez dyplomów
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. kliknij Tools > Referencje aw wyświetlanym oknie dialogowym zaznacz Środowisko wykonawcze skryptów firmy Microsoft Microsoft checkbox.
4. kliknij OK. Teraz naciśnij F5 klucz do uruchomienia kodu. Pojawi się okno dialogowe przypominające o wybraniu pierwszego folderu, który chcesz scalić (uwaga: wszystkie elementy w pierwszym folderze zostaną usunięte po scaleniu z drugim folderem).
5. kliknij OK, w drugim wyświetlanym oknie dialogowym wybierz drugi folder, który chcesz porównać i scalić.
6. kliknij OK, teraz wszystkie elementy z pierwszego folderu zostaną przeniesione do drugiego folderu, a duplikaty również zostaną usunięte.
Scal wiele folderów i usuń zduplikowane elementy za pomocą Kutools for Outlook
Jeśli nie znasz kodu VBA, spróbuj użyć Kutools dla programu Outlook, poręczny dodatek z jego Konsolidacja folderów i Zduplikowane e-maile narzędzia, które łatwo i szybko poradzą sobie z tym zadaniem.
Kutools for Outlook , zawiera 100 + zaawansowane funkcje i narzędzia dla Microsoft Outlook 2016, 2013, 2010 i Office 365. |
||
Darmowa instalacja Kutools dla programu Outlook, a następnie wykonaj poniższe czynności:
Scal wiele folderów
1. kliknij Kutools Plus > Konsolidacja folderów, a następnie w Scal wiele folderów w jeden dialog, kliknij Dodaj aby dodać foldery do listy, która zostanie scalona, wybierz folder jako folder docelowy.
2. kliknij OK > OK. Teraz wszystkie elementy w wybranych folderach zostały scalone w jeden określony folder.
Usuń zduplikowane elementy
3. kliknij Kutools > Usuń duplikat > Zduplikowane e-maile. Następnie w Zduplikowane wiadomości zaznacz folder, z którego chcesz usunąć duplikaty.
4. kliknij Następnaw Ustawienia zduplikowanych wiadomości określ kryteria, których używasz do porównywania wiadomości e-mail, a następnie zaznacz je Usuń zduplikowane wiadomości opcję i wybierz Porównaj zduplikowane wiadomości w jednym folderze.
5. kliknij Następna > Następna, zduplikowane e-maile zostały odfiltrowane. Kliknij Usuń zduplikowaną wiadomość przycisk> OK aby pomyślnie usunąć zduplikowane e-maile.
Najlepsze narzędzia biurowe
Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...
📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Wiecej opcji / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Zwiększ produktywność programu Outlook dzięki widokom na kartach / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.