HTML код:
https://msdn.microsoft.com/VBA/Outlook-VBA/articles/mailitem-move-method-outlook
Это пример кода с перебором непрочитанных писем
ps есть нюанс если непрочитанных больше 150 оутглюк прервет обработку.
Код:
Private Sub Application_NewMail()
'Мониторим папку входящие, и обрабатываем непрочитанные письма
Dim objMItem As MailItem
Dim objItem As Object
Dim objMAPIFolder As Outlook.MAPIFolder
Set objMAPIFolder = Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 'Папка: Входящие
On Error Resume Next
' ==================
'Проверка на критерии [Непрочтитанное]
For Each objItem In objMAPIFolder.Items.Restrict("[Unread]=TRUE") 'objMItem вместо objItem
'Проверка письма на соответствие критериям
With objItem
' ===============
'Обработка темы письма по критериям
Select Case .Subject
' В вашем случае это Select Case .Body
' -------------------------------------------------------------------------------------------------------
Case "Пример 1"
.Move (Ваша папка)
' -------------------------------------------------------------------------------------------------------
Case "Пример 2"
.UnRead = False 'пометить прочтенным
.Delete 'перемесить в папку удаленные
' -------------------------------------------------------------------------------------------------------
Case Else
' Здесь можно вставить дополнительные обработки
' -------------------------------------------------------------------------------------------------------
End Select
End With
Next
' ==============
Set objMAPIFolder = Nothing
End Sub
это урезанный фрагмент рабочего кода, возможны небольшие ошибки
