Jeśli chcesz usunąć duplikaty w Outlooku, wyszukiwanie i usuwanie ich pojedynczo będzie dość kłopotliwe. Ten post pokaże Ci, jak szybko to zrobić za pomocą VBA w Outlooku.
W moim poprzednim artykule - „Jak szybko znaleźć i usunąć zduplikowane wiadomości e-mail w programie Outlook”, Możesz nauczyć się sztuczki znajdowania i usuwania zduplikowanych e-maili, które najpierw sortują e-maile według tematu, następnie według czasu odebrania, a następnie według załączników, aby znaleźć zduplikowane elementy, a na koniec zaznaczyć zduplikowane e-maile i nacisnąć klawisz„ Usuń ”. Chociaż ta metoda jest pozornie nieco wygodniejsza, jest o wiele bardziej kłopotliwa w porównaniu z korzystaniem z programu Outlook VBA. Dzięki poniższym kodom VBA możesz szybko usunąć zduplikowane elementy jednym kliknięciem, bez względu na e-maile, zadania, kontakty lub spotkania. Czytaj dalej, aby uzyskać szczegółowe informacje o kodach.
Usuń zduplikowane elementy programu Outlook w folderze
- Na początek uruchom program Outlook.
- Następnie naciśnij klawisze „Alt + F11”.
- W kolejnym oknie edytora VBA kliknij dwukrotnie, aby otworzyć używany moduł lub bezpośrednio wstaw nowy moduł przez „Wstaw”> „Moduł”.
- Następnie skopiuj i wklej następujące kody VBA do modułu.
Sub RemoveDuplicateItems()
Dim objFolder As Folder
Dim objDictionary As Object
Dim i As Long
Dim objItem As Object
Dim strKey As String
Set objDictionary = CreateObject("scripting.dictionary")
'Select a source folder
Set objFolder = Outlook.Application.Session.PickFolder
If Not (objFolder Is Nothing) Then
For i = objFolder.Items.Count To 1 Step -1
Set objItem = objFolder.Items.Item(i)
Select Case objFolder.DefaultItemType
'Check email subject, body and sent time
Case olMailItem
strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
'Check appointment subject, start time, duration, location and body
Case olAppointmentItem
strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
'Check contact full name and email address
Case olContactItem
strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
'Check task subject, start date, due date and body
Case olTaskItem
strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
End Select
strKey = Replace(strKey, ", ", Chr(32))
'Remove the duplicate items
If objDictionary.Exists(strKey) = True Then
objItem.Delete
Else
objDictionary.Add strKey, True
End If
Next i
End If
End Sub
- Następnie podpisz cyfrowo to makro i zmień poziom bezpieczeństwa makr programu Outlook na niski.
- Później możesz uruchomić ten nowy projekt VBA. Kliknij bezpośrednio ikonę „Uruchom” na pasku narzędzi.
- Następnie będziesz musiał wybrać folder, w którym chcesz usunąć zduplikowane elementy.
- Na koniec zduplikowane elementy w wybranym folderze zostaną natychmiast usunięte.
Chroń wrażliwe dane PST
Ze względu na to, że plik PST jest podatny na uszkodzenie, należy poświęcić wiele wysiłku, aby zabezpieczyć plik PST. Na przykład należy uniemożliwić nieprawidłowe zamknięcie programu Outlook. Ponadto musisz przygotować solidny plik Poprawka programu Outlook narzędzie, takie jak DataNumen Outlook Repair które będą w stanie uratować Twój PST na czas.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym wyzdrowieć SQL Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com