使用字 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方法來獲取實際的郵件項目。 相反，您可以使用現有的參考。