Как быстро удалить повторяющиеся элементы Outlook в папке с помощью VBA

Перспективные решения 29 сентября, 2025
Поделись сейчас:

Если вы хотите удалить повторяющиеся элементы в Outlook, поиск и удаление по одному будет довольно проблематичным. Это рost научит вас, как быстро завершить его с помощью Outlook VBA.

В моей предыдущей статье — «Как быстро найти и удалить дубликаты писем в Outlook», вы можете научиться уловке, чтобы найти и удалить повторяющиеся электронные письма, которые сначала сортируют электронные письма по теме, затем по времени получения, а затем по вложениям, чтобы найти повторяющиеся элементы, и, наконец, выберите повторяющиеся и нажмите «Удалить». ключ. Хотя этот способ кажется немного более удобным, но он гораздо более хлопотный по сравнению с использованием Outlook VBA. С помощью следующих кодов VBA вы можете быстро удалить повторяющиеся элементы одним щелчком мыши, независимо от электронных писем, задач, контактов или встреч. Теперь читайте дальше, чтобы получить коды в деталях.

Быстрое удаление повторяющихся элементов Outlook в папке через VBA

Удалить повторяющиеся элементы Outlook в папке

  1. К start с, запустите программу Outlook.
  2. Затем нажмите клавиши «Alt + F11».
  3. В следующем окне редактора VBA дважды щелкните, чтобы открыть используемый модуль, или напрямую вставьте новый модуль, выбрав «Вставить» > «Модуль».
  4. Затем скопируйте и вставьте следующие коды 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

Коды VBA - быстро удалить дубликаты элементов Outlook в папке

  1. После этого подпишите этот макрос цифровой подписью и измените уровень безопасности макросов Outlook на низкий.
  2. Позже вы сможете запустить этот новый проект VBA. Непосредственно щелкните значок «Выполнить» на панели инструментов.запустить этот макрос
  3. Впоследствии вам потребуется выбрать папку, из которой вы хотите удалить повторяющиеся элементы.Выберите папку
  4. Наконец, дубликаты элементов в выбранной папке будут сразу удалены.

Защита уязвимых данных PST

Из-за того, что файл PST подвержен повреждению, вам следует приложить много усилий для защиты вашего файла PST. Например, вы должны предотвратить неправильное закрытие Outlook. Кроме того, вам необходимо подготовить надежный Исправление Outlook инструмент, такой как DataNumen Outlook Repair который сможет вовремя спасти ваш PST.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая оправляться SQL Server и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.