将outlook中的电子邮件正文提取到excel-错误方法'；车身'；对象的'；邮件'；失败

我正在尝试使用VBA脚本将电子邮件正文提取到excel中：

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

但当我运行时，我会得到一个错误，当我调试时，它会指出错误

单元格（R，1）.Value=OMAIL.Body

感谢您帮助修复代码

---

测试文件夹中有什么？尝试在行

单元格（R，1）前面使用
MsgBox OMAIL.Class
。Value=OMAIL.Body

。在出现错误之前，您会得到什么？不是答案，但请注意，您从未增加

R

的值，因此所有实体都将粘贴在同一个单元格中。您好，Siddharth，我以前尝试过MsgBox OMAIL.Class，但运气不好。您有没有发现这个问题？我也有同样的问题。