If you would like to archive all the RSS items that you have read in Outlook, you can use either of the 2 methods introduced in this article.
As we all know, the larger Outlook file, the more vulnerable Outlook data. Hence, in order to keep Outlook file in small size, you may want to delete or archive the useless items, such as the RSS items which you’ve read already. Here we’ll guide you to quickly archive all read RSS items by 2 handy means.
Method 1: Archive All Read RSS Items Manually
- At first, in the mail folder list, click on “RSS Feeds” folder.
- Then, press “Ctrl + E” key buttons.
- Next, on “Search” tab, click “All subfolders” in the “Scope” group.
- Subsequently, input “read:yes” in the search box.
- After a while, all the read RSS items will be listed out.
- Then, pitch on a search result and press “Ctrl + A” to select all results.
- After that, right click and choose “Move” > “Other Folder”.
- In the popup dialog box, create a new folder to save these found RSS items.
- After clicking “OK”, all the selected items will be moved to the new folder.
- Later, go to “File” menu, in which click “Cleanup Tools” and select “Archive”.
- Finally, in the new “Archive” dialog box, select the new folder and click “OK”.
Method 2: Archive All Read RSS Items with VBA
- First of all, press “Alt + F11” to access VBA editor.
- Then, put the following VBA code into a module.
Sub ArchiveAllReadRSSItems() Dim objRSSFeedsFolder As Outlook.Folder Dim objArchiveFile As Outlook.Folder Dim objFolder As Outlook.Folder Set objRSSFeedsFolder = Outlook.Application.Session.GetDefaultFolder(olFolderRssFeeds) 'Change the path to your own Archive PST file Application.Session.AddStore "C:\Users\Test\Documents\Outlook Files\Archive.pst" Set objArchiveFile = Application.Session.Folders.GetLast() For Each objFolder In objRSSFeedsFolder.Folders On Error Resume Next Set objArchiveFolder = objArchiveFile.Folders(objFolder.Name) If objArchiveFolder Is Nothing Then Set objArchiveFolder = objArchiveFile.Folders.Add(objFolder.Name) End If For i = objFolder.Items.Count To 1 Step -1 If objFolder.Items(i).UnRead = False Then objFolder.Items(i).Move objArchiveFolder End If Next Next End Sub
- Afterwards, press “F5” key to run this macro.
- At once, when macro finishes, the “Archive” Outlook file will be displayed in the mail navigation pane.
- Expand the “Archive” file, and you will see that all read RSS items have been here, as shown in the following figure.
Handle Vexing Outlook Issues
Outlook is vulnerable to multiple factors, such as viruses, human errors, software faults, hardware issues and so on. Therefore, it is pretty common to encounter all kinds of troubles in Outlook. So, it is necessary to learn how to deal with them. In general, we can use the inbox repair tool to fix them. Yet, if the problem is serious PST corruption, we are better off resorting to a more powerful and reliable utility, like DataNumen Outlook Repair. It can repair Outlook problems effortlessly.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server corruption and outlook repair software products. For more information visit www.datanumen.com