Кажется, что он циклически перебирает все папки и все объекты в каждой папке, но как только фокус переходит от одной папки к другой, все объекты в предыдущей папке теряются, поэтому никогда не будет найдено ни одного дуплика. Я полагаю, что это была первоначальная проблема, и теперь кажется, что это то же самое. Тьфу. Есть еще идеи? Благодарю.
нтересно, есть ли способ сравнитьALL TITLES in ALL RSS FEEDS и удалите дубликаты.
Я прочитал многоRSS Ленты новостей, и очевидно, что многие люди пересылают сообщения на несколько форумов, а потом я вижу одно и то жеRSS Кормить несколько раз.
Я думаю, что сценарий будет выглядеть примерно так, но, похоже, он не удаляет обманщиков .....
Option Explicit
Public Sub DupeRSS()
Dim olNs As Outlook.NameSpace
Dim RSS_Folder As Outlook.MAPIFolder
Set olNs = Application.GetNamespace("MAPI")
Set RSS_Folder = olNs.GetDefaultFolder(olFolderRssFeeds)
'Process Current Folder
Example RSS_Folder
End Sub
Public Sub Example(ByVal ParentFolder As Outlook.MAPIFolder)
Dim itm As Object, itms As Items, dupes As Object, i As Long, k As Variant
Set dupes = CreateObject("Scripting.Dictionary")
Set itms = ParentFolder.Items
For i = itms.Folders.Count To 1 Step -1
Set itm = itms(i)
If TypeOf itm Is PostItem Then
If dupes.Exists(itm.Subject) Then itm.Delete Else dupes(itm.Subject) = 0
Else
Example itm 'Recursive call for Folders
End If
Next i
'Show dictionary items
If dupes.Count > 0 Then
For Each k In dupes
Debug.Print k
Next
End If
Set itm = Nothing: Set itms = Nothing: Set dupes = Nothing
End Sub
Спасибо всем!!