Microsoft Outlook 2010 VBA: Получение Письма

[Odinok]

Создал правило, запускать скрипт, для входящих писем

Sub MyMail_Mark_As_Read(MyMail As MailItem)    
    If (MyMail.Body Like "Text") Then
        R = MsgBox(MyMail.Body)  
    End If
End Sub

Но как выяснилось в MyMail.Body отсутствует текст сообщения. Перекопал половину интернета, но ответа, как найти в тексте определенное слово не смог.
Хотя MyMail.Subject хранит тему письма

[IgorGO]

как найти в тексте определенное слово

If (MyMail.Body Like "*ОпределенноеСлово*") Then ...

[Odinok]

Сообщение от IgorGO

If (MyMail.Body Like "*ОпределенноеСлово*") Then ...

Не работает, если вывести тело сообщение через MsgBox то оно будет пустое

[Step_UA]

может BodyFormat = olFormatHTML? - тогда смотреть необходимо в HTMLBody

[Odinok]

Перепробовал все *Body и обычные и html и rtf кажется, но все равно тело письма отсутствует

[alex77755]

Когда-то делал раскидывание писем по содержанию определённого слова в теме и в тексте письма. Кусок кода из моей проги:

'Для поиска в тексте сообщений необходимо сделать разрешение доступа максиум на 10 минут
'бесплатных прог. для этого нет
'1.вариант: перед запуском программы поставить галочку на 10 мин.
'2.вариант: вроде можно программно изменить ключ в реестре с помощью АПИ функции.
'Но тоже только на 10мин
'я даже находил модульс кодом. Достаточно много кода
'Поэтому пока только по заголовкам
'Если надо искать и в теле писем: разкомментировать блок. При запросе установить галку и 10 мин
'
'''''''''''''''''''''''''''''
''''''''''раскидываем по тексту писем
'    For Each Item In inbox.Items ' перебор всех писем в папке "Входящие"
'        For i = 0 To UBound(SOS) '
'            If InStr(1, Item.Body, SOS(i)) > 0 Then
'                NUM = NUM + 1
'                DEG = Первый
'Item.Move oNamespace.Folders(1).Folders("Сотрудники").Folders(STR(DEG, 0))
'                STR(DEG, 2) = STR(DEG, 2) + 1 'увеличиваем счётчик
'                SaveSetting "OUTL", "NASTR", STR(DEG, 0) & "_p", STR(DEG, 2) 'запоминаем
'                Exit For
'            End If
'        Next i
'    Next
 ''''''''''''''''''''''''

В SOS просто слова, которые проверяются на вхождение