[nexochyka]

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

это урезанный фрагмент рабочего кода, возможны небольшие ошибки