How to delete duplicate RSS messages?

Status
Not open for further replies.

ofw62

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Long story, but I ended up having quite a lot of duplicate RSS messages in my 'RSS-Archive' folders.
(when organizing folders, I undoubtedly first created copies of the folders or messages before moving, I don't know).

I'd like to delete those duplicate RSS messages based on: title, date-time received.
Have been using a duplicate email remover, but for one reason or the other, the tool I used did not consider duplicate RSS feeds as duplicate, although I, myself, could not detect any difference at all.
Discussed the matter with the developer, but it seems there is a difference in size, for which reason it is not marked as duplicate.
When I copy paste two identical feeds into a text editor, they both have the same number of bytes, but indeed Outlook shows different sizes.

Maybe there is a way to delete such dups whilst using a rule?
Vainly tried to find a 3rd party tool for this specific task.

Thanks

=
 
I'm not aware of any specifically for RSS feeds - they do have a different IPM form than mail, which is why the duplicate removers for mail don't work. Rules also won't work.

One cause of duplicates is that the item was edited and Outlook is set to identified edited items as new. That is probably why the difference in size. If all the subjects are all unique (save for the duplicates items) you might be able to use a macro to categorize or delete the duplicates.
 
Thank you. Well, I am afraid, I will have to leave it like that as I am totally unfamiliar with macros/VBA stuff.
Also duplicates are between on-duplicates, I hesitate to take the same action as in the video clip for duplicate mails
(adding modified field, sorting on that and then deleting, see video : https://youtu.be/o5xK4QbfCuY
Title: Delete Duplicated Email)

=
SnagIt-16052016 131338.png
=

As said, I leave it like this, manually deleting is wayyy too boring ;)

Anyway, thanks again!

=
 
deleting by modified date is not going to work - if i have time today, i will test a macro on my own heavily duplicated RSS feeds.

The proper way to check is to get a subject, then test it against each message in the folder then delete the ones with matching subjects. The problem is that it takes a long time to run against a lot of messages. And it assumes the messages each have a unique subject. if two different ones have the same subject, it would delete it. The addins also compare the size and dates, but this won't always work for duplicated feeds - if the duplicate is because it was republished, it can be a different size and might have a different date.
 
Thank you so much again. If it isn't too much trouble and time-consuming... it would be great!

One of the RSS archive folders contain some 2500 items. Yeah... needless to say: I did mess around a lot and I did that in a really magnificent way. Initially I more or less assumed, but admittedly did not verify, that RSS-posts would overwrite existing ones the same way as replacing files that are identical. Lateron I did discover the mounting number of RSS because of the duplicates, but then I continued (messing up) assuming that a duplicate email remover would delete those items in the end. My idea was it would be better to have the folder structure organized first and then remove the duplicates, rather then stopping leave matter somewhat disorganized and not knowing which RSS items would reside where. Ah well ...
tsk tsk tsk..
 
This seems to be working here - it only compares the subject field though. if the dates don't match, I'm not sure which one it is deleting, the old or the new.

You'll need to set a reference to the scripting runtime in tools, references.

Code:
Public Sub DeleteDupesCurrentFolder()

Dim i As Long
Dim n As Long
Dim Message As String
Dim Items As Object
Dim AppOL As Outlook.Application
Dim Folder As Object

Set Items = CreateObject("Scripting.Dictionary")

Set AppOL = Outlook.Application

Set Folder = AppOL.ActiveExplorer.CurrentFolder
n = Folder.Items.Count
'Loop backwards to ensure that the deleting of the emails does not interfere with subsequent items in the loop
For i = n To 1 Step -1

    On Error Resume Next
' filters only on the subject, add other fields as needed.
    Message = Folder.Items(i).Subject

        'Check a dictionary variable for a match
        If Items.Exists(Message) = True Then
        'If the item has previously been added then delete this duplicate
        Folder.Items(i).Delete
    Else
        'In the item has not been added then add it now so subsequent matches will be deleted
        Items.Add Message, True
End If

Next i

ExitSub:
Set Folder = Nothing
Set AppOL = Nothing

End Sub
 
It is great!
But...
(there is always a 'but')


