使用字 VBA outlook email 正文为空白

Question

我在 outlook 中制作了以下 vba 脚本，当我得到 email 的主体时，它工作正常。 我将脚本移动到单词 vba ，现在当我得到 email 主体时，它是空的。 我可以正常访问主题和其他字段，但 email 正文字段为空白。 如何访问 email 的主体？

Dim appOutlook As Object
Dim olNs As Object
Dim olFolder As Object
Dim olItem As Object
Dim iRow As Integer
Dim email_body As String

' Get/create Outlook Application
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olNs = appOutlook.GetNamespace("MAPI")
Set olFolder = olNs.GetDefaultFolder(6) _
                .Parent.Folders("folder2")  ' 6 == Inbox for some reason


For iRow = 1 To olFolder.Items.Count
Next iRow

For Each myItem In olFolder.Items
myItem.Display
 Dim Email As Outlook.MailItem
Set Email = appOutlook.ActiveInspector.CurrentItem
myItem.Close olDiscard
'Word document
Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")

Dim wdDoc As Word.Document
Set wdDoc = wdApp.Documents.Add
    wdDoc.Activate

Dim wdRange As Word.Range
Set wdRange = wdDoc.Range(0, 0)
email_body = Email.Body

Answer 1

在以下代码中，您遍历文件夹中的所有项目并在 Outlook 中的新检查器 window 中显示每个项目：

For Each myItem In olFolder.Items

MsgBox myItem.Body

无需调用Display方法来获取实际的邮件项目。 相反，您可以使用现有的参考。