Извлечь тело письма из outlook to excel - Ошибка метода «тело» объекта «Почтовый элемент»

Question

Я пытаюсь извлечь тело письма в Excel, используя скрипт VBA:

Option Explicit

Sub Outlook()

Dim O As Outlook.Application
Set O = New Outlook.Application

Dim ONS As Outlook.Namespace
Set ONS = O.GetNamespace("MAPI")

Dim MYFOL As Outlook.Folder
Set MYFOL = ONS.GetDefaultFolder(olFolderInbox).Folders("test")

Dim OMAIL As Outlook.MailItem
Set OMAIL = O.CreateItem(olMailItem)

Dim R As Long
R = 2

For Each OMAIL In MYFOL.Items

 Cells(R, 1).Value = OMAIL.Body

  Next OMAIL

End Sub

, но при запуске выдается ошибка, и при отладке она указывает на Cells(R, 1).Value = OMAIL.Body

Благодарим Вас за исправление кода.