I managed to get it going (of course, after I created a backup of the folder I applied the macro on)
There is one tricky thing though, as you already said, it compares titles only, not sizes and regretfully the macro deletes a bit too many feeds.

e.g.
title bla bla 20kb
title bla bla 20kb
title bla bla 5kb
title bla bla 5kb

only 1 is left, whereas the idea would be that 1x 5kb and 1x 20kb should be kept.

I am very sorry.
Though I really, really appreciate the work, regretfully the delete is a bit too drastic :)

=
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
O Delete duplicate emails - subscription notifications Using Outlook 5
S can't delete duplicate account under Outlook 2007 (Win 7) Using Outlook 16
D Delete Outlook emails from MS server Using Outlook 9
K How can I delete an e-mail from Outlook Using Outlook 1
D Delete selected text in outgoing email body Outlook VBA and Custom Forms 0
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
G Automatically delete email when a condition is met Outlook VBA and Custom Forms 1
D Outlook 2021 Using vba code to delete all my spamfolders not only the default one. Outlook VBA and Custom Forms 0
M Shift Delete doesn't delete email from server Using Outlook 3
J Unable to delete folders in Outlook 2019 / Windows Using Outlook 0
Horsepower Cannot delete gmail in iPhone Outlook outbox Using Outlook 1
J Quick steps delete original email and move reply/sent email to folder Using Outlook 2
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Automatically delete messages in the synchronization folder Outlook VBA and Custom Forms 3
O How to delete a forum post? Using Outlook 4
T Outlook 2010 Errore run-time -2147417851 (80010105) Metodo delete ContactItem non riuscito Outlook VBA and Custom Forms 0
C Outlook 2016 Unable to delete Gmail IMAP calendar Using Outlook 2
S Outlook 2016 dont delete inbox item Using Outlook 0
F Wishlist Outlook suddenly began synchronizing deleted items every time I delete a single email. Using Outlook 2
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
R Outlook 365 update sets delete from server flag Using Outlook 1
S Outlook 2016 A Shortcut to recall and delete and sent message. Using Outlook 1
T Outlook 2010 How to Delete “Orphaned” TO DO? ( Not on Exchange Server) Using Outlook 6
P How did hacker cause link to delete and archive containing email? Using Outlook 6
Z Outlook 365 delete reminder you can’t make change to contents of this-read only folder Using Outlook 4
J To delete the draft email Using Outlook 2
W Recurrence: delete older occurrences / change earliest start time Outlook VBA and Custom Forms 0
J Moved many emails to Outlook external folder, need to delete on Gmail server Using Outlook 14
A Attachments.Delete Outlook VBA and Custom Forms 3
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
R Expand VBA Permanent Delete Code Outlook VBA and Custom Forms 6
M Delete headers in Inline reply Outlook VBA and Custom Forms 5
N VBA to delete duplicates by message-id on common pst for 2 or more emails Outlook VBA and Custom Forms 0
S How can I delete all copies of a given companies logo graphic from all my emails at once? Using Outlook 3
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
D after delete mail, open the next one Outlook VBA and Custom Forms 0
F Delete/create/reset Exchange mailbox on Outlook.com Using Outlook.com accounts in Outlook 3
L Email Read and Delete Outlook VBA and Custom Forms 4
H Delete Calendar Entries in Using Outlook 2
D Delete Emails from Senders in Shared Mailbox Outlook VBA and Custom Forms 1
R How to delete Facebook Contacts folder in Outlook 365 Using Outlook 7
R VBA Code to permanently delete selected email Outlook VBA and Custom Forms 10
JoeG Appointment Delete/Change Recurrence Outlook VBA and Custom Forms 0
C Outlook 2016 cannot delete, email showing in root Exchange Server Administration 5
C How to replace or delete first instance of sentence in mail body? Outlook VBA and Custom Forms 1
Z Can't delete IMAP folder Using Outlook 2
J Delete old emails Exchange Server Administration 1
undercover_smother Automatically Forward All Sent Mail and Delete After Send Outlook VBA and Custom Forms 10
T Delete Emails from search results Outlook VBA and Custom Forms 1
I Outlook 2013 How do I delete a Calendar? Using Outlook.com accounts in Outlook 1

Similar threads

Back
Top