Подскажите пожалуйста, как перебрать все письма в папке "Входящие" и в зависимости от адреса отправителя сделать с ним те или иные действия (например, выделение). У меня есть код, в котором перебираются только выделенные письма:
- Код: Выделить всё
Sub SaveAttachments()
Dim objApp As Outlook.Application
Dim objItem As Object
Dim objSelection As Outlook.Selection
Set objApp = CreateObject("Outlook.Application")
Set objSelection = objApp.ActiveExplorer.Selection
For Each objItem In objSelection
...
Next
End Sub