将 Outlook 电子邮件信息访问到 Excel 工作表 (VBA)：正文、HTMLbody、RTFbody 为 <> 空答案

【问题标题】：Accessing Outlook email info into excel worksheet (VBA): body, HTMLbody, RTFbody is <> empty将 Outlook 电子邮件信息访问到 Excel 工作表 (VBA)：正文、HTMLbody、RTFbody 为 <> 空
【发布时间】：2013-06-13 10:55:03
【问题描述】：

提前感谢您的帮助...我的 Google 能力今天让我失望了。

我找到了很多关于使用 excel VBA 访问电子邮件信息的资源，并且在大多数情况下我可以让它们工作。但由于某种原因，最关键的部分，即电子邮件的正文，是空白的。

Dim myOlApp As Object, myNameSpace As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myfolders = myNameSpace.Folders
n = 1
Do Until myfolders.Item(n) = "xxxxx"
    n = n + 1
Loop
Set myfolder = myfolders.Item(n)
Set myfolder2 = myfolder.Folders("Inbox")
c = 12
n = 36
For Each Item In myfolder2.Items
    itsj = Item.Subject
    itrt = Item.ReceivedTime
    itbo = Item.Body
    Cells(n, c) = itrt
    Cells(n, c + 1) = itsj
    Cells(n, c + 2) = itbo
    n = n + 1
 Next Item

似乎一切都正常，除了 Item.Body。我得到一个

运行时错误“287”：应用程序定义或对象定义的错误

查看 .body，或者就此而言：.HTMLBody 或 .RTFBody，在 Locals 视图中，它们都显示了的值。我已经尝试了很多来自不同人的不同电子邮件，但结果总是相同。我还在 Locals 文件夹中深入了解所有其他对象以直接引用电子邮件并获得相同的结果。我正在使用 2010 Outlook 和 Excel。

谢谢！

【问题讨论】：

标签： excel email vba

【解决方案1】：

我的没有问题，只是它实际上并没有在牢房里放任何东西。所以，我只是稍微修改了一下并放入了 Application.ActiveSheet：

Dim myOlApp As Object, myNameSpace As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myfolders = myNameSpace.Folders
n = 1
Do Until myfolders.Item(n) = "xxxxx"
    n = n + 1
Loop
Set myfolder = myfolders.Item(n)
Set myfolder2 = myfolder.Folders("Inbox")
c = 1
n = 1
For Each Item In myfolder2.Items
    itsj = Item.Subject
    itrt = Item.ReceivedTime
    itbo = Item.Body
    Application.ActiveSheet.Cells(n, c) = itrt
    Application.ActiveSheet.Cells(n, c + 1) = itsj
    Application.ActiveSheet.Cells(n, c + 2) = itbo
    n = n + 1
 Next Item

我使用的是 Office 2010。

【讨论】：