Wenn Sie doppelte Elemente in Outlook entfernen möchten, ist das Suchen und Löschen jedes einzelnen Elements recht mühsam. Dieser Beitrag zeigt Ihnen, wie Sie dies mit Outlook VBA schnell erledigen können.
In meinem vorherigen Artikel - „So finden und entfernen Sie doppelte E-Mails in Outlook schnellSie können einen Trick lernen, um doppelte E-Mails zu finden und zu entfernen. Dabei werden die E-Mails zuerst nach Betreff, dann nach empfangener Zeit und dann nach Anhängen sortiert, um die doppelten Elemente zu ermitteln, die doppelten auszuwählen und zuletzt die Entf-Taste zu drücken. Diese Methode scheint zwar etwas praktischer zu sein, ist aber im Vergleich zur Verwendung von Outlook VBA weitaus problematischer. Mit den folgenden VBA-Codes können Sie doppelte Elemente schnell und einfach mit einem Klick entfernen, unabhängig von E-Mails, Aufgaben, Kontakten oder Terminen. Lesen Sie nun weiter, um die Codes im Detail zu erhalten.
Entfernen Sie die doppelten Outlook-Elemente in einem Ordner
- Starten Sie zunächst Ihr Outlook-Programm.
- Drücken Sie dann die Tasten „Alt + F11“.
- Doppelklicken Sie im nachfolgenden VBA-Editorfenster auf ein Modul, das gerade verwendet wird, oder fügen Sie ein neues Modul direkt über "Einfügen"> "Modul" ein.
- Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie in das Modul ein.
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
- Signieren Sie dieses Makro anschließend digital und ändern Sie die Sicherheitsstufe Ihres Outlook-Makros auf niedrig.
- Später können Sie dieses neue VBA-Projekt ausführen. Klicken Sie direkt auf das Symbol "Ausführen" in der Symbolleiste.
- Anschließend müssen Sie einen Ordner auswählen, in dem Sie doppelte Elemente entfernen möchten.
- Schließlich werden die doppelten Elemente im ausgewählten Ordner sofort gelöscht.
Schützen Sie gefährdete PST-Daten
Aufgrund der Tatsache, dass die PST-Datei anfällig für Beschädigungen ist, sollten Sie große Anstrengungen unternehmen, um Ihre PST-Datei zu schützen. Sie sollten beispielsweise verhindern, dass Outlook nicht ordnungsgemäß geschlossen wird. Darüber hinaus müssen Sie eine robuste vorbereiten Outlook beheben Werkzeug, wie z DataNumen Outlook Repair das wird in der Lage sein, Ihre PST rechtzeitig zu retten.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich erholen SQL Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX