vba - 如何从电子邮件线程的原始消息中获取详细信息？

Question

我目前正在尝试从 Outlook 上特定文件夹中的电子邮件中提取日期、发件人和发件人电子邮件地址等详细信息，但是最新电子邮件中的信息不是我想要的，而是来自每个线程的电子邮件中的信息。

我曾尝试使用类似的方法.GetParent，.GetFirst但未能实现它们。目前，我只能提取最新电子邮件的信息。这是我到目前为止所拥有的：

Sub GetFromOutl()

Dim OutlookApp As Outlook.Application
Dim myNamespace As Outlook.Namespace
Dim Folder As Object
Dim i As Integer

Set OutlookApp = New Outlook.Application
Set myNamespace = Outlook.Application.GetNamespace("MAPI")
Set Folder = myNamespace.PickFolder

Workbooks("Extract emails").Sheets("Tabelle1").Activate

i = 1

For Each OutlookMail In Folder.Items
num = Folder.Items.Count
If TypeName(OutlookMail) = "MailItem" Then
    If OutlookMail.ReceivedTime >= Range("J1").Value Then
        If OutlookMail.ReceivedTime <= Range("K1").Value Then
            
            Cells(i + 1, 2).Value = OutlookMail.ReceivedTime
            Cells(i + 1, 7).Value = OutlookMail.SenderName
            Cells(i + 1, 8).Value = OutlookMail.SenderEmailAddress
            
            i = i + 1
        End If
    End If
End If
Next OutlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

Workbooks("Extract emails").Sheets("Tabelle1").Activate

End Sub

标签： vbaemailoutlookextract