Ако искате да премахнете дублиращите се елементи в Outlook, търсенето и премахването им един по един ще бъде доста трудно. Тази публикация ще ви научи как бързо да го направите с Outlook VBA.
В предишната ми статия - „Как бързо да намерите и премахнете дублиращи се имейли в Outlook”, Можете да научите трик за намиране и премахване на дублиращи се имейли, които първо сортират имейлите по тема, след това по получено време и след това по прикачени файлове, за да откриете дублиращите се елементи и накрая изберете дублиращите се и натиснете клавиша„ Изтриване ”. Въпреки че този метод изглежда малко по-удобен, но е много по-обезпокоителен в сравнение с използването на Outlook VBA. Чрез следните VBA кодове можете бързо да премахнете дублираните елементи само с едно щракване, без значение имейли, задачи, контакти или срещи. Сега прочетете, за да получите кодовете в детайли.
Премахнете дублираните елементи на Outlook в папка
- За начало стартирайте програмата Outlook.
- След това натиснете бутоните „Alt + F11”.
- В следващия прозорец на редактора на VBA щракнете двукратно, за да отворите модул, който се използва, или директно да вмъкнете нов модул чрез „Вмъкване“> „Модул“.
- След това копирайте и поставете следните VBA кодове в модула.
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
- След това цифрово подпишете този макрос и променете нивото на защита на вашия макрос на Outlook на ниско.
- По-късно можете да стартирате този нов проект на VBA. Щракнете директно върху иконата „Run“ в лентата с инструменти.
- Впоследствие ще трябва да изберете папка, в която искате да премахнете дублиращи се елементи.
- И накрая, дублираните елементи в избраната папка ще бъдат изтрити наведнъж.
Защитете уязвимите PST данни
Поради факта, че PST файлът е податлив на корупция, следователно трябва да похарчите много усилия, за да защитите вашия PST файл. Например, трябва да предотвратите неправилното затваряне на Outlook. Освен това трябва да подготвите здрава Поправка на Outlook инструмент, като DataNumen Outlook Repair които ще могат да спасят вашия PST във времето.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстановяване SQL Server и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com