Чтобы перебирать каждый элемент в папке с помощью VBA в Outlook, вы можете использовать различные методы. Вот несколько примеров:

1. Использование коллекции Items:

   Sub IterateFolderItems(folder As Outlook.Folder)
   Dim item As Outlook.MailItem
   
   For Each item In folder.Items
       ' Do something with each item
       Debug.Print item.Subject
   Next item
   End Sub

2. Использование метода Restrict для фильтрации элементов:

   Sub IterateFolderItemsWithFilter(folder As Outlook.Folder)
   Dim items As Outlook.Items
   Dim filteredItems As Outlook.Items
   Dim filter As String
   Dim item As Outlook.MailItem
   
   ' Set the filter criteria
   filter = "[Subject] Like 'Important%'"
   
   ' Get all items in the folder
   Set items = folder.Items
   
   ' Apply the filter
   Set filteredItems = items.Restrict(filter)
   
   For Each item In filteredItems
       ' Do something with each filtered item
       Debug.Print item.Subject
   Next item
   End Sub

3. Использование метода Find для поиска определенных элементов:

   Sub SearchFolderItems(folder As Outlook.Folder)
   Dim items As Outlook.Items
   Dim foundItems As Outlook.Items
   Dim searchCriteria As String
   Dim item As Outlook.MailItem
   
   ' Set the search criteria
   searchCriteria = "@SQL=""urn:schemas:httpmail:subject"" LIKE '%Project%'"
   
   ' Get all items in the folder
   Set items = folder.Items
   
   ' Search for items matching the criteria
   Set foundItems = items.Find(searchCriteria)
   
   While Not foundItems Is Nothing
       For Each item In foundItems
           ' Do something with each found item
           Debug.Print item.Subject
       Next item
   
       ' Find the next batch of matching items
       Set foundItems = items.FindNext
   Wend
   End Sub

Это всего лишь несколько способов перебора элементов в папке с помощью VBA в Outlook. Вы можете настроить код для выполнения определенных действий над каждым элементом в соответствии с вашими требованиями.